[VB.NET] การสร้างเมนู (ContextMenuStrip) บนปุ่มคำสั่ง (Button) แบบ Run Time

thongkorn

ปกติปุ่มคำสั่ง (Button) บน Visual Basic 2010 จะไม่มีเมนูในการเลือกเพิ่มเติมติดมาให้ แต่เราสามารถสร้างมันขึ้นมาใหม่ ด้วยการเขียนโค้ดคำสั่งเข้าไปในขณะที่โปรแกรมทำงาน หรือที่เรียกว่า Run Time (หรือบางคนอาจจะเรียกว่าไดนามิค)


มาดูโค้ดในการสร้าง ...

1. Public Class frmContextMenuButton
   
2.     '// Create MenuStrip @Run Time
   
3.     Dim _contextmenu As New ContextMenuStrip
   
4. 
   
5.     Private Sub frmContextMenuButton_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
6.         '// Add new contextmenu
   
7.         _contextmenu.Items.Add("Image Files")
   
8.         _contextmenu.Items.Add("Document Files")
   
9.         _contextmenu.Font = New Font("Tahoma", 11, FontStyle.Regular)
   
10.         AddHandler _contextmenu.ItemClicked, AddressOf Contextmenu_Click
    
11.     End Sub
    
12. 
    
13.     ' / --------------------------------------------------------------------------
    
14.     Private Sub Contextmenu_Click(ByVal sender As System.Object, ByVal e As ToolStripItemClickedEventArgs)
    
15.         '// Choose item from contextmenu.
    
16.         Select Case e.ClickedItem.Text
    
17.             '// Browse Images
    
18.             Case "Image Files"
    
19.                 _contextmenu.Visible = False
    
20.                 '// DO SOMETHING
    
21.                 MessageBox.Show("You choose Images Files")
    
22.                 '// Browse Documents
    
23.             Case "Document Files"
    
24.                 _contextmenu.Visible = False
    
25.                 '// DO SOMETHING
    
26.                 MessageBox.Show("You choose Documents Files")
    
27.         End Select
    
28.     End Sub
    
29. 
    
30.     ' / --------------------------------------------------------------------------
    
31.     Private Sub btnAttach_Click(sender As System.Object, e As System.EventArgs) Handles btnAttach.Click
    
32.         '// Show contextmenustrip on button @run Time.
    
33.         _contextmenu.Show(btnAttach, 0, btnAttach.Height)
    
34.     End Sub
    
35. 
    
36. End Class

คัดลอกไปที่คลิปบอร์ด

optimized

ขอบคุณคับ