تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حصر الماوس داخل نطاق معين
#1
كاتب الموضوع : sniperser

حصر الماوس داخل نطاق معين


كود :
Private Declare Sub ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINT)
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal X As Long, ByVal Y As Long)
Private Declare Sub GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT)
Private Type RECT
**** As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type
Private Type POINT
X As Long
Y As Long
End Type


Private Sub Command1_Click() 'هذا الايعاز يجعل الماوس لا يخرج عن نطاق الفورم
Dim Client As RECT
Dim Up As POINT
ClientToScreen Me.hwnd, Up
GetClientRect Me.hwnd, Client
OffsetRect Client, Up.X, Up.Y
Up.X = Client.****
Up.Y = Client.Top
ClipCursor Client
End Sub


Private Sub Command2_Click() 'هذا الايعاز يحرر حركة الماوس
ClipCursor ByVal 0&
End Sub

' في هذا المثال سوف تنحصر حركة الماوس داخل الفورم
' كما يمكنك حصرها داخل أي أداة أخرى
' me.hwnd باستبدال الكلمة
'أو غيرها text1.hwnd , label1.hwnd باسم
أخوكم
SniperSer
}}}}
تم الشكر بواسطة: Mostafa Saad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] تحميل ملف من رابط معين على الانترنت Vb6 abulayth 5 1,181 02-03-16, 10:16 PM
آخر رد: abulayth
  تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) سانسيفا 8 2,233 26-08-13, 05:06 PM
آخر رد: مهند إلكترو
  كود لحصر الماوس داخل الفورم RaggiTech 0 697 17-10-12, 04:40 PM
آخر رد: RaggiTech
  البحث داخل ادة RichTextBox RaggiTech 0 548 17-10-12, 03:36 PM
آخر رد: RaggiTech
  معرفة لون النقطة التي يمر بها الماوس حالياً RaggiTech 0 436 17-10-12, 01:08 AM
آخر رد: RaggiTech
  معرفة عدد الكلمات ضمن نص معين RaggiTech 0 546 17-10-12, 01:08 AM
آخر رد: RaggiTech
  معرفة عدد الأسطر ضمن نص معين RaggiTech 0 352 17-10-12, 01:07 AM
آخر رد: RaggiTech
  معرفة سيريال Drive معين RaggiTech 0 364 17-10-12, 01:07 AM
آخر رد: RaggiTech
  مثال لرسم احداثيات مع حركة الماوس RaggiTech 0 635 17-10-12, 01:03 AM
آخر رد: RaggiTech
  لمعرفة لو كان التحديد باستخدام Tab او باستخدام الماوس RaggiTech 0 342 17-10-12, 01:01 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم