ساخت رویداد Mouse_Exit

میخام ساخت رویداد Mouse_Exit بسازم
کمک میکنید؟
مرسی:10:

میشه درباره کارش یه خورده توضیح بدی که کاملا چه کارهای انجام میده ؟
من تاحالا در موردش چیزی نشنیدم

اون طوري كه من فهميدم !‌:

برعكس رويداد Mouse_Move هست يعني هنگامي كه موس روي اون قسمت مورد نظر وجود ندارد !

درسته ؟

نه این رویداد به نظر می رسه شبیه Key release باشه وقتی mouse از Scope خارج شد اتفاق بیفته. یه راه شبیه سازیش اینه:

کد:

---

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
Label1.Caption = "mousemove"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Timer1.Enabled = False Then
Timer1.Enabled = True
mouse_exit_event
End If
End Sub

Private Sub Timer1_Timer()
Label1.Caption = ""
End Sub

Public Sub mouse_exit_event()
Label1.Caption = "mouse exit event"
End Sub

---

یه Timer یه Command و یه label بذار این رو امتحان کن. شبیه سازیه خوبیه ولی برای اینکه فکر کنی این Event به Vb اضافه شده! نه چون کد محکمی نیست. بگو چرا به فکر این Event افتادی شاید راه بهتری پیدا کنم.

شما از یک ترفند استفاده کردی درسته؟
ولی من می خوام یک رویداد وقتی موس از روی usercontrol خارج شد بسازم.
من چندتا سرس دارم که این کار رو میکرد ولی شکل کارش رو نفهمیدم.
بیشتر کمک میکنید؟:10:

من تو سرچ ميكنم اگه Uc پيدا كردم ..
تا ببينيم چي ميشه

سلام،
رویدادهاتی ماوس پشتیبانی شده در VB8

MouseCaptureChanged
MouseClick
MouseDoubleClick
MouseDown
MouseEnter
MouseHover
MouseLeave
MouseMove
MouseUp
MouseWheel

خوب اگه ممکنه همون کد mouseLeave رو بده
ممنون

کسی نیست کمک کنه؟:10:

دوست من اون سورسی هایی که داشتی رو بذار شاید بتونم بیشتر کمک کنم.