DesktopToolbarButton.Icon
From Xojo Documentation
Property (As Picture )
aDesktopToolbarButton.Icon = newPictureValue
or
PictureValue = aDesktopToolbarButton.Icon
New in 2021r3
Supported for all project types and targets.
or
PictureValue = aDesktopToolbarButton.Icon
New in 2021r3
Supported for all project types and targets.
The picture to be displayed by the DesktopToolbarButton.
Example
This example adds icons to the Cities menu and each MenuItem in the Initialized event of the Toolbar.
DropDownButton = New DesktopToolButton
DropDownButton.ButtonStyle = DesktopToolbarButton.ButtonStyles.DropDown
DropDownButton.Caption = "Cities"
// create a menu
Var myMenu As New DesktopMenuItem
Var myMenuItem1 As New DesktopMenuItem
Var myMenuItem2 As New DesktopMenuItem
Var myMenuitem3 As New DesktopMenuItem
DropDownButton.Name = "Cities Menu"
myMenu.Text = "Cities"
myMenu.Icon = IndiaImage
myMenuItem1.Text = "Grand Blanc"
myMenuItem2.Text = "Bad Axe"
myMenuitem3.Text = "Flint"
// icons added to the project
myMenuItem1.Icon = SaturnImage
myMenuItem2.icon = VenusImage
myMenuItem3.icon = UranusImage
myMenu.Add(myMenuItem1)
myMenu.Add(myMenuItem2)
myMenu.Add(myMenuItem3)
// assign the new menu to the toolitem..
DropDownButton.Menu = myMenu
// add to the toolbar
Me.Add(DropDownButton)
DropDownButton.ButtonStyle = DesktopToolbarButton.ButtonStyles.DropDown
DropDownButton.Caption = "Cities"
// create a menu
Var myMenu As New DesktopMenuItem
Var myMenuItem1 As New DesktopMenuItem
Var myMenuItem2 As New DesktopMenuItem
Var myMenuitem3 As New DesktopMenuItem
DropDownButton.Name = "Cities Menu"
myMenu.Text = "Cities"
myMenu.Icon = IndiaImage
myMenuItem1.Text = "Grand Blanc"
myMenuItem2.Text = "Bad Axe"
myMenuitem3.Text = "Flint"
// icons added to the project
myMenuItem1.Icon = SaturnImage
myMenuItem2.icon = VenusImage
myMenuItem3.icon = UranusImage
myMenu.Add(myMenuItem1)
myMenu.Add(myMenuItem2)
myMenu.Add(myMenuItem3)
// assign the new menu to the toolitem..
DropDownButton.Menu = myMenu
// add to the toolbar
Me.Add(DropDownButton)