*فورم* كيف أجعل زري الفأرة الأيسر ولأيمن تنفذ أوامر

الذي فهمته أنك تريد تنفيذ أمر حال النقر وليس سدل قائمة مختصرة مثلا .

في حدث عند الضغط على الماوس لمقطع تفصيل ضع أحد الاختيارات التالية حسب حاجتك :

' بدون ضغط شفت
' ضغط الزر الأيسر على مقطع تفصيل
If Button = 1 And Shift = 0 Then
MsgBox "لقد ضغطت الزر الأيسر"
End If
' ضغط الزر الأيمن على مقطع تفصيل
If Button = 2 And Shift = 0 Then
MsgBox "لقد ضغطت الزر الأيمن"
End If
'---------------------------
' مع ضغط الشفت
' ضغط الزر الأيسر على مقطع تفصيل
If Button = 1 And Shift = 1 Then
MsgBox "لقد ضغطت الزر الأيسر مع الشفت"
End If
' ضغط الزر الأيمن على مقطع تفصيل
If Button = 2 And Shift = 1 Then
MsgBox "لقد ضغطت الزر الأيمن مع الشفت"
End If

استبدل الرسالة Msgbox بأي إجراء أو قم باستدعاء لإجراء آخر .

مع ملاحظة إلغاء القائمة المختصرة من النموذج إذا اردت استعمال الزر الأيمن لتنفيذ أمر ما .

ولك تحياتي

نعم هذا ما أردة لقد أثريتنا بعلمك بارك الله فيك

ولك احترامي وتقديرير

عذراً

نسخت الكود ووضعت زر أمر على النموذج وقمت بإلصاق الكود واغليت القوائم المختصرة من النموذج ولم يعمل الكود

نفس الكود على تذييل النموذج عند النقر ولم يعمل فما السبب في نظرك

بارك الله فيك

هذا الكود مخصص لحدث عند الضغط على الماوس لمقطع تفصيل ولن يعمل على غيره .

إذا كانت لكل رغبه أخرى أذكرها لنرى إمكانية عملها .

ولك تحياتي

الأخ الفاضل

ما أود عمله هو كود لأزرار الفأرة مثلاً عند نقر زر الفأرة الأيمن على مربع نص يصبح غاطس وعند نقر زر الفأرة الأيسر يصبح بارز 0

أنا لم أطلب هذا الكود لغرض التسلية ولكنني أود إجراء أحداث ربما أحتاج لهذا في عدة أوامر 0

هذا دون كلفة عليك الله يعطيك العافية

في حدث عند الضغط على الماوس لمربع النص ضع :

If Button = 1 Then
Me![اسم مربع النص].SpecialEffect = 1
Else
Me![اسم مربع النص].SpecialEffect = 2
End If

ولك تحياتي

الف شكر لك على المواصلة في الإضاح

وفقك الله

للرفع .. ((للفائدة)) و (( الأرشيف ))