Permalink
Fetching contributors…
Cannot retrieve contributors at this time
60 lines (48 sloc) 1.72 KB
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Controls.Primitives
Imports System.Windows.Documents
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports System.Windows.Data
Imports System.Windows.Media
Namespace ContextMenusVB
'@ <summary>
'@ Interaction logic for Pane1_xaml.xaml
'@ </summary>
Partial Class Pane1
'<SnippetContextMenuEventHandlers>
Private Sub OnOpened(ByVal sender As Object, ByVal args As RoutedEventArgs)
cmButton.Content = "The ContextMenu Opened"
End Sub
Private Sub OnClosed(ByVal sender As Object, ByVal args As RoutedEventArgs)
cmButton.Content = "The ContextMenu Closed"
End Sub
'</SnippetContextMenuEventHandlers>
Sub IsOpenSnipper()
'<SnippetContextMenuIsOpen>
If cm.IsOpen = True Then
cmButton.Content = "The ContextMenu opened and the IsOpen property is true."
End If
'</SnippetContextMenuIsOpen>
End Sub
Private Sub OnClick(ByVal sender As Object, ByVal args As RoutedEventArgs)
'<Snippet2>
Dim btn As New Button()
Dim contextmenu As New ContextMenu()
Dim mi As New MenuItem()
Dim mia As New MenuItem()
btn.Background = Brushes.Red
btn.Height = 30
btn.Content = "Created with Visual Basic."
mi.Header = ("Item 1")
contextmenu.Items.Add(mi)
mia.Header = ("Item 2")
contextmenu.Items.Add(mia)
btn.ContextMenu = (contextmenu)
cv2.Children.Add(btn)
'</Snippet2>
End Sub
End Class
End Namespace