[TuT] Eine Pause realisieren

==================================================
==================================================

In diesem TuT zeige ich euch, wie wir eine
Pause in der Anwendung nutzen.

==================================================
==================================================

Die Delay-Funktion werden wir in VisualBasic vergeblich
suchen, und das ist auch gut so, da schließlich Windows
ein Multitasking-System ist.

==================================================
==================================================

• Was wir brauchen
- 2x Buttons (1 = Delay, 2 = Sleep)
- 1x ListBox
- 1x Textbox

==================================================
==================================================

==================================================
==================================================

Als erstes definieren wir die Zeit Funktion.
Variante 1:

Zitat

Private Sub Delay(ByVal Zeit As Integer)
Dim Zeit1 As Integer = System.Environment.TickCount
While (System.Environment.TickCount - Zeit1) < Zeit
Application.DoEvents()
End While
End Sub

Button1:

Zitat

ListBox1.Items.Add("Start")
Delay(Textbox1.Text)
ListBox1.Items.Add("Stop")

Nun ist Sleep an der Reie.
Variante 2-
Button2:

Zitat

ListBox1.Items.Add("Start")
Application.DoEvents()
System.Threading.Thread.Sleep(TextBox1.Text)
ListBox1.Items.Add("Stop")

==================================================
==================================================

Hier nochmal der gesamte SourceCode:

Zitat

Public Class Form1

Private Sub delay(ByVal zeit As Integer)
Dim zeit1 As Integer = System.Environment.TickCount
While (System.Environment.TickCount - zeit1) < zeit
Application.DoEvents()
End While
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add("Start")
delay(TextBox1.Text)
ListBox1.Items.Add("Stop")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Add("Start")
Application.DoEvents()
System.Threading.Thread.Sleep(TextBox1.Text)
ListBox1.Items.Add("Stop")
End Sub
End Class

Alles anzeigen

==================================================
==================================================

Anmerkung:

Zitat

Die Delay funktion ist vorzuziehen, da sie wärend
der NUtzung noch die anderen funktionen zulässt, wohingegen
die Sleep funktion die gesammte Form "schlafen" lässt.

==================================================
==================================================
Credits: Sedrika