包含vb.net追加事件的詞條
如何在 vb.net 為動態(tài)生成的控件添加事件并傳遞數(shù)據(jù)
'把圖片的聲明放在外面，類里面過程外面，而且要用As，不然等會兒沒法用
創(chuàng)新互聯(lián)是專業(yè)的四方臺網(wǎng)站建設(shè)公司，四方臺接單;提供成都網(wǎng)站設(shè)計、成都網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè),網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行四方臺網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!
Dim myPicture As New System.Windows.Forms.PictureBox()
'動態(tài)生成的控件，加一行
Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Panel3.Controls.Add(myPicture)
myPicture.Size =New System.Drawing.Size(115, 160)
myPicture.TabStop =False
myPicture.Name ="p"
myPicture.Cursor = Cursors.Hand
AddHandler myPicture.Click, AddressOf mypic_Click '添加事件
AddHandler returnid, AddressOf idReturned '綁定事件和過程
End Sub
'再來個事件，放在聲明的地方，就是類里面、過程外面
Private Event returnid(ByVal id As String) '這個事件可以傳遞值哦~
'普通的單擊事件
Private Sub mypic_Click()
RaiseEvent returnid(myPicture.Name)
End Sub
'會傳值的事件過程
Private Sub idReturned(ByVal id As String)
Dim bookInfo As New BookInfo
bookInfo.Show()
Me.Parent.Enabled = False
'用id變量做點什么吧
End Sub
如果要改事件的簽名（參數(shù)一類的）的話，得重寫控件。你可以這樣自己弄一個事件。
vb.net 動態(tài)菜單如何在指定位置添加新項,并添加單擊事件?
常見事件有鼠的標(biāo)單擊、雙擊、移動；
有鍵盤的鍵按下、鍵松開、按鍵；
有窗體加載、窗體卸載等等。
vb.net給控件加事件
兩種方法：
1. 用WithEvents聲明變量，這樣你就可以像對待拖上去的控件一樣操作：
Public?Class?Form3
WithEvents?btn?As?New?Button
Private?Sub?Form3_Load(sender?As?Object,?e?As?EventArgs)?Handles?Me.Load
Controls.Add(btn)
End?Sub
Private?Sub?btn_Click(sender?As?Object,?e?As?EventArgs)?Handles?btn.Click
MsgBox(Now)
End?Sub
End?Class
2. 使用AddHandler 語句：
Public?Class?Form3
Private?Sub?Form3_Load(sender?As?Object,?e?As?EventArgs)?Handles?Me.Load
Dim?btn?As?New?Button
AddHandler?btn.Click,?AddressOf?btn_Click
Controls.Add(btn)
End?Sub
Private?Sub?btn_Click(sender?As?Object,?e?As?EventArgs)
MsgBox(Now)
End?Sub
End?Class
WithEvents (Visual Basic)：
AddHandler 語句：
網(wǎng)頁名稱：包含vb.net追加事件的詞條
新聞來源：http://m.jiaotiyi.com/article/hpsgoo.html