Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim btn As Button = New Button
btn.Text = "我是按钮"
Me.Controls.Add(btn)
AddHandler btn.Click, AddressOf a
end sub
Sub btn_click()
MsgBox("我是事件")
End Sub
Public Sub myControl1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mycontrol1.click
btn_click()’在这里调用一遍btn_click
‘myControl1_click里的其他代码
end sub
class MyCtrl:Control{
override OnClick(e){
base.OnClick(e);
MessageBox.Show("this.Name");
}
}
本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。