VB.NET 很多个linklabel控件批量添加过程

给个例子:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

ListBox1.Items.Clear()

For i = 1 To 30

ListBox1.Items.Add(i)

Next

ListBox1.SetSelected(ListBox1.Items.Count - 1, True)

End Sub

End Class

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

For Each con As Control In Controls

If TypeOf con Is TextBox Then

AddHandler con.DoubleClick, AddressOf Double_CLick

End If

Next

End Sub

Private Sub Double_CLick(sender As Object, e As EventArgs)

'在这里添加双击需要处理的事件

End Sub

End Class

---