'æå¾çç声ææ¾å¨å¤é¢ï¼ç±»éé¢è¿ç¨å¤é¢ï¼èä¸è¦ç¨Asï¼ä¸ç¶çä¼å¿æ²¡æ³ç¨
Dim myPicture As New System.Windows.Forms.PictureBox()
'å¨æçæçæ§ä»¶ï¼å ä¸è¡
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
温馨提示:答案为网友推荐,仅供参考