שתי פעולות על פקד אחד באקסס

[אוריי]

האם יש אפשרות כזו לעשות על אותו הפקד שתי פעולות בצורה שבלחיצה על מקש שמאלי אני יקבל פעולה מסויימת ובלחיצה על מקש ימין אני יקבל תוצאה אחרת לדוגמת מאפיני פקד וכו'

[רחמים]

@אוריי בארוע לחיצה תבדוק אם לחצו בימני או בשמאלי ותגיב בהתאם

[אוריי]

@רחמים
זה מה שיש לי
אין לי ימין או שמאל

[מנחם]

תבחר בעת ירידת מקש

code_text
Private Sub XXX_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 

ותבדוק את הערך של Button
1= לחיצה שמאלית, 2= לחיצה ימנית, 3 =לחיצה אמצעית

[אוריי]

@מנחם
אפשר קצת יותר הסבר מה אני אמור לעשות ומה התוצאה שתהיה לי?

[רחמים]

@אוריי

הנכון הוא בארוע עליית לחצן עכבר

Private Sub פקודה51_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   If Button = 1 Then ' שמאלי
         ' עשה משהו
   ElseIf Button = 2 Then ' ימני
         ' עשה משהו
   ElseIf Button = 3 Then ' אמצעי
         ' עשה משהו
   End If
 
End Sub

[חייםיודלביץ]

@רחמים אמר בשתי פעולות על פקד אחד באקסס:

@אוריי

הנכון הוא בארוע עליית לחצן עכבר

Private Sub פקודה51_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   If Button = 1 Then ' שמאלי
         ' עשה משהו
   ElseIf Button = 2 Then ' ימני
         ' עשה משהו
   ElseIf Button = 3 Then ' אמצעי
         ' עשה משהו
   End If
 
End Sub

במקש שמאלי לאחר ביצוע הפעולה הוא מוציא את האופציה המובנית של מקש שמאלי איך אפשר לבטל את זה ?

תודה

ככה:

[אוריי]

@רחמים
לא עושה כלום
מה אמור לצאת??

[מנחם]

@אוריי
אני מנסה לחשוב למה זה לא הצליח לך
אולי לא החלפת נכון את שם הפקד מהקוד של @רחמים לשם הפקד שלך?
האם קודים אחרים כן עובדים?

[אוריי]

@מנחם
ברור שהחלפתי
שם הפקד הוא 2000
וזה הקוד שכתבתי בעליית לחצן עכבר

Private Sub Ctl2000_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 1 Then ' שמאלי
         ' עשה משהו
   ElseIf Button = 2 Then ' ימני
         ' עשה משהו
   ElseIf Button = 3 Then ' אמצעי
         ' עשה משהו
   End If
End Sub

אולי הייתי צריך לשנות עוד משהו?

[מנחם]

במקום

         ' עשה משהו

אתה צריך להכניס קוד שיעשה משהו

אם גם את זה עשית, תבדוק שהפרוצדורת אירוע בעת עליית לחצן העכבר מקושרת לקוד

[אוריי]

@מנחם
תודה חבל ש @רחמים לא כתב את זה מפורש כי לא הבנתי את זה מדבריו
עובד מצויין
לא הצלחתי להפעיל מקש אמצעי
לאיזה מקש מדובר?

[אוריי]

@חייםיודלביץ אמר בשתי פעולות על פקד אחד באקסס:

@רחמים אמר בשתי פעולות על פקד אחד באקסס:

@אוריי

הנכון הוא בארוע עליית לחצן עכבר

Private Sub פקודה51_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   If Button = 1 Then ' שמאלי
         ' עשה משהו
   ElseIf Button = 2 Then ' ימני
         ' עשה משהו
   ElseIf Button = 3 Then ' אמצעי
         ' עשה משהו
   End If
 
End Sub

במקש שמאלי לאחר ביצוע הפעולה הוא מוציא את האופציה המובנית של מקש שמאלי איך אפשר לבטל את זה ?

תודה

ככה:

האם באמת אפשר לבטל את זה??
@רחמים
@מנחם

[chagold]

@אוריי אמר בשתי פעולות על פקד אחד באקסס:

@מנחם
תודה חבל ש @רחמים לא כתב את זה מפורש כי לא הבנתי את זה מדבריו
עובד מצויין
לא הצלחתי להפעיל מקש אמצעי
לאיזה מקש מדובר?

לחיצה על הגלגל

[OdedDvir]

האם באמת אפשר לבטל את זה??

@אוריי אפשר באפשרויות של אקסס
קובץ > אפשרויות > מסד נתונים נוכחי > אפשרויות של סרגל כלים ורצועת כלים
ותבטל את תיבות הסימון של "אפשר תפריטים..."

[אוריי]

@OdedDvir אמר בשתי פעולות על פקד אחד באקסס:

@אוריי אפשר באפשרויות של אקסס
קובץ > אפשרויות > מסד נתונים נוכחי > אפשרויות של סרגל כלים ורצועת כלים
ותבטל את תיבות הסימון של "אפשר תפריטים..."

אבל הוא יבטל את כל התפריטים במסמך.
לא?

[אוריי]

@chagold אמר בשתי פעולות על פקד אחד באקסס:

@אוריי אמר בשתי פעולות על פקד אחד באקסס:

@מנחם
תודה חבל ש @רחמים לא כתב את זה מפורש כי לא הבנתי את זה מדבריו
עובד מצויין
לא הצלחתי להפעיל מקש אמצעי
לאיזה מקש מדובר?

לחיצה על הגלגל

זה ספציפית לא עובד..

[אוריי]

@אוריי אמר בשתי פעולות על פקד אחד באקסס:

אבל הוא יבטל את כל התפריטים במסמך.
לא?

אכן מבטל את כל התפריטים במסמך
האם מישהו יודע איך אפשר להוריד רק את התפריטים של הפקדים בלבד?

[אוריי]

@רחמים אמר בשתי פעולות על פקד אחד באקסס:

@אוריי

הנכון הוא בארוע עליית לחצן עכבר

Private Sub פקודה51_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   If Button = 1 Then ' שמאלי
         ' עשה משהו
   ElseIf Button = 2 Then ' ימני
         ' עשה משהו
   ElseIf Button = 3 Then ' אמצעי
         ' עשה משהו
   End If
 
End Sub

אחרי שעברתי לפקודה הזו
נוצרה לי בעיה
כי אני עשיתי על כל פקד כך:

Private Sub Ctl1_Click()
    Ctl0_Click
    End Sub

שמפנה לפקד 0 ושם עשיתי את כל הפקודה
אבל לאחר שאני עובר לפקודה בעת עליית לחצן עכבר אני לא מצליח להפנות אליו
ניסתי את זה וגם לא עובד

Private Sub Ctl1_Click()
    Ctl0_MouseUp
    End Sub

[אוריי]

פוסט זה נמחק!