Suche
Programmschnipsel
Eingabe Fenster aufrufen |
|
Öffnet ein Pop-Up Fenster und zeigt einen Infotext an und eine Zeile zur Eingabe von Text:
Dim sReturn
sReturn = InputBox("Wann war heute der Sonnenaufgang ?", "Frühaufsteher-Wissen", "07:30") MsgBox "Folgendes kam als Antwort :" & vbcrlf & sReturn , vbOK Syntax: sReturn = InputBox(sInfoText [, sTitel ] [, sVorgabewert] sInfoText: Meldung im Dialogfenster sTitel (optipnal): Fenstertitel sVorgabewert (optipnal): Eingabefeld ist damit vorbelegt. |