حرکت ماوس

[Amir_vb.Net]

با سلام خدمت دوستان عزیز


من یه دکمه توی فرمم دارم که میخوام وقتی روی اون کلیک میکنم تا وقتی کلیک ماوس
پایین هست ماوس قفل بشه

یعنی هیچ حرکتی نداشته باشه :خجالت:

[Amir_vb.Net]

یه کم عجله دارم اگه می تونید من رو راهنمایی کنید

[Mbt925]

وقتی موس قفل شد ، از کجا باید فهمید که کلید موس رها شده ؟؟؟

[اوبالیت به بو]

من این کار کردم ولی مختص ماوس رو پیدا کردم.
الان این تابع API که برات گذاشتم هم ماوس و هم صفحه کلید رو قفل می کنه. هیچ کاری نمی تونی بکنی.
یادش بخیر پارسال تو کارگاه چقدر کرم میریختیم.

Private Declare Function BlockInput Lib "user32.dll" (ByVal fBlock As Long) As Long

مقدار BlockInput رو 1 بده قفل میشه.

[Mbt925]

دوست عزیز ، به سوال توجه کنید :

با فشرده شدن قفل بشه و با رها شدن باز بشه !!!

[اوبالیت به بو]

خوب این کد رو می تونن تویه رویداد MouseDown و Mouse Up بنویسن. خیلی سادس!
قفل 1
باز 0

[Mbt925]

بنظرتون وقتی موس قفل بشه ، MouseUp ای اتفاق میوفته؟

[اوبالیت به بو]

من معذرت می خوام همه چی رو قاطی پاتی کردم. شما درست میگین این کد من وقتی قفل کنه دیگه قفل کرده و هیچ راهی نیستش.
دوستان من از همتون معذرت می خوام همچنین از جناب mbt925!

[ƒxmahdi]

با شیء MBMouse می شه محدوده ای را را برای حرکت ماوس تعیین کرد مثلا هنگامی که رویداد mouse down انجام می شه ماوس نتونه از محدوده کامند خارج بشه و هنگام رویداد mouse up وضعیت عادی بشه یه پروژه کوچلو همراه با یه فایل Help آماده کردم ببین چطوره ؟

[Amir_vb.Net]

دوست عزیز ممنون ولی این چواب سوال من نبود

[Amir_vb.Net]

البته تا حدودی به جواب رسیدم
ولی ببین وقتی کلیک می کنی همون جا قفل بشه

حالا من یه کم باهاش کار می کنم ببینم می تونم تغییرش بدم

[Mbt925]

از ترفند زیر استفاده کنید:





Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long

Private Declare Function ClipCursor Lib "user32.dll" (ByRef lpRect As Any) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Dim LockM As RECT




Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call GetWindowRect(Command2.hwnd, LockM)

LockM.Left = LockM.Left + X / 15
LockM.Right = LockM.Left + 1

LockM.Top = LockM.Top + Y / 15
LockM.Bottom = LockM.Top + 1

ClipCursor LockM

End Sub


Private Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call ClipCursor(0&)

End Sub

[ƒxmahdi]

بهتر از این روش سراغ ندارم
button Click