WebMenuItem.Append
From Real Software Documentation
Method
 |
This method is only available for Web applications. |
WebMenuItem.Append ( Item as WebMenuItem )
Appends the item to the end of the menu.
Examples
This example populates a contextual menu.
Dim menu As New WebMenuItem
menu.Append(New WebMenuItem("One"))
menu.Append(New WebMenuItem("Two"))
menu.Append(New WebMenuItem("Three"))
Me.ContextualMenu = menu
menu.Append(New WebMenuItem("One"))
menu.Append(New WebMenuItem("Two"))
menu.Append(New WebMenuItem("Three"))
Me.ContextualMenu = menu
This example populates two menus that are attached to a buttons on WebToolbars. The line that follows the last call to append attaches the menu to the correct button.
'Create the chart menu
Dim chartMenu As New WebMenuItem
chartMenu.Append(New WebMenuItem("Line"))
chartMenu.Append(New WebMenuItem("Bar"))
chartMenu.Append(New WebMenuItem("Pie"))
chartMenu.Append(New WebMenuItem("-"))
chartMenu.Append(New WebMenuItem("3D Line"))
chartMenu.Append(New WebMenuItem("3D Bar"))
chartMenu.Append(New WebMenuItem("3D Pie"))
WebToolBarMenu(Me.ItemWithName("ChartsButton")).Menu = chartMenu
'Create the Dates menu
Dim dateMenu As New WebMenuItem
dateMenu.Append(New WebMenuItem("Today"))
dateMenu.Append(New WebMenuItem("Tomorrow"))
dateMenu.Append(New WebMenuItem("Next Week"))
dateMenu.Append(New WebMenuItem("Next Month"))
WebToolBarMenu(Me.ItemWithName("DatesButton")).Menu = dateMenu
Dim chartMenu As New WebMenuItem
chartMenu.Append(New WebMenuItem("Line"))
chartMenu.Append(New WebMenuItem("Bar"))
chartMenu.Append(New WebMenuItem("Pie"))
chartMenu.Append(New WebMenuItem("-"))
chartMenu.Append(New WebMenuItem("3D Line"))
chartMenu.Append(New WebMenuItem("3D Bar"))
chartMenu.Append(New WebMenuItem("3D Pie"))
WebToolBarMenu(Me.ItemWithName("ChartsButton")).Menu = chartMenu
'Create the Dates menu
Dim dateMenu As New WebMenuItem
dateMenu.Append(New WebMenuItem("Today"))
dateMenu.Append(New WebMenuItem("Tomorrow"))
dateMenu.Append(New WebMenuItem("Next Week"))
dateMenu.Append(New WebMenuItem("Next Month"))
WebToolBarMenu(Me.ItemWithName("DatesButton")).Menu = dateMenu
