أهلا بك يا زائر .. لديك 0 مشاركة
 
الرئيسية1بحـثالتسجيلالتسجيلدخولدردشة أبناء أفاميا

شاطر | 
 

 كود لحصر الماوس داخل الفورم

اذهب الى الأسفل 
كاتب الموضوعرسالة
NourAfamia
مشرف قسم البرمجة
مشرف قسم البرمجة
avatar


سوريا
ذكر
الــعــمــــــل : مطور برامج
عدد المساهمات : 112
الانتساب : 20/02/2010

مُساهمةموضوع: كود لحصر الماوس داخل الفورم   الإثنين 15 مارس - 19:22

رمز:
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, _
lpRect As RECT) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, _
lpPoint As Any) As Long
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

Sub RestrictMouseRegion(Optional ByVal hWnd As Long = 0)
Dim recTargetWindow As RECT
If hWnd Then
GetClientRect hWnd, recTargetWindow
ClientToScreen hWnd, recTargetWindow
ClientToScreen hWnd, recTargetWindow.Right
ClipCursor recTargetWindow
Else
ClipCursor ByVal 0&
End If
End Sub

Private Sub Form_Load()
RestrictMouseRegion (Me.hWnd)
End Sub

Private Sub Form_Unload(Cancel As Integer)
RestrictMouseRegion
End Sub
__________________





[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://nourafamia.somee.com
أبو محمد
مؤسس المنتدى
مؤسس المنتدى
avatar


سوريا
ذكر
الــعــــمــر : 30
الــعــمــــــل : مصمم اعلاني
عدد المساهمات : 3276
الانتساب : 06/02/2010


مُساهمةموضوع: رد: كود لحصر الماوس داخل الفورم   الثلاثاء 16 مارس - 1:11

مششششششششششكور سأجرب الكود وأرد عليك


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

دع الأيام تغدر كل حينِ Rolling Eyes فما يغني عن الموت الدواءُ
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://afamia.mam9.com
@الأسير@
نائب المدير العام
نائب المدير العام
avatar


سوريا
ذكر
الــعــــمــر : 31
الــعــمــــــل : commerce and marketing
عدد المساهمات : 1330
الانتساب : 20/02/2010


مُساهمةموضوع: رد: كود لحصر الماوس داخل الفورم   الجمعة 19 مارس - 3:06

مشكور أخي الكريم
رح نجرب ونشوف



الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
ضياء
مشرف سابق
مشرف سابق
avatar


سوريا
ذكر
الــعــــمــر : 35
الــعــمــــــل : طالب
عدد المساهمات : 450
الانتساب : 17/02/2010


مُساهمةموضوع: رد: كود لحصر الماوس داخل الفورم   السبت 20 مارس - 0:27

مشكور
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
كود لحصر الماوس داخل الفورم
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات أفاميا :: 
(¯`°•.¸¯`°•. منتدى الكمبيوتر والمعلوماتية .•°`¯¸.•°`¯)
 :: البرمجة و ملحقاتها
-
انتقل الى:  
أفضل 10 أعضاء في هذا المنتدى
أبو التراب - 3723
 
أبو محمد - 3276
 
نور الاسلام - 2006
 
امير الغرام - 1397
 
@الأسير@ - 1330
 
عامر الحسن - 863
 
امير العشاق - 594
 
طارق محيميد - 525
 
عدنان مظلوم - 483
 
ضياء - 450