Files
egtbeamwall/EgtBEAMWALL.Optimizer/BTLPartManager/BTLPartManagerV.xaml.vb
T
Demetrio Cassarino 647614e67e Optimizer 2.7.10.2
-Eliminato classi e pagine nascoste
-Rinominato pagine e classi
2025-10-27 09:15:16 +01:00

15 lines
538 B
VB.net

Public Class BTLPartManagerV
Private Sub ClosePopUp_Click(sender As Object, e As RoutedEventArgs)
Dim Button As Button = DirectCast(sender, Button)
Dim StackPanel As StackPanel = DirectCast(Button.Parent, StackPanel)
Dim OnlyProdBTLPartManagerV As BTLPartManagerV = DirectCast(StackPanel.Parent, BTLPartManagerV)
Dim Popup As Primitives.Popup = DirectCast(OnlyProdBTLPartManagerV.Parent, Primitives.Popup)
If Not IsNothing(Popup) Then
Popup.IsOpen = False
End If
End Sub
End Class