Los controles de la class principal no se actualizan con delegados... :-/

[Eleкtro]

Es la primera vez que pruebo a hacer esto y no se que error estoy comentiendo...

Por un lado tengo la class principal (Form1)
Por otro lado tengo una class para un backgroundworker

Al usar delegados desde la segunda class para modificar la propiedad de un control de la class principal no sucede nada, la propiedad se modifica pero el control no se actualiza visualmente hablando en el form...  es decir, ni el label ni la progressbar cambian de estado


class principal.vb :

Código (vbnet) [Seleccionar] Expandir


Public Randomize_thread As New Randomize_thread_class
...
Randomize_thread.StartBackgroundTask()
...


class del backgroundworker.vb :

Código (vbnet) [Seleccionar] Expandir



Imports PlayLists.Form1

...

   Public WithEvents Randomize_thread As New BackgroundWorker

   Public Sub InvokeControl(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T))
       If Control.InvokeRequired Then
           Control.Invoke(New Action(Of T, Action(Of T))(AddressOf InvokeControl), New Object() {Control, Action})
       Else
           Action(Control)
       End If
   End Sub

...

   Public Sub Randomize_thread_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles Randomize_thread.DoWork
       Dim lines = File.ReadAllLines(PlayLists.Form1.Temp_file)
       Dim nLines = lines.Count
       Dim randomNumbers = RandomList(nLines)
       Dim tmpFile = Path.GetTempFileName()

       InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Visible = True)
       InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Maximum += nLines)
       Using sw = New StreamWriter(tmpFile, False, Encoding.UTF8)
           For i = 0 To nLines - 1
               sw.WriteLine(lines(randomNumbers(i)))
               InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Value = i)
               InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "Randomizing " + i.ToString() + " of " + (nLines - 1).ToString() + " files.")
               ' InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Refresh())
               ' InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Refresh())
           Next
       End Using
       InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "All files launched")
   End Sub

[Novlucker]

Desde el DoWork debes de invocar al método ReportProgress. Luego desde el evento ProgressChanged del BackgroundWorker realizas las modificaciones necesarias.

http://msdn.microsoft.com/es-es/library/system.componentmodel.backgroundworker.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2

Saludos

[Eleкtro]

Vale Nov, lo he intentado así

Código (vbnet) [Seleccionar] Expandir


sub dowork(...)
...
Using sw = New StreamWriter(tmpFile, False, Encoding.UTF8)
            For filei = 0 To nLines - 1
                sw.WriteLine(lines(randomNumbers(filei)))
                Randomizethread.ReportProgress(filei)
            Next
        End Using
...
end sub

Código (vbnet) [Seleccionar] Expandir

   Public Shared Sub Randomizethread_ProgressChanged(ByVal sender As System.Object, ByVal e As ProgressChangedEventArgs) Handles Randomizethread.ProgressChanged
       ' Thread.Sleep(300)
       InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "Randomizing " + filei.ToString() + " of " + (nlines - 1).ToString() + " files.")
   End Sub


Problema: Sigue sin actualizarse el label (ni cualquier otro elemento al que llame, como la barra de progreso por ejemplo vaya)

Ni con un refresh() puedo.

EDITO: El label se actualiza cuando el hilo se completa (cuando sucede el evento del workercompleted), asi que me imagino que el culpable es el FOR?, ¿Como puedo solucionarlo?

PD: No creo que séa problema del delegado porque si compruebo el valor con un msgbox(PlayLists.Form1.progresslabel.txt) veo que el valor es correcto

[Keyen Night]

Cuando realizas operaciones asincrónicas normalmente no solo es una ProgressBar la que advierte cambios a veces tenemos Label que muestran información y otros controles los cuales necesitamos modificar mientras la operación va avanzando, la forma más sencilla es usar el segundo parámetro del método ReportProgress, este es UserState, puedes crear una estructura que almacene todos los datos que necesitas pasarle al evento ProgressChanged el los recibe a través de e.UserState, es bastante sencillo y cómodo

[spiritdead]

Es la primera vez que pruebo a hacer esto y no se que error estoy comentiendo...

Por un lado tengo la class principal (Form1)
Por otro lado tengo una class para un backgroundworker

Al usar delegados desde la segunda class para modificar la propiedad de un control de la class principal no sucede nada, la propiedad se modifica pero el control no se actualiza visualmente hablando en el form...  es decir, ni el label ni la progressbar cambian de estado


class principal.vb :

Código (vbnet) [Seleccionar] Expandir


Public Randomize_thread As New Randomize_thread_class
...
Randomize_thread.StartBackgroundTask()
...


class del backgroundworker.vb :

Código (vbnet) [Seleccionar] Expandir



Imports PlayLists.Form1

...

   Public WithEvents Randomize_thread As New BackgroundWorker

   Public Sub InvokeControl(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T))
       If Control.InvokeRequired Then
           Control.Invoke(New Action(Of T, Action(Of T))(AddressOf InvokeControl), New Object() {Control, Action})
       Else
           Action(Control)
       End If
   End Sub

