VbYes

Forumthread: VbYes

VbYes

02.08.2006 16:31:56

Darren

Hi,
ich habe so eine MessageBox gebastelt:
MsgBox "Die Spalten betragen:" & xtest, vbYesNo
Wie kann ich die Buttons steuern, wenn vbYes und vbNo ?
Ich hatte es mit diesem Code versucht habe es geht nciht.
If vbNo Then
GoTo acabou
End If
Grüße
Darren

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VbYes

02.08.2006 16:37:18

Peter
AW: VbYes

02.08.2006 16:38:47

Jan3
AW: VbYes

02.08.2006 16:55:32

Darren

AW: VbYes

02.08.2006 16:37:18

Peter

Hallo Darren,
sieh dir das ,al an:


Sub Loeschabfrage()
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", _
vbYesNo + vbQuestion, "    Löschabfrage, nur zur Sicherheit.") = vbYes Then
MsgBox "Ja wurde angeklickt." & Chr(10) & Chr(10) & _
"Nun geht der Auftrag verloren...", _
64, "    Hinweis für " & Application.UserName
Else
MsgBox "Nein wurde angeklickt." & Chr(10) & Chr(10) & _
"Gerade noch einmal Glück gehabt...", _
64, "    Hinweis für " & Application.UserName
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: VbYes

02.08.2006 16:38:47

Jan3

Hi,
Hast Du schon mal in der Hilfe nachgesehen.
MsgBox-Funktion (Beispiel)
In diesem Beispiel wird die MsgBox-Funktion verwendet, um eine Meldung zu einem schwerwiegenden Fehler in einem Dialogfeld mit den Schaltflächen Ja und Nein anzuzeigen. Nein ist dabei die Voreinstellung. Der von MsgBox gelieferte Wert hängt von der Schaltfläche ab, die der Benutzer wählt. Im Rahmen dieses Beispiels wird angenommen, daß DEMO.HLP eine Hilfedatei ist, in der ein Thema mit der Kontextnummer 1000 vorhanden ist.
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Mldg = "Möchten Sie fortfahren ?" ' Meldung definieren.
Stil = vbYesNo + vbCritical + vbDefaultButton2 ' Schaltflächen
' definieren.
Titel = "MsgBox-Demonstration" ' Titel definieren.
Hilfe = "DEMO.HLP" ' Hilfedatei
' definieren.
Ktxt = 1000 ' Kontext für Thema
' definieren.
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt) ' Meldung anzeigen.
If Antwort = vbYes Then ' Benutzer hat "Ja"
' gewählt.
Text1 = "Ja" ' Operation ausführen.
Else ' Benutzer hat "Nein"
' gewählt.
Text1 = "Nein" ' Operation ausführen.
End If
Jan

AW: VbYes

02.08.2006 16:55:32

Darren

Hallo Ihr beiden,
danke sehr! Ich habe das Problem somit lösen können!
Grüße
Darren

Forumthread: VbYes

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread