Endlosschleife
16.08.2006 09:48:15
Andreas
ich hab folgendes Problem. Ich würde gern aus Testgründen so etwas wie eine Endlosschleife bauen. Und zwar soll eine Frage erscheinen, ob der Test weiter geführt werden soll. Wird auf OK geklickt, soll die gleiche Frage wieder erscheinen, aber zugleich ein Zähler mir den Wert mit angeben, der wievielte Durchlauf das ist. Sobald irgendwann auf Abbrechen geklickt wird, soll die Abfrage beendet werden.
Folgendes hab ich mir bereits gedacht, aber das funktioniert so nicht:
Private Sub CommandButton1_Click()
Dim frage As VbMsgBoxResult
Dim a As Integer
a = vbOK.Count
frage = MsgBox("Das ist ein Test!" + Chr(13) _
+ "Soll der Test weiter gehen?" _
+ Chr(13) + "Das ist der " + a + ". Durchlauf!", _
vbOKCancel, "Frage zum Test")
If frage = vbOK Then
frage
Else
End
End If
End Sub
Kann mir jemand helfen?
Danke
Andreas