Emmanuele Sassi
25 lines
1.1 KiB
VB.net
25 lines
1.1 KiB
VB.net
Public Class StrategyV
|
|
|
|
''' <summary>
|
|
''' Funzione che permette di riselezionare l'elemento ActiveStrategyList della lista già selezionato
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
Private Sub AvailableStrategyList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
|
|
If TypeOf sender IsNot ListBoxItem Then Return
|
|
Dim Item As ListBoxItem = DirectCast(sender, ListBoxItem)
|
|
If Not IsNothing(Item) AndAlso Item.IsSelected Then
|
|
Map.refStrategyManagerVM.SelTreeItem.SelAvailableStrategy = Map.refStrategyManagerVM.SelTreeItem.SelAvailableStrategy
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ActiveStrategyList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
|
|
If TypeOf sender IsNot ListBoxItem Then Return
|
|
Dim Item As ListBoxItem = DirectCast(sender, ListBoxItem)
|
|
If Not IsNothing(Item) AndAlso Item.IsSelected Then
|
|
Map.refStrategyManagerVM.SelTreeItem.SelActiveStrategy = Map.refStrategyManagerVM.SelTreeItem.SelActiveStrategy
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|