Message Box mit Ja/Nein Buttons

LittleProgrammer

Wie kann ich eine MsgBox mit Ja/Nein Buttons erstellen, die bei klick auf "Nein" die Aktion abbricht und nur bei klick auf "Ja" weitermacht??
Idee

thx im Vorraus

daHooligan

die box gibbet mit

code:
1:	MsgBox("test", MsgBoxStyle.YesNo)

die auswertung was geklickt wurde? keine ahnung

//edit: nach einmal googeln und dreial probieren:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Dim z as integer
//jede menge code
        z = MsgBox("Treffen Sie Ihre Wahl", MsgBoxStyle.YesNo, "Test")
        If z = 6 Then
            MsgBox("sie haben ja geklickt")
        End If
        If z = 7 Then
            MsgBox("sie haben nein geklickt")
        End If

//edit: "backrub"-link:

LittleProgrammer

thx funktioniert!
Mauer

hätt ich auch selbst druff kommen könne^^

deluxe

Hey leute ich bin neu und würde gerne mal was wissen ob ihr mal so freundlich wäret
also ich habe so ne msgboxkette gemacht

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

MsgBox "VIRUS!! Ihre Festplatte wird jetzt Gelöscht."
MsgBox "War ein Witz ;) lol"
z = MsgBox("Fandest du den witzig?", MsgBoxStyle.YesNo)
If z = 6 Then
Msgbox "Ach is das so?", MsgBoxStyle.OK
End If
If z = 7 Then
MsgBox "und sowas nennt sich Freund", MsgBoxStyle.OK
End If

Also jetzt meine frage könnte mir jemand sagen was ich falsch gemacht habe also erst kommt die box Virus ihre festplatte wird jetzt gelösch dann die box mit der narchricht war ein Witz Augenzwinkern

lol und dann geht es nicht weiter ich möchte das wenn man bei der box mit der narchrich das das ein witz war wenn man da auf ok klickt das dann die box kommt fandest du den lustig und wenn mal ja klickt das da dan halt steht Ach ist das so und wenn man nein klickt soll da stehen und sowas nennt sich freund
ich danke im vorraus

Wolf

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

MsgBox "VIRUS!! Ihre Festplatte wird jetzt Gelöscht." <-Klammern drum!
MsgBox "War ein Witz ;) lol" <-da auch...
z = MsgBox("Fandest du den witzig?", MsgBoxStyle.YesNo) <-richtig...
If z = 6 Then
Msgbox "Ach is das so?", MsgBoxStyle.OK <-nochmal Klammern...
End If
If z = 7 Then
MsgBox "und sowas nennt sich Freund", MsgBoxStyle.OK <-und da auch...
End If

PS:
Das Programm ist irgendwie geschmacklos.

deluxe

Danke
Ich weiß zwar nicht wieso das programm geschmacklos ist aber ich bin ja auch nich gerade der profi darin und deshalb versuche ich erstmal leichtere sachen wie z.b. das kleine scherz programm aber wie man das findet bleeibt jedem sich selbst überlassen. großes Grinsen

also meine freundin hat sich erst mall erschreckt geschockt

.......
Und eine bitte könntest du mir sagen von wo ich das lernen könnte auch so wirklich was mit vb zu anzufangen?? danke

deluxe

sorry aber wenn ich da starte geht das wieder nicht da steht dan das in zeile 3 zeichen 1 ein fehler ist.
Schreib das mal bitte selbst und könntest du mir helfen den fehler zu finden
weil ich habe gemerkt ds das mit den klammern nicht das problem ist

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

MsgBox ("VIRUS!! Ihre Festplatte wird jetzt Gelöscht.")
MsgBox ("War ein Witz ;) lol")
z = MsgBox ("Fandest du den witzig?", MsgBoxStyle.YesNo)
If z = Yes Then
Msgbox ("Ach is das so?", MsgBoxStyle.OK)
End If
If z = No Then
MsgBox ("und sowas nennt sich Freund", MsgBoxStyle.OK)
End If

