Private Sub lstJobs_MouseRightButtonUp(sender As Object, e As MouseButtonEventArgs) Handles lstJobs.MouseRightButtonUp Dim o As ObjectDataProvider Dim j As Job = lstJobs.SelectedItem Dim cMenu As New ContextMenu, mi1 As New MenuItem If j.Status = "a-current" Then 'MsgBox(j.Status) mi1.Header = ("Mark as _Finished") Else 'MsgBox(j.Taken) mi1.Header = ("Mark as _Unfinished") End If cMenu.Items.Add(mi1) lstJobs.ContextMenu = (cMenu) End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)