Demetrio Cassarino
15 lines
538 B
VB.net
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
|