Question

我在面板中有很多复选框，我想询问是否有任何方法可以在所有复选框中重现事件操作，而无需为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个复选框事件中写入相同的属性更改。

Answer 1

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

EG：

Private Sub C1_CheckedChanged(sender As Object, e As EventArgs) 
    Handles C1CheckBox1.CheckedChanged, C1CheckBox2.CheckedChanged, ... C1CheckBox50.CheckedChanged
        ...
        Do Action
        ....
    End Sub

如何对多个控件使用相同的事件？

1 个答案: