freshman2017
Goto Top

Messagbox anpassen

Hallo,

vielleicht könntet Ihr mir helfen.
Ich habe Messagebox erstellt, die ein Skript ausführen soll, wenn ich auf "Ja" klicke. Ich habe jedoch Schwierigkeiten,
eine zweite Funktion einzubauen, die wenn ich auf "Nein" klicke, ein Verzeichnis öffnen soll. Habe es mit dem 2. Code probiert,
geht aber nicht face-sad Wer hat da ein Tipp für mich?

Wer hat eine Idee, wie ich die Felder "Nein" in Öffnen umbennen kann?

Option Explicit
Dim ws,Question,PathProgram
Set ws = CreateObject("wscript.shell")  
PathProgram = "%userprofile%\Desktop\CSV\Skripte\skript.bat"  
PathProgram = "%userprofile%\Desktop\CSV\Skripte\"  
Question = Msgbox("Möchten Sie das Skript wirklich starten?",VbYesNoCancel + VbQuestion + VbDefaultButton1, "Starten?")  
If Question = VbYes Then
     ws.run DblQuote(PathProgram)
End If
'***************************************  
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'***************************************  

Option Explicit
Dim ws,Question,PathProgram
Set ws = CreateObject("wscript.shell")  
PathProgram = "%userprofile%\Desktop\CSV\Skripte\skript.bat"  
PathProgram2 = "%userprofile%\Desktop\CSV\Skripte\"  
Question = Msgbox("Möchten Sie das Skript wirklich starten?",VbYesNoCancel + VbQuestion + VbDefaultButton1, "Starten?")  
If Question = VbYes Then
     ws.run DblQuote(PathProgram)
End If
If Question = VbNo Then
     ws.run DblQuote(PathProgram1)
End If
'***************************************  
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'***************************************  

Beste Grüße!

Content-Key: 334545

Url: https://administrator.de/contentid/334545

Ausgedruckt am: 19.03.2024 um 10:03 Uhr

Mitglied: 132895
132895 08.04.2017 aktualisiert um 16:13:55 Uhr
Goto Top
"PathProgram1" gibbet im zweiten Code nich face-smile und im ersten setzt du zweimal die selbe Variable "PathProgram" einmal mit einer Datei und das andere mal mit einem Pfad.
Also alles Flüchtigkeitsfehler.
Mitglied: rubberman
Lösung rubberman 08.04.2017 um 16:12:59 Uhr
Goto Top
Hallo freshman2017

Die Fehlermeldungen sollten bereits ziemlich eindeutig sein. Wenn du Option Explicit definiert hast, kannst du nur Variablen verwenden, die mit Dim deklariert wurden (oder Konstanten). Ebenso macht es wenig Sinn der Variablen PathProgram2 einen Wert zuzuweisen, die du dann gar nicht nutzt (weil du versuchst eine Variable PathProgram1 zu nutzen, die nicht existiert).
Option Explicit

Dim ws
Set ws = CreateObject("wscript.shell")  

Const PathProgram = "%userprofile%\Desktop\CSV\Skripte\skript.bat"  
Const PathProgram2 = "%userprofile%\Desktop\CSV\Skripte\"  

Select Case Msgbox("Möchten Sie das Skript wirklich starten?",VbYesNoCancel + VbQuestion + VbDefaultButton1, "Starten?")  
  Case vbYes
    ws.run """" & PathProgram & """"  
  Case VbNo
    ws.run """" & PathProgram2 & """"  
End Select

Grüße
rubberman
Mitglied: freshman2017
freshman2017 08.04.2017 um 16:23:22 Uhr
Goto Top
Super, das klappt ja.
Wer hat denn noch ´ne Idee, wie ich die Schaltflächen wie "Nein" umbenennen kann?
Jemand ne Idee?
Mitglied: rubberman
rubberman 08.04.2017 um 16:39:41 Uhr
Goto Top
Mit VBScript hast du dazu keine Möglichkeit.

Grüße
rubberman
Mitglied: Pjordorf
Pjordorf 08.04.2017 um 16:40:00 Uhr
Goto Top
Hallo,

Zitat von @freshman2017:
Wer hat denn noch ´ne Idee, wie ich die Schaltflächen wie "Nein" umbenennen kann?
Geht so einfach nicht.
Du nutzt eine vorgefertigte Message Box und nutzt deren Ja / Nein Knöpfen. Warum soll dann dort ein anderer Text dort stehen? Bau dir deine eigene Message Box (Custom), da kannst du deine Knöpfe benennen wie du willst. Oder du formulierst die Frage anders damit ein Ja / Nein / Vielleicht als Antwort angebrachter ist...

http://www.ozgrid.com/forum/showthread.php?t=93607
http://www.dummies.com/software/microsoft-office/excel/how-to-customize ...
http://www.vbaexpress.com/forum/archive/index.php/t-18231.html
https://www.mrexcel.com/forum/excel-questions/368296-rename-buttons-yesn ...
http://gregmaxey.com/word_tip_pages/custom_vba_msgbox.html

Gruß,
Peter