Eingabe = Inputbox                      zurück

Über die Inputbox kann man Texteingaben abfragen. Wie man Sie programmieren kann , zeigt folgendes Beispiel.

Sie brauchen nur 2 Befehlsflächen aus der Werkzeugkiste .  Der Name der Befehlsfläche wird wie üblich mit F4 unter der Eigenschaft Caption eingeben.

Hinter dem Befehl Wie heißen Sie ? steht folgender Code:

Sub Befehl1_Click ()

• tname = InputBox("Wie heißen Sie ?")
• Select Case tname
• Case "Franz"
  • MsgBox ("Hallo Franz")
• Case Is <> "Fritz"  : Rem Alle außer Fritz sind richtig
  • MsgBox ("Tschüss " + tname)
• Case Else
  • MsgBox ("Der alte Fritz ?")
• End Select

End Sub

Befehlserklärung:

InputBox-, InputBox$-Funktion

Die Inputbox zeigt eine Eingabeaufforderung in einem Dialogfeld an, erwartet von dem Benutzer die Eingabe von Text oder die Wahl einer Schaltfläche und liefert den Inhalt des Bearbeitungsfeldes.

Syntax

InputBox[$](Eingabeaufforderung [, [Titel] [, [Standard][, XPosition, YPosition ] ] ])

Anmerkungen

InputBox liefert einen Variant-Wert mit Vartype gleich 8 (String); InputBox$ liefert eine Zeichenfolge des String-Datentyps aus.

Select Case-Anweisung

Die Select Case-Anweisung führt je nach Wert eines Ausdrucks einen von mehreren Anweisungsblöcken aus.

Syntax

Select Case Testausdruck

• [Case Ausdrucksliste1 [Anweisungsblock-1] ]
• [Case Ausdrucksliste2 [Anweisungsblock-2] ]
• [Case Else [Anweisungsblock-n] ]

End Select