Emmanuele Sassi
13 lines
648 B
VB.net
13 lines
648 B
VB.net
Public Class ParameterListV
|
|
|
|
Private Sub ParameterList_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 AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM) Then
|
|
Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.SelPBTLParam = Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.SelPBTLParam
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|