Quote: 引用:Quote: 引用:Quote: 引用:AddHandler lab名称.Click, AddressOf 函数名称例如AddHandler Txt(iLoop).Click, AddressOf Txt_TextChanged朋友,觉得你的是正确的,但我还是看不懂这个,能否帮我简单做个例子,假如n=5,动态生成5个label,然后为每个label设置点击事件,点击后label.text="hello!",谢谢! Private Sub BDSJ() For iLoop As Integer = 0 To Me.Controls.Count - 1 If (Me.Controls(iLoop).GetType.ToString = "System.Windows.Forms.Label") Then AddHandler Me.Controls(iLoop).Click, AddressOf lab_Click End If Next End Sub Private Sub lab_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim lab As Label = sender lab.Text = "你点了我!" End Sub
Quote: 引用:Quote: 引用:AddHandler lab名称.Click, AddressOf 函数名称例如AddHandler Txt(iLoop).Click, AddressOf Txt_TextChanged朋友,觉得你的是正确的,但我还是看不懂这个,能否帮我简单做个例子,假如n=5,动态生成5个label,然后为每个label设置点击事件,点击后label.text="hello!",谢谢!
Quote: 引用:AddHandler lab名称.Click, AddressOf 函数名称例如AddHandler Txt(iLoop).Click, AddressOf Txt_TextChanged
AddHandler lab名称.Click, AddressOf 函数名称
Private Sub BDSJ() For iLoop As Integer = 0 To Me.Controls.Count - 1 If (Me.Controls(iLoop).GetType.ToString = "System.Windows.Forms.Label") Then AddHandler Me.Controls(iLoop).Click, AddressOf lab_Click End If Next End Sub Private Sub lab_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim lab As Label = sender lab.Text = "你点了我!" End Sub