Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Visual Basic Code: MsgBox mit Ereignis
Frage
Guten Morgen Supportnetler :)
Ich hätte da eine kleine Frage an Euch...
Seit kurzem lerne ich das Programmieren mit Visual Basic.
Bei meinem 1. Projekt habe ich folgendes versucht:
Sobald man auf einem Button klickt (Herunterfahren - Kommando [Shell ("%windir%\system32\shutdown.exe /s /f /t 0")]), erscheint da eine Messagebox mit zwei Antworte-Möglichkeiten: Yes / No
Sobald man auf Yes drückt, erscheint eine weitere Meldung: Aufwiedersehen! und danach wird der Computer heruntergefahren.
Bisher sieht's so aus (nur leider funktioniert es nicht :/ ):
[code]Private Sub Command10_Click()
If MsgBox("Wollen Sie den Computer wirklich Herunterfahren?", vbQuestion + vbYesNo, "Test fragt:") = vbYes Then
MsgBox "Aufwiedersehen!", vbExclamation, "Test meldet:"
Shell ("%windir%\system32\shutdown.exe /s /f /t 2")
End
Else
End If
End Sub[/code]
Hat einer von Euch vielleicht eine gescheite Lösung? :)
Antwort 1 von coros
Hallo breznica,
nachfolgender VB-Code sollte das machen, was Du Dir vorstellst.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgender VB-Code sollte das machen, was Du Dir vorstellst.
Private Sub Command10_Click()
If MsgBox("Wollen Sie den Computer wirklich Herunterfahren?", vbQuestion + vbYesNo, "Test fragt:") = vbYes Then
MsgBox "Aufwiedersehen!", vbExclamation, "Test meldet:"
Shell ("shutdown -s -t 00")
End
End Sub
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von breznica
Vielen vielen dank, bloss da fehlte ein 'End If', ist aber nicht so tragisch, nochmals, ich danke Ihnen, hat alles geklappt :)