فيجول بيسك
بسم الله الرحمن الرحيم
مرحبا بك عزيزي الزائر. المرجوا منك أن تعرّف بنفسك و تدخل المنتدى معنا. إن لم يكن لديك حساب بعد, نتشرف بدعوتك لإنشائه.


منتدى الفيجول بيسك
 
الرئيسيةالرئيسية  البوابةالبوابة  اليوميةاليومية  س .و .جس .و .ج  بحـثبحـث  الأعضاءالأعضاء  المجموعاتالمجموعات  التسجيلالتسجيل  دخول  

شاطر | 
 

 كود لمعرفة زر الفأرة المضغوط عليه

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Admin
Admin


المساهمات : 26
تاريخ التسجيل : 26/02/2011

مُساهمةموضوع: كود لمعرفة زر الفأرة المضغوط عليه   الثلاثاء مارس 29, 2011 11:41 pm

كود لمعرفة زر الفأرة المضغوط عليه


هذا الكود البرمجي سوف يساعدك في كيفية التعامل مع ازرار الفأرة
و بالتحديد معرفة الزر المضغوط
نقوم بفتح فورم جديد , داخل قسم الاجراءات نضيف
في القسم العام الكود التالي:

الكود:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As KeyCodeConstants) As Integer
Public Function MButtonDown(btButton As Byte) As Boolean
Select Case btButton
Case Is = 1
MButtonDown = CBool(GetKeyState(vbKeyLButton) And &H8000)
Case Is = 2
MButtonDown = CBool(GetKeyState(vbKeyRButton) And &H8000)
Case Is = 3
MButtonDown = CBool(GetKeyState(vbKeyMButton) And &H8000)
End Select
End Function
ثم في MouseDown للفورم اضف الكود التالي:

الكود:

If MButtonDown(1) Then MsgBox "لقد ضغطت على الزر الايسر"
If MButtonDown(2) Then MsgBox "لقد ضغطت على الزر الايمن "
If MButtonDown(3) Then MsgBox "لقد ضغطت على زر الوسط "

الكود النهائي سوف يكون على الشكل التالي:

الكود:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As KeyCodeConstants) As Integer
Public Function MButtonDown(btButton As Byte) As Boolean
Select Case btButton
Case Is = 1
MButtonDown = CBool(GetKeyState(vbKeyLButton) And &H8000)
Case Is = 2
MButtonDown = CBool(GetKeyState(vbKeyRButton) And &H8000)
Case Is = 3
MButtonDown = CBool(GetKeyState(vbKeyMButton) And &H8000)
End Select
End Function

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MButtonDown(1) Then MsgBox "لقد ضغطت على الزر الايسر"
If MButtonDown(2) Then MsgBox "لقد ضغطت على الزر الايمن "
If MButtonDown(3) Then MsgBox "لقد ضغطت على زر الوسط "
End Sub
قم بتشغيل البرنامج الان ثم كليك يمين
سوف يخبرك البرنامج بانك ضغطت
عن طريق مربع الحوار بانك ضغطت
علي يمين الفأرة


.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://visualbasic.alamontada.com
 
كود لمعرفة زر الفأرة المضغوط عليه
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
فيجول بيسك :: فيجول بيسك Visual Basic-
انتقل الى: