تقييم الموضوع :
  • 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,010 02-03-16, 10:16 PM
آخر رد: abulayth
  تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) سانسيفا 8 2,024 26-08-13, 05:06 PM
آخر رد: مهند إلكترو
  كود لحصر الماوس داخل الفورم RaggiTech 0 643 17-10-12, 04:40 PM
آخر رد: RaggiTech
  البحث داخل ادة RichTextBox RaggiTech 0 532 17-10-12, 03:36 PM
آخر رد: RaggiTech
  معرفة لون النقطة التي يمر بها الماوس حالياً RaggiTech 0 397 17-10-12, 01:08 AM
آخر رد: RaggiTech
  معرفة عدد الكلمات ضمن نص معين RaggiTech 0 480 17-10-12, 01:08 AM
آخر رد: RaggiTech
  معرفة عدد الأسطر ضمن نص معين RaggiTech 0 322 17-10-12, 01:07 AM
آخر رد: RaggiTech
  معرفة سيريال Drive معين RaggiTech 0 324 17-10-12, 01:07 AM
آخر رد: RaggiTech
  مثال لرسم احداثيات مع حركة الماوس RaggiTech 0 602 17-10-12, 01:03 AM
آخر رد: RaggiTech
  لمعرفة لو كان التحديد باستخدام Tab او باستخدام الماوس RaggiTech 0 310 17-10-12, 01:01 AM
آخر رد: RaggiTech

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


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