- Se traslada versión a git desde tfs

VentanaErrores.xaml.vb

@@ -0,0 +1,34 @@
+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