Foro de elhacker.net

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 :

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

class del backgroundworker.vb :

 
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

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

Vale Nov, lo he intentado así

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

    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

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 ;)

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:

    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í:

 
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

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

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".