Samuele E. Locatelli
14 lines
526 B
VB.net
14 lines
526 B
VB.net
Public Class PartInRawPartListV
|
|
|
|
Private Sub PartInRawPartList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
|
|
If TypeOf sender Is DataGridRow Then
|
|
Dim Row As DataGridRow = DirectCast(sender, DataGridRow)
|
|
If Not IsNothing(Row) AndAlso Row.IsSelected Then
|
|
Dim MyMachGroup As Core.MyMachGroup = DirectCast(Map.refMachGroupPanelVM.SelectedMachGroup, Core.MyMachGroup)
|
|
MyMachGroup.SelPart = MyMachGroup.SelPart
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|