0

我在面板中有很多复选框，我想问是否存在任何方式来重现所有复选框中的事件操作，而无需为 20 个复选框编写相同的内容：

  Private Sub C1CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles C1CheckBox1.CheckedChanged
        C1CheckBox1.Text = "test"
    End Sub

编辑：

我不是说如何更改事件text中所有复选框的属性C1CheckBox1，我的意思是如何为所有复选框克隆该事件，如果单击所有复选框中的一个，然后为所有复选框复制相同的事件，这有点区别（我认为）

更新：

伪代码：

sub event that affect to all my checkboxes in the panel
    If ANY checkbox_CheckedChange then
       ALL_the_other_Checkboxes.Checked = False
    end if
end sub

我试图谈论的区别是我问这是否可能只写一个事件或类似的东西，而不是在其他 20 个复选框事件中写相同的属性更改。

4

1 回答 1

2

您可以通过执行逗号分隔的控件列表及其事件来处理相同的事件。

例如：

Private Sub C1_CheckedChanged(sender As Object, e As EventArgs) 
    Handles C1CheckBox1.CheckedChanged, C1CheckBox2.CheckedChanged, ... C1CheckBox50.CheckedChanged
        ...
        Do Action
        ....
    End Sub
于 2012-11-15T21:49:50.397 回答