Private Sub SetupControls()
Dim NewToolStripMenuItem As ToolStripMenuItem
'Coordinator context menu
Dim myCoordinatorContextMenuStrip As ContextMenuStrip
myCoordinatorContextMenuStrip = New ContextMenuStrip
NewToolStripMenuItem = New ToolStripMenuItem("Clear", Nothing, AddressOf ClearCoordinator, "Clear")
myCoordinatorContextMenuStrip.Items.Add(NewToolStripMenuItem)
Dim newToolStripMenuItemSeparator As New ToolStripSeparator
myCoordinatorContextMenuStrip.Items.Add(newToolStripMenuItemSeparator)
NewToolStripMenuItem = New ToolStripMenuItem("Set as default", Nothing, AddressOf SetCoordinatorAsDefault, "Set as default")
myCoordinatorContextMenuStrip.Items.Add(NewToolStripMenuItem)
NewToolStripMenuItem = New ToolStripMenuItem("Clear default", Nothing, AddressOf ClearDefaultCoordinator, "Clear default")
myCoordinatorContextMenuStrip.Items.Add(NewToolStripMenuItem)
CoordinatorLookup.ContextMenuStrip = myCoordinatorContextMenuStrip
End Sub
Private Sub ClearCoordinator(ByVal sender As System.Object, ByVal e As System.EventArgs)
Job.Coordinator.Clear() 'Coordinator is a staff entity
End Sub
Private Sub SetCoordinatorAsDefault(ByVal sender As System.Object, ByVal e As System.EventArgs)
Job.SetCoordinatorAsDefault()
End Sub
Private Sub ClearDefaultCoordinator(ByVal sender As System.Object, ByVal e As System.EventArgs)
Job.ClearDefaultCoordinator()
End Sub
Return to Technical and or Programming
Users browsing this forum: No registered users and 11 guests