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

[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 نمیشه اینو برات نوشتم گذاشتم امیدوارم مورد استفاده قرار بگیره .