35 lines
1019 B
VB.net
35 lines
1019 B
VB.net
Imports System.Windows.Media.Animation
|
|
|
|
Public Class VentanaErr
|
|
Friend propietario As ContenedorAplicacion
|
|
|
|
Public Sub MostrarVentana()
|
|
RellenaDatos()
|
|
Dim st As Storyboard = DirectCast(FindResource("Mostrar"), Storyboard)
|
|
st.Begin(Me)
|
|
End Sub
|
|
|
|
Public Sub OcultarVentana()
|
|
Dim st As Storyboard = DirectCast(FindResource("Ocultar"), Storyboard)
|
|
st.Begin(Me)
|
|
End Sub
|
|
|
|
Sub MostrarYOcultarVentana()
|
|
RellenaDatos()
|
|
Dim st As Storyboard = DirectCast(FindResource("MostrarYOcultar"), Storyboard)
|
|
st.Begin(Me)
|
|
End Sub
|
|
|
|
Private Sub RellenaDatos()
|
|
Dim ecvs As New CollectionViewSource
|
|
Dim le = (From er In propietario._Aplicacion.ErroresValidacion.Errores Select er.ErrorContent).ToList
|
|
Me.DataContext = le
|
|
Dim w = Window.GetWindow(propietario)
|
|
Me.Left = w.ActualWidth - Me.ActualWidth + w.Left - 30
|
|
Me.Top = w.ActualHeight - Me.ActualHeight + w.Top - 70
|
|
End Sub
|
|
|
|
|
|
|
|
End Class
|