Question

vb.net 程序画的按钮如何判断点击

我新建了一个按钮

Dim btn As New Button
Me.Controls.Add(btn)

此一句在窗口.load中写的

接下来，我想判断这个按钮点击了没有
发现不能用程序上边的事件选择了，
怎么判断这个按钮的点击事件

我要是建了一堆这样的按钮呢？如何实现遍历来判断哪个按钮点击了呢

Answer 1

Public Class Form1
'/////////////////////动态添加一个btn/////////////////////////
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim btn As New Button
btn.Width = 100 : btn.Text = "New created btn"
AddHandler btn.Click, AddressOf btn_Click '就是这个起的作用,给btn添加click事件
Me.Controls.Add(btn)
End Sub
'/////////////////////btn的响应事件(Click事件响应)/////////////////////////
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Text = "动态添加的按钮被按下"
End Sub
End Class
'/////////////////////////
'要是有一堆类似的玩意儿,定义一个全局数组变量,哪个按钮点击过,就数组中的第几号就变为true,没点击过,就是false
'以后随时看看数组中有几个true,不就知道有几个按钮被点击过了么?
'我是这么想的啦,可能有些小儿科^-^

Answer 2

Public Class Form1
Friend WithEvents MyNewButton As System.Windows.Forms.Button

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.MyNewButton = New System.Windows.Forms.Button
MyNewButton.Text = "TestButton"
Me.Controls.Add(Me.MyNewButton)
End Sub

Private Sub MyNewButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyNewButton.Click
MsgBox("click now")
End Sub
End Class

用这种方法会比较好 按钮的所有事件都可以响应 方便的在事件栏选择