تشخیص خروج اشاره گر ماوس از محدوده فرم بدون استفاده از تایمر

[alireza661]

سئوال از عنوان تاپیک معلومه دیگه
چطور میشه این کارو کرد؟

[بهروز عباسی]

منظورت از
بدون استفاده از تایمر

اینه که کلاً بدون هیچ تکراری انجام بشه یا با تایمر نباشه

[محسن واژدی]

سلام
کد زیر را بررسی کنید:


Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCapture hwnd
If X < 0 Or Y < 0 Or (X > Width) Or (Y > Height) Then
MsgBox "Mouse pointer out of form rectangle", vbInformation
ReleaseCapture
End If
Caption = X & " - " & Y
End Sub


موفق باشید

[alireza661]

مرسی ولی این کدها بدرد من نخورد
چون که من دنبال این بودم که وقتی رخداد ماوس موو اتفاق افتاد عملی انجام بشه
حالا یک کامند کنار فرم دارم که از حاشیه فرم به اندازه نیم سانت فاصله داره
وقتی ماوس رو سریع از روی کامند به خارج از فرم میکشم وی بی متوجه نمیشه که رخداد ماوس موو اتفاق افتاده
این کدرو میخواستم تا این مشکل رو برطرف کنم ولی کد شما با ماوس موو انجام میشه

[setroyd]

دوست عزیز بدون timer نمیشه اینو برات نوشتم گذاشتم امیدوارم مورد استفاده قرار بگیره .