Emmanuele Sassi
21 lines
1.2 KiB
VB.net
21 lines
1.2 KiB
VB.net
Public Class MachiningTreeExpanderView
|
|
|
|
' Evento necessario per impedire che venga creata la lavorazione quando si fa doppio click sulla ScrollBar
|
|
Private Sub MachiningsTreeView_MouseDoubleClick(sender As Object, e As System.Windows.Input.MouseButtonEventArgs)
|
|
'Dim src As DependencyObject = VisualTreeHelper.GetParent(DirectCast(e.OriginalSource, DependencyObject))
|
|
|
|
'' Your logic here
|
|
'If TypeOf src Is Control AndAlso src.[GetType]() <> GetType(Grid) Then
|
|
' e.Handled = True
|
|
'End If
|
|
' recupero il viewmodel associato a questa view in cui è presente la funzione che l'evento deve lanciare
|
|
Dim MachiningTreeExpanderViewModel As EgtCAM5.MachiningTreeExpanderViewModel = DirectCast(Me.DataContext, EgtCAM5.MachiningTreeExpanderViewModel)
|
|
' recupero il treeviewitem clickato(sorgente dell'evento)
|
|
Dim ClickedTreeViewItem As TreeViewItem = DirectCast(sender, TreeViewItem)
|
|
' ne recupero il VM da passare alla funzione
|
|
Dim ClickedTreeViewItemVM As MachiningTreeViewExpanderItem = DirectCast(ClickedTreeViewItem.DataContext, MachiningTreeViewExpanderItem)
|
|
MachiningTreeExpanderViewModel.TreeViewDoubleClick(ClickedTreeViewItemVM)
|
|
End Sub
|
|
|
|
End Class
|