DesktopToolbar DropdownMenu

I want to create a DropDownMenu in a DesktopToolbar at runtime. This is my code:

QuitButton = New DesktopToolbarButton
QuitButton.Name = "QuitButton"
QuitButton.Caption = "Quit"
QuitButton.ButtonStyle = DesktopToolbarButton.ButtonStyles.PushButton
QuitButton.Icon = xcirclered
MainWindow(w).MainToolbar1.AddButton(QuitButton)

SpaceButton = New DesktopToolbarButton
SpaceButton.ButtonStyle = DesktopToolbarButton.ButtonStyles.Space
MainWindow(w).MainToolbar1.AddButton(SpaceButton)

FilesButton = New DesktopToolbarButton
FilesButton.Name = "FilesItems"
FilesButton.Caption = "Files"
FilesButton.ButtonStyle = DesktopToolbarButton.ButtonStyles.DropDownMenu
FilesButton.Icon = folder_open
MainWindow(w).MainToolbar1.AddButton(FilesButton)

//SubMenu General Files

Var subMenu As New DesktopMenuItem
subMenu.Text = "General"

subMenu.AddMenu(New DesktopMenuItem("Countries"))
subMenu.AddMenu(New DesktopMenuItem("Languages"))

MainWindow(w).MainToolbar1.FilesItems.AddMenu(subMenu)

w a reference to a dynamically created window based on MainWindow. All instructions before the comment line “Submenu General files” work well. However, I am unable to link a dropdown submenu to an element in the menu. The last line in the code is judged as erroneous ('MainToolbar has no member named FilesItems").In one of the statements above, I created a DesktopToolbarButton (style DropDownMenu) with the name “FilesItems”. Any idea what I am doing wrong?

8 posts - 4 participants

Read full topic