اضافه کردن رویداد ( event ) به یوزرکنترل

اضافه کردن یه رویداد برای یه یوزر کنترل به چه شکله؟

لطفا با یه نمونه ساده بهم توضیح بدین.

مثلا ، رویداد mousedown برای یوزر کنترل .

اینم یه نمونه .

این کدها رو باید واسه یوزر کنترل نوشت .

کد:

---

PublicEventClick()

Public EventmyMouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

 

Private Sub UserControl_Click()

 

RaiseEventClick

 

End Sub

 

Private Sub UserControl_MouseDown(Button As Integer, Shift AsInteger, X As Single, Y As Single)

 

RaiseEventmyMouseDown(Button, Shift, X, Y)

 

End Sub

---

این کدها رو هم باید در برنامه اصلی نوشت.

کد:

---

Private Sub UserControl11_myMouseDown(Button As Integer, Shift AsInteger, X As Single, Y As Single)

Form1.Caption = "you wone!"

 

End Sub

---