سئوال از عنوان تاپیک معلومه دیگه
چطور میشه این کارو کرد؟
سئوال از عنوان تاپیک معلومه دیگه
چطور میشه این کارو کرد؟
منظورت از
بدون استفاده از تایمر
اینه که کلاً بدون هیچ تکراری انجام بشه یا با تایمر نباشه
Everything that has a beginning has an end. ... The End?
سلام
کد زیر را بررسی کنید:
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
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
مرسی ولی این کدها بدرد من نخورد
چون که من دنبال این بودم که وقتی رخداد ماوس موو اتفاق افتاد عملی انجام بشه
حالا یک کامند کنار فرم دارم که از حاشیه فرم به اندازه نیم سانت فاصله داره
وقتی ماوس رو سریع از روی کامند به خارج از فرم میکشم وی بی متوجه نمیشه که رخداد ماوس موو اتفاق افتاده
این کدرو میخواستم تا این مشکل رو برطرف کنم ولی کد شما با ماوس موو انجام میشه
دوست عزیز بدون timer نمیشه اینو برات نوشتم گذاشتم امیدوارم مورد استفاده قرار بگیره .