online 1
gast (50)

/ Forum / Skripte(PHP,ASP,Perl...)

Skripte(PHP,ASP,Perl...)Skripte(PHP,ASP,Perl...)

Fragevon breznica vom 17.12.2019, 07:30 Options

Lösung

Visual Basic Code: MsgBox mit Ereignis

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 :/ ):

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


Hat einer von Euch vielleicht eine gescheite Lösung? :)


Antwort schreiben

Antwort 1 von coros vom 17.12.2019, 08:44 OptionsLösung

Lösung
Hallo breznica,

nachfolgender VB-Code sollte das machen, was Du Dir vorstellst.

[b]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[/b]



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 vom 17.12.2019, 12:03 Options

Vielen vielen dank, bloss da fehlte ein 'End If', ist aber nicht so tragisch, nochmals, ich danke Ihnen, hat alles geklappt :)

Ähnliche Themen

Visual Basic & Exel + Schleifen
Kennyger  08.03.2007 - 167 Hits - 8 Antworten

makros aktivieren
bangs  22.04.2008 - 90 Hits -

visual basic minimieren
HugoHamburger  30.11.2009 - 123 Hits - 4 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 16:59:01 2026