Hola buenas noches estoy intentando crear elementos (textbox) en tiempo de ejecución. Pero me salta la excepción a la hora de asignarle la posicion en pantalla (*).PointToScreen:
System.InvalidOperationException: 'Este Visual no está conectado a PresentationSource.'
Alguna Idea por donde van los tiros?, saludos.
Private Sub AñadirCajaEstado(ByVal numeroSector, ByVal estado, ByVal color)
If Me.Dispatcher.CheckAccess() Then
Dim textBoxDynamic As New TextBox
With textBoxDynamic
.Name = "textBoxDynamic"
.Text = numeroSector.ToString
.Height = 20
.Width = 20
.TextAlignment = HorizontalAlignment.Center
.Foreground = Brushes.White
.Background = color
.BorderThickness = New Thickness(0)
If numeroSector <= 15 Then
*.PointToScreen(New Point(19 + (20 * Convert.ToInt32(numeroSector.ToString)), 30))*
ElseIf numeroSector > 15 And numeroSector <= 31 Then
.PointToScreen(New Point(19 + (20 * Convert.ToInt32(numeroSector.ToString - 16)), 52))
Else
.PointToScreen(New Point(19 + (20 * Convert.ToInt32(numeroSector.ToString - 32)), 72))
End If
End With
Me.cuadros.Children.Add(textBoxDynamic)
Else
Dim d As New añadirCajaEstadoCallback(AddressOf AñadirCajaEstado)
Me.Dispatcher.Invoke(d, numeroSector, estado, color)
End If
End Sub