Dim menuTool As New MenuTool()
menuTool.Caption = "Menu Tool"
menuTool.ButtonType = MenuToolButtonType.SegmentedState
menuTool.SmallImage = getImageSource("/Images/icons/Ribbon/QuickStyles_16x16.png")
menuTool.LargeImage = getImageSource("/Images/icons/Ribbon/QuickStyles_32x32.png")
AddHandler menuTool.Click, AddressOf menuTool_Click
' MenuTool Click
Private Sub menuTool_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim menuTool As MenuTool = TryCast(sender, MenuTool)
Debug.Write("HasImage: " + menuTool.HasImage)
Debug.Write("ImageResolved: " + menuTool.ImageResolved)
End Sub
'Get Image Source
Private Function getImageSource(ByVal uriString As String) As BitmapImage
Dim bmpImage As New BitmapImage()
bmpImage.BeginInit()
bmpImage.UriSource = New Uri(uriString, UriKind.RelativeOrAbsolute)
bmpImage.EndInit()
Return bmpImage
End Function