|
เมนูป็อปอัพจะใช้แอพพลิเคชั่น
เพื่อให้ผู้ใช้สามารถเข้าถึงคำสั่งที่ใช้บ่อยๆ
ได้ด้วยการ click mouse
ปุ่มขวาที่เมนู
การเพิ่มเมนูป็อปอัพเข้าไปในฟอร์ม
คอนโทรล ContextMenu
จะทำให้ผู้ใช้เข้าไปใช้งานคำสั่งในเมนูที่ใช้งานบ่อยๆ
ได้
เพื่อช่วยให้ผู้ใช้ทำงานได้อย่างรวดเร็วมากขึ้น
การเพิ่มเมนูป็อปอัพเข้าไปในฟอร์มตอนออกแบบ
1. เลือกคอนโทรล
 จากในทูลบาร์
2.
ลากไปวางบนฟอร์มที่จะสร้างเมนู
3.
กำหนดโครงสร้างเมนูตามต้องการ
โดยการกำหนดคุณสมบัติ ContextMenu
ของออบเจ็กต์นั้น ในหน้าต่างคุณสมบัติ
การเพิ่มเมนูป็อปอัพเข้าไปในฟอร์มด้วยโค้ดคำสั่ง
เพิ่มโค้ดคำสั่งนี้ เพื่อสร้างอินสแตนซ์ของคอนโทรล
ContextMenu และกำหนดให้กับคุณสมบัติ
ContextMenu ของคอนโทรลที่จะใช้ป๊อปอัพเมนูนี้
Dim MnuContextMenu as New
ContextMenu() '
สร้างออบเจ็กต์ ContextMenu
Form1.ContextMenu =
mnuContextMenu '
กำหนดให้กับออบเจ็กต์ที่จะใช้เมนูนี้
|
เราสามารถเพิ่มเมนูไอเทมเข้าไปในเมนูป๊อปอัพโดยการเพิ่มออบเจ็กต์
MenuItem เข้าไปในคอลเลคชั่น
MenuItems ของออบเจ็กต์ ContextMenu
ดังตัวอย่างโค้ดคำสั่งนี้
Private cmEdit As
ContextMenu '
ออบเจ็กต์ที่เป็นเมนูป็อปอัพไว้
Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As System.EventArgs)
Handles MyBase.Load
cmEdit =
New ContextMenu() '
สร้างออบเจ็กต์ ContextMenu
ใหม่
cmEdit.MenuItems.Add("&Cut") '
เพิ่มเมนู Cut เข้าไป
cmEdit.MenuItems.Add("&Copy")
' เพิ่มเมนู Copy เข้าไป
cmEdit.MenuItems.Add("&Paste")
' เพิ่มเมนู Paste เข้าไป
Me.ContextMenu = cmEdit '
กำหนดให้เป็นเมนูป็อปอัพบนฟอร์ม
End Sub |
 |
