- excel表格工作表或工作薄忘记密码2024-04-15 07:44:27
- EXCEL工作表保护密码破解2023-12-12 10:49:46
- bqt脚本启动chrome并打开某页面2023-05-17 08:48:30
- C#窗体间传递数据2022-01-26 10:01:31
- C# 实现WebSocket通信实例2022-01-20 10:22:05
作者: 发表时间:2020-04-21 21:49:31浏览量:2134【小中大】
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
————————————————
版权声明:本文为CSDN博主「saddogchen」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/saddogchen/article/details/84829383