如何基于变量批量绘制多个RadioButton？VB.NET开发疑问

核心实现思路 #

不用为每个RadioButton单独编写Paint子过程，通过共享Paint事件处理程序+状态映射方法实现通用逻辑，新增控件时只需少量修改即可扩展。

完整代码示例 #

1. 共享Paint事件处理程序

所有RadioButton绑定同一个Paint事件，在事件内统一处理绘制逻辑：

Private Sub RadioButton_Paint(sender As Object, e As PaintEventArgs) Handles rbEDD.Paint, rbCV.Paint
    ' 转换sender为当前RadioButton对象
    Dim currentRb As RadioButton = DirectCast(sender, RadioButton)
    ' 获取当前RadioButton对应的状态值
    Dim status As Integer = GetRbStatus(currentRb.Name)
    
    ' 根据状态选择绘制用的画刷
    Dim drawBrush As Brush = Brushes.Green
    Select Case status
        Case -1
            drawBrush = Brushes.Red
        Case 0
            drawBrush = Brushes.Orange
    End Select
    
    ' 绘制自适应控件大小的椭圆（避免固定坐标错位）
    Dim ellipseRect As New RectangleF(2, 2, currentRb.ClientSize.Height - 4, currentRb.ClientSize.Height - 4)
    e.Graphics.FillEllipse(drawBrush, ellipseRect)
    
    ' 保留原文本绘制，防止覆盖RadioButton的文字
    TextRenderer.DrawText(e.Graphics, currentRb.Text, currentRb.Font, currentRb.ClientRectangle, currentRb.ForeColor)
End Sub

2. 状态映射方法

集中管理RadioButton与对应状态变量的关联，新增控件时仅需添加分支：

Private Function GetRbStatus(rbName As String) As Integer
    Select Case rbName
        Case "rbEDD"
            Return cbSV ' rbEDD对应状态变量cbSV
        Case "rbCV"
            Return cbCV ' rbCV对应状态变量cbCV
        ' 新增RadioButton时，在此添加对应的状态变量映射
        Case Else
            Return 1 ' 默认状态（绿色）
    End Select
End Function

3. 简化CheckedChanged事件

只需修改状态变量并触发控件重绘，无需重复设置无效属性：

Private Sub cbStartEDD_CheckedChanged(sender As Object, e As EventArgs) Handles cbStartEDD.CheckedChanged
    ' 这里添加你的状态变量修改逻辑（例如根据复选框状态设置cbSV、cbCV的值）
    ' ...
    
    ' 触发所有RadioButton重绘，应用新状态的颜色
    rbEDD.Invalidate()
    rbCV.Invalidate()
    ' 新增RadioButton时，继续添加对应的Invalidate()调用
End Sub

关键优化点 #

• 避免重复代码：所有RadioButton共享同一个Paint处理逻辑，无需复制粘贴
• 自适应绘制：用控件自身的ClientSize计算椭圆大小，适配不同控件尺寸和DPI
• 可扩展性：新增RadioButton时，仅需在GetRbStatus方法添加分支，并将控件绑定到RadioButton_Paint事件

内容的提问来源于stack exchange，提问作者Franklyn W. R. Tigier