前端之家收集整理的这篇文章主要介绍了
vb.net 教程 3-13 动态创建控件2，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
上一节讲了设计时创建控件，实际设计时候可以很方便地选择创建控件的事件
代码，
本节讲一下不使用withevents，如何在运行时创建一个带有事件的控件。
主要用到 AddHandler 语句：
AddHandler event,AddressOf eventhandler
event ：
要处理的事件的名称。
eventhandler ：
将处理事件的过程的名称。
这里需要强调一下，eventhandler过程的参数必须符合该控件事件对应的参数，如果不知道怎么写，不妨实际拖拽一个对应控件到设计窗体看看。
还是动态创建一个按钮：
@H_
502_45@Public Class Form2
Dim mybutton As Button
Private Sub Form2_Load(sender As Object,e As EventArgs) Handles MyBase.Load
mybutton = New Button
mybutton.Size = New Size(200,70)
mybutton.Location = New Point(100,100)
mybutton.Text = "按钮"
mybutton.Visible = True
Me.Controls.Add(mybutton)
AddHandler mybutton.Click,AddressOf buttonclick
End Sub
Private Sub buttonclick(sender As Object,e As EventArgs)
Message
Box.Show("这是一个按钮")
End Sub
End Class
运行时如图：
我们可以通过参数 sender 来获得这个按钮（或其他动态创建的控件）的相关
属性，
@H_
502_45@ Private Sub buttonclick(sender As Object,e As EventArgs)
'Message
Box.Show("这是一个按钮")
Dim thisButton As Button = CType(sender,Button)
Message
Box.Show("我们按下了 " & thisButton.Text)
End Sub
运行时如下：
