Demetrio Cassarino
13 lines
661 B
VB.net
13 lines
661 B
VB.net
Public Class StrategyManagerV
|
|
|
|
Private Sub TreeViewItem_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
|
|
If TypeOf sender IsNot TreeViewItem Then Return
|
|
Dim TreeViewItem As TreeViewItem = DirectCast(sender, TreeViewItem)
|
|
Dim TreeViewItemButton As Object = TreeHelperManager.FindVisualParent(Of Primitives.ToggleButton)(e.OriginalSource)
|
|
Dim TreeViewItemParentNode As Object = TreeHelperManager.FindVisualParent(Of TreeViewItem)(sender)
|
|
If Not IsNothing(TreeViewItemButton) OrElse Not IsNothing(TreeViewItemParentNode) Then Return
|
|
TreeViewItem.IsExpanded = Not TreeViewItem.IsExpanded
|
|
End Sub
|
|
|
|
End Class
|