[VB.NET] การสร้างเมนู (ContextMenuStrip) บนปุ่มคำสั่ง (Button) แบบ Run Time
http://www.g2gnet.com/webboard/images/vbnet/contextmenubutton.pngปกติปุ่มคำสั่ง (Button) บน Visual Basic 2010 จะไม่มีเมนูในการเลือกเพิ่มเติมติดมาให้ แต่เราสามารถสร้างมันขึ้นมาใหม่ ด้วยการเขียนโค้ดคำสั่งเข้าไปในขณะที่โปรแกรมทำงาน หรือที่เรียกว่า Run Time (หรือบางคนอาจจะเรียกว่าไดนามิค)
มาดูโค้ดในการสร้าง ...
Public Class frmContextMenuButton
'// Create MenuStrip @Run Time
Dim _contextmenu As New ContextMenuStrip
Private Sub frmContextMenuButton_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'// Add new contextmenu
_contextmenu.Items.Add("Image Files")
_contextmenu.Items.Add("Document Files")
_contextmenu.Font = New Font("Tahoma", 11, FontStyle.Regular)
AddHandler _contextmenu.ItemClicked, AddressOf Contextmenu_Click
End Sub
' / --------------------------------------------------------------------------
Private Sub Contextmenu_Click(ByVal sender As System.Object, ByVal e As ToolStripItemClickedEventArgs)
'// Choose item from contextmenu.
Select Case e.ClickedItem.Text
'// Browse Images
Case "Image Files"
_contextmenu.Visible = False
'// DO SOMETHING
MessageBox.Show("You choose Images Files")
'// Browse Documents
Case "Document Files"
_contextmenu.Visible = False
'// DO SOMETHING
MessageBox.Show("You choose Documents Files")
End Select
End Sub
' / --------------------------------------------------------------------------
Private Sub btnAttach_Click(sender As System.Object, e As System.EventArgs) Handles btnAttach.Click
'// Show contextmenustrip on button @run Time.
_contextmenu.Show(btnAttach, 0, btnAttach.Height)
End Sub
End Class
ขอบคุณคับ
หน้า:
[1]