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

[רחמים]

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

[אוריי]

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

[מנחם]

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

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

[אוריי]

פוסט זה נמחק!