Emmanuele Sassi
16 lines
528 B
VB.net
16 lines
528 B
VB.net
Imports EgtBEAMWALL.Core
|
|
|
|
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 MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
|
|
' MyMachGroup.SelPart = MyMachGroup.SelPart
|
|
' End If
|
|
' End If
|
|
'End Sub
|
|
|
|
End Class
|