Creating Menus in Code using VB.net
By: Emiley J.
This example creates a menu system - all you really have to do is to create MenuItem objects and use the MenuItems collection's Add method to add them to menus or other menu items:
Dim mainMenu1 As New MainMenu()
Dim WithEvents menuItem1 As New MenuItem()
Dim WithEvents menuItem2 As New MenuItem()
Dim WithEvents menuItem3 As New MenuItem()
Dim WithEvents menuItem4 As New MenuItem()
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
menuItem1.Text = "File"
menuItem2.Text = "New"
menuItem3.Text = "Text File..."
menuItem3.Checked = True
menuItem3.Shortcut = Shortcut.CtrlT
menuItem4.Text = "Image..."
menuItem4.Shortcut = Shortcut.CtrlI
menuItem2.MenuItems.Add(menuItem3)
menuItem2.MenuItems.Add(menuItem4)
AddHandler menuItem3.Click, AddressOf MenuItem3_Click
menuItem1.MenuItems.Add(menuItem2)
mainMenu1.MenuItems.Add(menuItem1)
Menu = mainMenu1
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles menuItem2.Click
MsgBox("You clicked me!")
End Sub
Archived Comments
1. what about asp.net?
View Tutorial By: tradeready at 2009-05-06 03:04:20
Comment on this tutorial
- Data Science
- Android
- AJAX
- ASP.net
- C
- C++
- C#
- Cocoa
- Cloud Computing
- HTML5
- Java
- Javascript
- JSF
- JSP
- J2ME
- Java Beans
- EJB
- JDBC
- Linux
- Mac OS X
- iPhone
- MySQL
- Office 365
- Perl
- PHP
- Python
- Ruby
- VB.net
- Hibernate
- Struts
- SAP
- Trends
- Tech Reviews
- WebServices
- XML
- Certification
- Interview
categories
Related Tutorials
Using Resume Next and Resume Line in VB.net
Using On Error GoTo 0 in VB.net
Getting an Exception's Number and Description in VB.net
Raising an Exception Intentionally in VB.net
Exception Filtering in the Catch Block in VB.net
Using Multiple Catch Statements in VB.net
Throwing an Exception in VB.net
Throwing a Custom Exception in VB.net
Changes in Controls from VB6 to VB.net
Unstructured Exception Handling in VB.net