|
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
|
|
|
|
|
Windows-Version |
98/SE |
|
|
ME |
|
|
NT |
|
|
2000 |
|
|
XP |
|
|
Vista |
|
|
Win
7 |
|
|
|
|
Download (10
kB)
|
Downloads bisher: [ 382 ]
|
|
|