Private Sub DoThreading()
        'ToDo: ProgressBar anwerfen
 
        'Neuen Thread initialisieren; AddressOf *** bezieht sich auf die 
        ' Methode, die beim Start des Threads aufgerufen wird
        Dim objThread As New Thread(AddressOf ProceedThread)
 
        objThread.Start()
    End Sub
 
    'Zeiger auf eine Methode / für .Invoke erforderlich
    Private Delegate Sub ThreadCallBack()
 
    'Hier landet der objThread.Start, aufgerufen vom "Nebenthread"
    Private Sub ProceedThread()
        'ToDo: Tu irgendwas
 
        'Aus dem Thread "zurückkehren" / Delegat initialisieren; Methode 
        ' angeben, auf die gezeigt wird
        Me.Invoke(New ThreadCallBack(AddressOf ThreadFinished))
    End Sub
 
    'Hier landet der Invoke dann, jedoch diesmal im "Hauptthread":
    Private Sub ThreadFinished()
        'ToDo: ProgressBar stoppen / Ergebnis anzeigen etc.
    End Sub

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein

Beitrag wurde zuletzt am 11.05.11 um 09:37:30 editiert.