میخام ساخت رویداد Mouse_Exit بسازم
کمک میکنید؟
مرسی:10:
Printable View
میخام ساخت رویداد Mouse_Exit بسازم
کمک میکنید؟
مرسی:10:
میشه درباره کارش یه خورده توضیح بدی که کاملا چه کارهای انجام میده ؟
من تاحالا در موردش چیزی نشنیدم
اون طوري كه من فهميدم !:
برعكس رويداد Mouse_Move هست يعني هنگامي كه موس روي اون قسمت مورد نظر وجود ندارد !
درسته ؟
نه این رویداد به نظر می رسه شبیه Key release باشه وقتی mouse از Scope خارج شد اتفاق بیفته. یه راه شبیه سازیش اینه:
یه Timer یه Command و یه label بذار این رو امتحان کن. شبیه سازیه خوبیه ولی برای اینکه فکر کنی این Event به Vb اضافه شده! نه چون کد محکمی نیست. بگو چرا به فکر این Event افتادی شاید راه بهتری پیدا کنم.کد: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
شما از یک ترفند استفاده کردی درسته؟
ولی من می خوام یک رویداد وقتی موس از روی usercontrol خارج شد بسازم.
من چندتا سرس دارم که این کار رو میکرد ولی شکل کارش رو نفهمیدم.
بیشتر کمک میکنید؟:10:
من تو سرچ ميكنم اگه Uc پيدا كردم ..
تا ببينيم چي ميشه
سلام،
رویدادهاتی ماوس پشتیبانی شده در VB8
MouseCaptureChanged
MouseClick
MouseDoubleClick
MouseDown
MouseEnter
MouseHover
MouseLeave
MouseMove
MouseUp
MouseWheel
خوب اگه ممکنه همون کد mouseLeave رو بده
ممنون
کسی نیست کمک کنه؟:10:
دوست من اون سورسی هایی که داشتی رو بذار شاید بتونم بیشتر کمک کنم.