Question

VB点击事件（visual studio2005）

For i = 1 To 3
For j = 1 To 3
c = c + 1
a(i, j) = New Button
a(i, j).Parent = Me
a(i, j).Height = 25
a(i, j).Width = 25
a(i, j).Left = 45 + (j - 1) * 35
a(i, j).Top = 80 + (i - 1) * 35
a(i, j).Text = c

Next
Next
这个是我的部分代码……可是 我要的是这些按钮点击后触发的事件 这些代码怎么写？

Answer 1

在你的内层循环中加入这一句。
AddHandler btn.Click, AddressOf Btn_Click
将下面的代码复制文件中。
Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
messagebox.show( CType(sender, Button).text)
End Sub