动态添加vb.net附带的标准控件我知道如何添加,我说的是动态添加第三方控件,并将该控件的所有开放的事件绑定到一个处理事件程序中,我们在vb中可以通过以下方式实现:
Dim WithEvents vbCtrls As VB.VBControlExtender
Set vbCtrls = Me.Controls.Add("TestControl", "aa")
这样该控件的所有扩展事件就绑定到以下的处理事件程序中了:
Private Sub vbCtrls_ObjectEvent(Info As EventInfo)
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myButton = New Button
myButton.Text = "1234"
AddHandler myButton.Click, AddressOf MyButton_Click
Me.Controls.Add(myButton)
End Sub
'一个处理程序
Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show(sender.text)
End Sub