EgtCAM5 :

- Cambiati nomi classi e file.
2018-04-10 17:08:35 +00:00
parent 4e2801a1c4
commit a4b5cd4834
144 changed files with 517 additions and 521 deletions
@@ -0,0 +1,20 @@
+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