daHooligan

hast du "z" auch definiert??
so... Dim z as wasauchimmer

deluxe

Könntest du mir vielleicht sagen was das ist? und wie das geht?

deluxe

mein script sieht so aus und ich weiß im mom nicht weiter wenn mir jemand helfen könnte mit erklärung wäre super danke.

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:

MsgBox ("VIRUS!! Ihre Festplatte wird jetzt Gelöscht.")
MsgBox ("War ein Witz ;) lol")
z = MsgBox ("Fandest du den witzig?", MsgBoxStyle.YesNo)
If z = Yes Then
Msgbox ("Ach is das so?", MsgBoxStyle.OK)
End If
If z = No Then
MsgBox ("und sowas nennt sich Freund", MsgBoxStyle.OK)
End If

daHooligan

Du hast keine Ahnung vom programmieren oder??

schreib mal irgendwo rein "Dim z as Integer"

survivor

Du benutzt noch das alte VB6, oder? Falls ja, dann lade dir mal bei Microsoft die aktuelle VisualBasic2005 Express Edition runter. Das ist kostenlos, und damit funktioniert das hier dann auch:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Dim z As MsgBoxResult
MsgBox("VIRUS!! Ihre Festplatte wird jetzt Gelöscht.")
MsgBox("War ein Witz ;) lol")
z = MsgBox("Fandest du den witzig?", MsgBoxStyle.YesNo)
If z = MsgBoxResult.Yes Then
 MsgBox("Ach is das so?", MsgBoxStyle.OkOnly)
End If
If z = MsgBoxResult.No Then
 MsgBox("und sowas nennt sich Freund", MsgBoxStyle.OkOnly)
End If

Für VisualBasic2005 gibt es hier vom Galileo Verlag ein kostenloses eBook. Das ist zwar relativ umfangreich, für absolute Anfänger aber nicht unbedingt zu empfehlen. Aber du kannst es dir ja mal anschauen.

deluxe

nein nicht wirklich aber ich bin lernfähig. großes Grinsen

und was muss ich dann machen?
meinst du so?

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Dim z as Integer
MsgBox ("VIRUS!! Ihre Festplatte wird jetzt Gelöscht.")
MsgBox ("War ein Witz ;) lol")
z = MsgBox ("Fandest du den witzig?", MsgBoxStyle.YesNo)
If z = Yes Then
Msgbox ("Ach is das so?", MsgBoxStyle.OK)
End If
If z = No Then
MsgBox ("und sowas nennt sich Freund", MsgBoxStyle.OK)
End If

daHooligan

nein.
entweder:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Dim z as Integer
MsgBox ("VIRUS!! Ihre Festplatte wird jetzt Gelöscht.")
MsgBox ("War ein Witz ;) lol")
z = MsgBox ("Fandest du den witzig?", MsgBoxStyle.YesNo)
If z = 6 Then
Msgbox ("Ach is das so?", MsgBoxStyle.OK)
End If
If z = 7 Then
MsgBox ("und sowas nennt sich Freund", MsgBoxStyle.OK)
End If

oder

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Dim z As MsgBoxResult
MsgBox("VIRUS!! Ihre Festplatte wird jetzt Gelöscht.")
MsgBox("War ein Witz ;) lol")
z = MsgBox("Fandest du den witzig?", MsgBoxStyle.YesNo)
If z = MsgBoxResult.Yes Then
 MsgBox("Ach is das so?", MsgBoxStyle.OkOnly)
End If
If z = MsgBoxResult.No Then
 MsgBox("und sowas nennt sich Freund", MsgBoxStyle.OkOnly)
End If

deluxe

Einen Sehr sehr GRO?EN dank an saHooligan und survivor
ihr habt mir sehr geholfen danke für das onlinebook survivor
immerhin mir ist ein licht aufgegangen
Idee

Forensoftware: Burning Board 2.3.1, entwickelt von WoltLab GmbH