Question

Vb.net 单击指定控件问题？

比如说Form1上有很多的控件。
我单击Label1时Timer1.start()
单击其他控件时Timer1.stop()

Answer 1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
handles_click(Me, "Label1")'为所有控件注册click事件，但排除label1
End Sub
Public Sub handles_click(c As Control, ParamArray eliminate As String())
If Not eliminate.Contains(c.Name) Then AddHandler c.Click, AddressOf allclick
For Each e As Control In c.Controls
handles_click(e, eliminate)
Next
End Sub
Private Sub allclick(sender As Object, e As EventArgs)
MsgBox("Test")
Timer1.stop()
End Sub