Home Page על האתר מפת אתר מילון מונחים ספרים קישורים

תפריטים קופצים ()PopUp

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

יצירת תפריט קופץ

כדי ליצור תפריט קופץ, קודם כל עליך ליצור תפריט באופן רגיל, בו תוסיף את הפקודות שיופיעו בתפריט הקופץ. אם ברצונך שהתפריט של התפריט הקופץ לא יופיע בשורת התפריט, אז תשנה את תכונת ה Visible- שלו ל .False-
כעת לאחר שיצרת תפריט עבור התפריט הקופץ, ניתן להציג את התפריט על ידי שימוש בפקודה ,PopupMenu המציגה תפריט קופץ.
משתמשים בה כך:

PopupMenu mnuPopup

כאשר במקום mnuPopup צריך לכתוב את שם התפריט שברצונך להציג

ניתן לקבוע שהתפריט הקופץ יופיע משמאלו, מימינו או ממורכז יחסית לסמן העכבר. עושים זאת על ידי הצבת הערכים הבאים לאחר שם התפריט:
- 0 משמאלו של הסמן.
- 4 ממורכז ביחס לסמן.
- 8 מימינו של הסמן.

כמו כן ניתן לקבוע שהתפריט הקופץ יגיב גם ללחיצה על כפתור העכבר הימני על ידי הצבת הערך .2
לדוגמא:

PopupMenu mnuPopup, 2

מיקומו של התפריט הקופץ

אם לא מגדירים היכן התפריט יופיע, אז התפריט יופיע במקום סמן העכבר
אם בכל זאת ברצונך לגרום שהתפריט יופיע במיקום מסויים, ניתן לעשות זאת בצורה הבאה:

PopupMenu mnuPopup, 0, 800, 900

קוד זה גורם להצגת התפריט הקופץ mnuPopup במיקום x=800, y=900 (כמובן יש להתחשב ביחידות המידה בהן אתה משתמש: טוויפים, פיקסלים וכו').


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

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnuPopup, 0
End If
End Sub

באדיבות ד"ר ויבי «