...

   Public Sub Randomize_thread_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles Randomize_thread.DoWork
       Dim lines = File.ReadAllLines(PlayLists.Form1.Temp_file)
       Dim nLines = lines.Count
       Dim randomNumbers = RandomList(nLines)
       Dim tmpFile = Path.GetTempFileName()

       InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Visible = True)
       InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Maximum += nLines)
       Using sw = New StreamWriter(tmpFile, False, Encoding.UTF8)
           For i = 0 To nLines - 1
               sw.WriteLine(lines(randomNumbers(i)))
               InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Value = i)
               InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "Randomizing " + i.ToString() + " of " + (nLines - 1).ToString() + " files.")
               ' InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Refresh())
               ' InvokeControl(PlayLists.Form1.ProgressBar1, Sub(x) x.Refresh())
           Next
       End Using
       InvokeControl(PlayLists.Form1.progresslabel, Sub(x) x.Text = "All files launched")
   End Sub

no uses backgroundworker con delegados ... usa threads

[Eleкtro]

no uses backgroundworker con delegados ... usa threads

Si eso está muy bien pero... todos sabemos que un "System.Threading.Thread" sólamente se puede iniciar una vez,
He leido que para poder ejecutar el mismo thread infinitas veces solo hay que resetear la variable de la instancia del thread, osea crear una nueva instancia de "System.Threading.Thread" que llame al mismo thread

Por ejemplo:

Código (vbnet) [Seleccionar] Expandir

   Sub MITHREAD()
      msgbox("hello world")
   End Sub

Dim T_first_instance As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
T_first_instance.Start()

' esperamos a que el thread finalice y entonces lo volvemos a llamar cuando necesitemos volver a usarlo, pero creandolo con otro nombre de variable:
Dim T_second_instance As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
T_second_instance.Start()
'
' EL ADREESOF ES EL MISMO PARA LAS DOS INSTANCIAS YA QUE LA INTENCIÓN ES PODER USAR EL MISMO THREAD UNA Y OTRA VEZ.

No sé si lo hice bien, donde leí la solución para ejecutar el mismo thread las veces que uno quiera no había ningún ejemplo,
pero en caso de que el ejemplo que he dado séa correcto entonces necesito encontrar la manera de que el nombre de la variable se cree automáticamente para poder llamarlo las veces que séa necesario...
Necesitaría algo así:

Código (vbnet) [Seleccionar] Expandir


sub button1_clicked...
      Dim RandomClass As New Random()
       Dim RandomNumber As Integer = RandomClass.Next()
       Dim T_(RandomNumber) As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
       T_(RandomNumber).Start()
end sub


Está claro que mi intento de randomizar la variable de la instancia no funciona,
¿Me pueden ayudar a hacerlo?

[spiritdead]

Si eso está muy bien pero... todos sabemos que un "System.Threading.Thread" sólamente se puede iniciar una vez,
He leido que para poder ejecutar el mismo thread infinitas veces solo hay que resetear la variable de la instancia del thread, osea crear una nueva instancia de "System.Threading.Thread" que llame al mismo thread

Por ejemplo:

Código (vbnet) [Seleccionar] Expandir

   Sub MITHREAD()
      msgbox("hello world")
   End Sub

Dim T_first_instance As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
T_first_instance.Start()

' esperamos a que el thread finalice y entonces lo volvemos a llamar cuando necesitemos volver a usarlo, pero creandolo con otro nombre de variable:
Dim T_second_instance As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
T_second_instance.Start()
'
' EL ADREESOF ES EL MISMO PARA LAS DOS INSTANCIAS YA QUE LA INTENCIÓN ES PODER USAR EL MISMO THREAD UNA Y OTRA VEZ.

No sé si lo hice bien, donde leí la solución para ejecutar el mismo thread las veces que uno quiera no había ningún ejemplo,
pero en caso de que el ejemplo que he dado séa correcto entonces necesito encontrar la manera de que el nombre de la variable se cree automáticamente para poder llamarlo las veces que séa necesario...
Necesitaría algo así:

Código (vbnet) [Seleccionar] Expandir


sub button1_clicked...
      Dim RandomClass As New Random()
       Dim RandomNumber As Integer = RandomClass.Next()
       Dim T_(RandomNumber) As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
       T_(RandomNumber).Start()
end sub


Está claro que mi intento de randomizar la variable de la instancia no funciona,
¿Me pueden ayudar a hacerlo?

al terminar el ciclo del thread no podras reiniciarlo, por lo que debes liberarlo y crear 1 nueva instancia usando el "new"

Dim T_first_instance As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
despues que trabaje simplemente harias

T_first_instance = new thread(addressOF sub/function)
y vuelves a arrancarlo

y de usarles claro q se puede, pronto te mostrare mi motor FTP, con soporte multi-descargas paralelas

que trabaja con 1 hilo monitor y de 2-4 hilos auxiliares 1 para cada descarga o subida para subidas y descargas paralelas

[Eleкtro]

despues que trabaje simplemente harias
T_first_instance = new thread(addressOF sub/function)
y vuelves a arrancarlo

uf, perfecto lo conseguí, esto me va a ahorrar mucha comida de coco, gracias !!

Código (vbnet) [Seleccionar] Expandir

Public thread_1 As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Cada vez que el botón séa presionado se ejecutará el mismo thread una y otra vez, oh yeah :D !!!
        Dim thread_1 As System.Threading.Thread = New Threading.Thread(AddressOf MITHREAD)
        thread_1.Start()
    End Sub

PD: Realmente no encontraba información sobre como ejecutar el mismo thread una vez "ha muerto".