"warten"-Befehl in Visual Basic 2010

[Breazzy]

Hallo Leute =)

Bin seid neuestem zu den Bereich <Coden> übergetreten und muss jetzt

schon mit den ersten Problemen kämpfen :P

Meine Frage gibts einen Befehl für VB der VB warten lässt vor der nächsten Aktion ?

Zum Beispiel:

Me.BackColor = Color.Blue Hintergrund Blau
2 Sekunden warten
Me.BackColor = Color.Red Hintergrund Rot
2 Sekunden warten
Me.BackColor = Color.Black

[Kraizy​]

Eine Möglichkeit wäre:

PHP Code:

Private state As Integer = 0
Private Sub Timer_Tick (...) Handles Timer.Tick
   state += 1   
   Select Case state
      Case 1
         Me.BackColor = Color.Blue
      Case 2
         Me.BackColor = Color.Red
      Case 3
         Me.BackColor = Color.Black
         state = 0
   End Select
End Sub 


Oder du stoppst bei "Case 3" den Timer, wenn du keine Schleife haben möchtest..
Geht aber natürlich auch mit einer Loop-Schleife + Sleep-Funktion, einfach mal danach googlen...

[Ronox]

Me.BackColor = Color.Blue Hintergrund Blau
Thread.Sleep(2000)
Me.BackColor = Color.Red Hintergrund Rot
Thread.Sleep(2000)
Me.BackColor = Color.Black

Das wäre die Zweite Methode die xKraizy erwähnt hatte.

[Kraizy​]

Originally Posted by Ronox

Das wäre die Zweite Methode die xKraizy erwähnt hatte.

Wenn du das benutzen willst, dann führ das in einem extra Thread aus, sonst reagiert deine Form nicht, wenn du die Sleep-Funktion benutzt. Kleines Beispiel (aus dem Kopf, muss nicht zu 100% stimmen..)

PHP Code:

Private Sub Button_Click (...) Handles Button.Click
   Dim WechselnThread As Threading.Thread = New Threading.Thread(AddressOf Wechseln)
   WechselnThread.Start()
End Sub

Sub Wechseln()
   Do
      Me.BackColor = Color.Blue
      Threading.Thread.Sleep(2000)
      Me.BackColor = Color.Red
      Threading.Thread.Sleep(2000)
      Me.BackColor = Color.Black
   Loop
End Sub 


Das Do/Loop kannste entfernen, wenn du keine Endlosschleife haben willst, oder du stoppst den Thread per "WechselnThread.Abort()".

[Breazzy]

thx

#close request

[BigJk]

Me.BackColor = Color.Blue Hintergrund Blau
Thread.Sleep(2000)
Me.BackColor = Color.Red Hintergrund Rot
Thread.Sleep(2000)
Me.BackColor = Color.Black

ist schlecht weil dan die Form komplett stil steht als wäre sie abgestürzt. Daher hab da noch was, benutz ich immer. Hab ich irgendwan mal im Internet gefunden und schon in vielen Programmen genutzt:

 Spoiler

Imports System.Threading

Private WeiterGehts As Boolean = False
Private ms As Integer

Public Sub Wartezeit(ByVal Sekunden As Integer)
ms = Sekunden * 1000
WeiterGehts = False
Dim T As Thread = New Thread(AddressOf Warten)
T.Start()
Do
Application.DoEvents()
Loop Until WeiterGehts = True
End Sub

Private Sub Warten()
Thread.Sleep(ms)
WeiterGehts = True
End Sub

Ergebniss:

 Spoiler

Me.BackColor = Color.Blue Hintergrund Blau
Wartezeit(2)
Me.BackColor = Color.Red Hintergrund Rot
Wartezeit(2)
Me.BackColor = Color.Black

2 steht für 2 Sekunde

Hier kann man auch während des Wartens noch weiter etwas eingeben oder buttons klicken, also Form läuft weiter

MFG BigJk

[Kraizy​]

@BigJk genau das gleiche wurde 2 Posts über dir gepostet.
Achja, und DoEvents() benutzt man nicht mehr..

[.CoKe_WaVe]

Pirivate state As Integer = 0
Private Sub Timer_Tick (.) Handles Timer.Tick
state += 1
Select Case state
Case 1
Me.BackColor = Color.Blue
Case 2
Me.BackColor = Color.Red
Case 3
Me.BackColor = Color.Black
state = 0

End Select
End Sub

[SpinnenGetier]

Gib mal deinen Threadtitel bei Google ein und Tacker dir die Resultate auf die Stirn...

[Kraizy​]

Originally Posted by .CoKe_WaVe

Pirivate state As Integer = 0
Private Sub Timer_Tick (.) Handles Timer.Tick
state += 1
Select Case state
Case 1
Me.BackColor = Color.Blue
Case 2
Me.BackColor = Color.Red
Case 3
Me.BackColor = Color.Black
state = 0

End Select
End Sub

[.CoKe_WaVe]

^^