دليل استخدام إجراءات VBAppAss.dll

للمبرمجين بلغة Visual Basic 6.0

الروتين SetMousePointerFixedXY

تقييد حركة مؤشر الفأرة ضمن إحداثيات محددة على الشاشة.

الصيغة:

Sub SetMousePointerFixedXY(ByVal MPFixed As Boolean, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)

الصنف:
TUserInterface.

الوسائط (Parameters):

MPFixed بارامتر منطقي يحدد إما تقييد حركة مؤشر الفأرة أو فك تقييده.
X1, Y1 إحداثيات الزاوية العلوية اليسرى للمستطيل الذي يبين حدود منطقة التقييد.
X2, Y2 إحداثيات الزاوية السفلية اليمنى للمستطيل الذي يبين حدود منطقة التقييد.

الشرح:
يعمل هذا الروتين على تقييد حركة مؤشر الفأرة ضمن المستطيل المبينة حدوده بالبارامترات X1 و Y1 و X2 و Y2. هذه القيم هي إحداثيات على الشاشة بوحدة البكسل (Pixel). إذا كانت قيمة البارامتر MPFixed هي True فإنه يتم تقييد المؤشر ضمن المساحة المحددة، أما إذا كانت قيمته False فإنه يتم فك تقييد المؤشر بصرف النظر عن الإحداثيات المحددة.

مهم جداً:
إن الفأرة هي مورد عام لكافة البرامج، و يجب إلغاء تقييد المؤشر بعد انتهاء سبب تقييده أو من خلال معالجات الأخطاء في حالة توقع حدوث خطأ أثناء تشغيل البرنامج.

الاستخدام:

Dim ObjUI As New TUserInterface

ObjUI.SetMousePointerFixedXY True, 0, 0, 50, 50
.
.
.
.
ObjUI.SetMousePointerFixedXY False, 0, 0, 0,0

انظر أيضاً:
الروتين SetMousePointerFixedRect.
الروتين SetMousePointerVisible.

بداية الصفحة