Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Verzögerung einbauen
Autor: Easyrider
Datum: 12.08.04 13:29
Ich hab dir mal kurz ein Beispiel gemacht: Dim Thread1 As New Threading.Thread(AddressOf FunktionFuerThread1) Dim Thread2 As New Threading.Thread(AddressOf FunktionFuerThread2) Private Sub FunktionFuerThread1() Do Me.lblAusgabe.Text &= "1" Thread1.Sleep(1000) Loop End Sub Private Sub FunktionFuerThread2() Do Me.lblAusgabe.Text &= "2" Thread2.Sleep(1000) Loop End Sub Private Sub frmMulitthreading_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Thread1.IsAlive = False Then Thread1.Start() End If If Thread2.IsAlive = False Then Thread2.Start() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Thread1.IsAlive = True Then Thread1.Abort() End If If Thread2.IsAlive = True Then Thread2.Abort() End If End End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim form As New Form2 form.ShowDialog() End Sub Ganz am Anfang deklarier ich mir 2 neue Threads. Diese werden beim Form_Load gestartet. Jede davon führt ne Endlosschleife aus. Aber durch das Sleep(1000) wartet der Thread immer genau 1 Sekunde bevor er wieder weitergeht. Die Threads machen das simpelste was es fast gibt. Sie schreiben einfach ihre Kennung (2 oder 1) in ein Label. Damit der Code läuft brauchst du ein Formular mit 2 Buttons und ein Label. Dann noch ein 2. Formular, das du über den 2. Button aufrufst. Dann kann man nämlich sehen das die Threads auch weiterschreiben während man auf einem anderen Formular ist. Hoffe das hat dir geholfen. so far Stefan

Verzögerung einbauen	1.561	Rookie_in_Action	12.08.04 11:35
Re: Verzögerung einbauen	4.656	Easyrider	12.08.04 11:43
Re: Verzögerung einbauen	1.528	Rookie_in_Action	12.08.04 12:49
Re: Verzögerung einbauen	1.921	Easyrider	12.08.04 13:29
Re: Verzögerung einbauen	1.350	Rookie_in_Action	13.08.04 10:53
Re: Verzögerung einbauen	1.525	Rookie_in_Action	13.08.04 11:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen