Bueno el titulo dice la mitad. Estoy creando un splash screen y al tratar de hacerlo dinamico me encontre con que se crea por un hilo diferente, por lo que debia realizar los cambios mediante Invoke. Mi problema es que estos cambios se realizan desde funciones declaradas en un Modulo, por lo que no existe Me. Algun reemplazo de Me.invoke desde un modulo? o alguna otra forma de crear un splash screen dinamico?
Creo haber entendido bien :xD sino aclarame más
Si el proyecto es corto y personal puedes definir Control.CheckForIllegalCrossThreadCalls como False y el ApartamentState del thread en STA para que los threads puedan tener acceso a los controles.
Si es algo más serio puedes usar siempre delegados, este ejemplo se refiere a Me
Delegate Function Me_Delegate() As Form
Public Function _Me() As Form
If Me.InvokeRequired Then
Return Me.Invoke(New Me_Delegate(AddressOf _Me), New Object() {})
Else
Return Me
End If
End Function
mmm no termino de entender muy bien, perdona.
El tema es el siguiente. Dentro del splash screen hay un label en el cual iria acualizando el estado (ej: "cargando configuracion...", "cargando X...", etc) y una barra de proreso; mi problema inicial surge con los threads dado que el splash screen no trabaja con el mismo thread que la aplicacion (o eso entendi), por lo que termine leyendo esto (http://msdn.microsoft.com/en-us/library/ms171728(VS.90).aspx). Intentando llevar esos ejemplos a mi aplicacion, me di cuenta que mi problema numero dos era como usar Me.Invoke desde el modulo donde estan las funciones (desde el que queria actualizar el splash screen)
Los threads no pueden o al menos no deberian tener comunicación con los controles y esto se resuelve usando delegados como el ejemplo que te puse arriba ese ejemplo devuelve de manera segura el objeto Me. Si quieres setear el texto de un label en un thread debes hacer un delegado para eso, mira este ejemplo que acabo de escribir:
Public Class Form1
Public T As New Threading.Thread(AddressOf Thread_Sub)
Public Sub Thread_Sub()
SetControlText(Label1, "Texto cambiado") 'Aqui no da error
'Label1.Text = "Texto cambiado" 'Aqui da error
End Sub
Public Delegate Sub SetControlText_Delegate(ByVal Ctrl As Control, ByVal Text As String)
Public Sub SetControlText(ByVal Ctrl As Control, ByVal Text As String)
If Me.InvokeRequired Then
Me.Invoke(New SetControlText_Delegate(AddressOf SetControlText), New Object() {Ctrl, Text})
Else
Ctrl.Text = Text
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
T.Start()
End Sub
End Class
mientras vos respondias como no estaba mirando me puse a leer aver como lo podia solucionar, y hize un codigo con delegados pero por algun motivo no funciona correctamente.
'Dentro del Splash Screen
Public Sub SplashUpdate(ByVal text As String, ByVal percent As Integer)
Label1.Text = text
ProgressBar1.Value = percent
End Sub
'Dentro de mi modulo
Delegate Sub SplashUpdateing(ByVal text As String, ByVal percent As Integer)
Private sstatus As String
Private svalue As Integer
Private S As New Splash
Private Method As SplashUpdateing = AddressOf S.SplashUpdate
'Dentro de una de las funciones del modulo
sstatus = "Loading vehicles..."
Method.Invoke(sstatus, svalue)
Ahora bien revise el codigo, y el evento SplashUpdate es llamado, los parametros se pasan bien, pero el label no cambia su contenido. ¿Por Que?
(solo para saber en que falle y aprender)
EDIT: Ya me di cuenta xq no funcionaba, olvidalo y muchas gracias por el ejemplo.
De esa forma sigues trantando el control de forma no segura, lee el ejemplo y nota la diferencia.