13 lines
397 B
VB.net
13 lines
397 B
VB.net
Public Class TopPanelV
|
|
|
|
Private Sub ModifyModeList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
|
|
If TypeOf sender Is ListBoxItem Then
|
|
Dim Item As ListBoxItem = DirectCast(sender, ListBoxItem)
|
|
If Not IsNothing(Item) AndAlso Item.IsSelected Then
|
|
Map.refTopPanelVM.SetModifyIsChecked(False)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|