Tipp 0113 Threads starten
Autor/Einsender:
Datum:
  Michael Werner
03.04.2006
Entwicklungsumgebung:   VB 2005
Framework:   2.0
Dieser Tipp veranschaulicht einfache Thread-Funktionen. Ein MainThread startet in eine Shared Sub Main einen zweiten Thread, indem mit dem Operator AddressOf ein Delegate erzeugt wird. Mit der Methode Thread.Join wird der aufrufenden MainThread bis zum Beenden des zweiten Threads blockiert.
 
Imports System.Threading

Public Class ThreadsStarten

  Public Shared F1 As New Form1

  Public Shared Sub Thread2()
    Dim i As Integer
    For i = 0 To 9
      F1.ListBox1.Items.Add( _
            "THREAD2 macht Schleifenarbeit: " & i.ToString)
    Next
  End Sub

  Public Shared Sub Main()
    F1.Show()
    F1.ListBox1.Items.Add( _
          "MAINTHREAD: Tach auch. Ich bin der MainThread. " & _
          "Ich starte jetzt einen zweiten Thread (THREAD2).")

    Dim t As New Thread(AddressOf Thread2)
    t.Start()
    For i As Integer = 1 To 3
      F1.ListBox1.Items.Add( _
            "MAINTHREAD macht Schleifeanarbeit. Schritt " & _
            i.ToString)
    Next
    F1.ListBox1.Items.Add( _
          "MAINTHREAD: JOIN: Ich muß jetzt warten bis THREAD2 " & _
          "beendet ist. Puhh, ist das langweilig...")

    t.Join()
    F1.ListBox1.Items.Add("MAINTHREAD: Da bin ich wieder. " & _
          "THREAD2 wurde beendet. Jetzt kann ich auch " & _
          "eeendlich gehen...")
    MessageBox.Show("Auf Wiedersehen! Ihr MAINTHREAD", _
          "...und Tschüß", MessageBoxButtons.OK, _
          MessageBoxIcon.Information)
  End Sub
End Class
 
Weitere Links zum Thema
Vom Nebenthread auf Steuerelemente zugreifen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (10 kB) Downloads bisher: [ 382 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 22. Januar 2012