Demetrio Cassarino
14 lines
483 B
VB.net
14 lines
483 B
VB.net
Public Class OnlyProdBTLPartManagerV
|
|
|
|
Private Sub ClosePopUp_Click(sender As Object, e As RoutedEventArgs)
|
|
Dim Button As Button = DirectCast(sender, Button)
|
|
Dim OnlyProdBTLPartManagerV As OnlyProdBTLPartManagerV = DirectCast(Button.Parent, OnlyProdBTLPartManagerV)
|
|
Dim Popup As Primitives.Popup = DirectCast(OnlyProdBTLPartManagerV.Parent, Primitives.Popup)
|
|
|
|
If Not IsNothing(Popup) Then
|
|
Popup.IsOpen = False
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|