Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

problem mit msgbox yesNO
Autor: kev
Datum: 06.04.05 15:07
hallo, in folgenden Code komme ich nicht an die zweite Box. Ich bekomme die erste 2 mal und dann gleich die dritte. Keine Ahnung warum.... Private Sub Command2_Click() 'dies kommt zweimal wenn ich auf ja klicke Dim MldgxXx, StilxXx, TitelxXx, Text1xXx, Antwort MldgxXx = "Möchtest Du mir nicht erst einmal danken??" & (Chr(13) & Chr(10)) StilxXx = vbYesNo + vbQuestion + vbDefaultButton1 TitelxXx = "Und Dirk Sprach..." Antwort = MsgBox(MldgxXx, StilxXx, TitelxXx) If Antwort = 6 Then GoTo zweiter Else GoTo zweiter2 'dies kommt gar ncht... zweiter: Dim MldgxXx1, StilxXx1, TitelxXx1, Text1xXx1, Antwort1 MldgxXx1 = "Meinst Du das auch ernst?" & (Chr(13) & Chr(10)) StilxXx1 = vbYesNo + vbQuestion + vbDefaultButton1 TitelxXx1 = "Und Dirk Sprach..." Antwort1 = MsgBox(MldgxXx, StilxXx, TitelxXx) If Antwort1 = 6 Then GoTo zweiter1 Else GoTo zweiter2 zweiter1: MsgBox "Na gut, ich glaube Dir und freue mich, daß ich Dir helfen konnte", , "er sprach..." Unload Me Exit Sub zweiter2: MsgBox "...dann machs Dir eben selbst!", , "sso" End Sub

problem mit msgbox yesNO	710	kev	06.04.05 15:07
Re: problem mit msgbox yesNO	439	vbtricks	06.04.05 16:17
Re: problem mit msgbox yesNO	442	kev	07.04.05 09:11
Re: problem mit msgbox yesNO	449	Oliver500	06.04.05 19:36
Re: problem mit msgbox yesNO	440	kev	07.04.05 09:02

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