VB WinForms中动态生成单选按钮的Enter事件触发源识别问题

你遇到的核心问题是事件绑定的对象不对——应该给每个动态生成的单选按钮单独绑定Enter事件，而不是把事件挂在容器Table1上。这样触发事件时，sender才会是对应的单选按钮，而非整个表格控件。

我给你分步拆解解决方案：

1. 动态创建单选按钮时绑定专属Enter事件 #

在循环创建单选按钮的代码里，为每个RadioButton实例单独添加Enter事件的处理逻辑，而不是给Table1绑定事件。示例代码如下：

' 假设你已经从txt文件读取了问题数和选项数，这里用循环模拟创建单选按钮
For optionIndex As Integer = 1 To optionCount
    ' 创建新的单选按钮实例
    Dim newRadioBtn As New RadioButton()
    newRadioBtn.Text = $"选项 {optionIndex}" ' 设置选项文本
    newRadioBtn.Tag = optionIndex ' 可以用Tag存储额外标识，比如选项序号
    
    ' 关键：给这个单选按钮绑定Enter事件处理方法
    AddHandler newRadioBtn.Enter, AddressOf DynamicRadioButton_Enter
    
    ' 将单选按钮添加到Table1的控件集合（如果是TableLayoutPanel，还需设置单元格位置）
    Table1.Controls.Add(newRadioBtn)
    ' 如果是TableLayoutPanel，指定单元格位置，比如放在第0列第optionIndex-1行
    If TypeOf Table1 Is TableLayoutPanel Then
        DirectCast(Table1, TableLayoutPanel).SetCellPosition(newRadioBtn, New TableLayoutPanelCellPosition(0, optionIndex - 1))
    End If
Next

2. 编写事件处理方法获取触发控件 #

在事件处理方法里，直接把sender转换为RadioButton类型，就能轻松获取它的文本、Tag或其他属性了。用TryCast比DirectCast更安全，避免转换失败抛出异常：

Private Sub DynamicRadioButton_Enter(sender As Object, e As EventArgs)
    ' 将sender转换为RadioButton实例
    Dim triggeredRadioBtn As RadioButton = TryCast(sender, RadioButton)
    
    ' 确认转换成功后再操作
    If triggeredRadioBtn IsNot Nothing Then
        ' 获取单选按钮的文本
        Dim btnText As String = triggeredRadioBtn.Text
        ' 获取之前存在Tag里的额外标识
        Dim btnIndex As Integer = CInt(triggeredRadioBtn.Tag)
        
        ' 这里写你需要的业务逻辑，比如打印调试信息
        Debug.WriteLine($"触发Enter事件的单选按钮：{btnText}，序号：{btnIndex}")
    End If
End Sub

为什么之前sender是Table1？ #

大概率是你误把Enter事件绑定到了Table1控件本身，而不是每个动态创建的单选按钮。容器控件的Enter事件触发时，sender自然是容器自己。只要给每个单选按钮单独绑定事件，就能精准识别触发源了。

内容的提问来源于stack exchange，提问作者Dionysis Koulouris