ndfweb.cn

VB.NET 中动态添加按钮并添加点击事件


2020-03-22 01:00:27 (4567)


Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click

Dim btn(10) As Button

Dim count1 As Int16

For count1 = 0 To 10

btn(count1) = New Button

btn(count1).SetBounds(400, 5 + count1 * 45, 150, 40)

btn(count1).Text = "我是第" & count1 + 1 & "个按钮"

btn(count1).Tag = count1

Me.Controls.Add(btn(count1))

AddHandler btn(count1).Click, AddressOf Me.btClick

Next


End Sub

Private Sub btClick(ByVal sender As Object, ByVal e As EventArgs)

Dim btn As Button

btn = CType(sender, Button)

MsgBox(btn.Tag.ToString.PadLeft(3, "0") & ":" & btn.Text)

End Sub



本代码通过点击button15来创建11个按钮并添加到界面中。

注意的是创建按钮的索引是利用按钮的tag属性保存的。

创建后按钮的click方法被转到btclick函数上去了

AddHandler btn(count1).Click, AddressOf Me.btClick


了解更多请访问:http://www.ndfweb.cn/news-790.html
  NDF俱乐部
  国际域名注册
  建站咨询
合作伙伴:万网 | 新网 | 新网互联 NDF网站建设淘宝店 | 实用工具 | 外貿網站建設 | 联系我们
鲁公网安备 37110202000336号 鲁ICP备2021027697号-1 Sitemap - RSSRSS订阅