A Visual Basic InputBox bietet eine Möglichkeit für den Entwickler zur Eingabe von einem Benutzer zu erbitten , und weisen Sie das Ergebnis in eine Variable für den Einsatz in anderen Teilen einer Anwendung. Statt einer Grafik macht ein Visual Basic-Code ein Wort InputBox.The Ergebnis einer InputBox Variable könnte Teil einer Adress-Datenbank , eine Zeiterfassung oder einer anderen Anwendung zu werden. Es könnte in Rückmeldung an den Benutzer angezeigt, wenn die InputBox fragt etwas wie " Wie ist dein Name ", und wenn der Benutzer reagiert , kann der Computer beantworten "Guten Morgen [ YourName ] . Wie geht es Ihnen heute? " Der vom Benutzer angegebene Reaktion ersetzt die Variable hier in Klammern angegeben. Anleitung
1
Öffnen Sie ein neues Visual Basic-Projekt , indem Sie " Standard EXE " aus der Liste der Vorlagen, wenn Sie laden zunächst Visual Basic erscheint. Im nächsten Bildschirm , auf dem "Label"- Steuerung in der "Toolbox" auf der linken Seite des Bildschirms befindet doppelklicken. Dies stellt eine " Label1 " auf der Form in der Mitte des Bildschirms. Verwenden Sie die kleinen Boxen an den Grenzen dieser Box , um das Feld zu vergrößern.
2
Klicken Sie auf dieses neue Label , um seine Eigenschaften im Panel auf der rechten Seite angezeigt . Doppelklicken Sie auf die Eigenschaft "Caption" , um die Standard- Beschriftung zu markieren, " Label1 . " Drücken Sie die Taste "Entf" auf Ihrer Tastatur , um die Beschriftung zu entfernen.
3
Doppelklicken Sie auf das " CommandButton ", ein kleines Rechteck in der" Toolbox " , um diese zum Formular hinzufügen . Verwenden Sie die Liste der Eigenschaften , um die Standard- Beschriftung zu ändern, " Command1 " auf " anzeigen InputBox . " Auf der neu benannte Taste, um das Codefenster zu öffnen Doppelklick .
4
Typ in den folgenden Code zwischen die zwei Zeilen bereits vorhanden : " private Sub Command1_Click () " und " End Sub ".
Dim YourName , NoAnswer Wie StringDim LocX , LocY Wie IntegerLocX = 6500 ' Bildschirm Lage in twips . Es gibt 1440 twips einer inchLocY = 4500 ' Ändern Sie die Zahlen , um Ihren needsLabel1.Caption passen = "" "Diese Rohlinge die Beschriftung jedes Mal das Programm runNoAnswer =" Willst du nicht bitte sagen Sie mir Ihren Namen ? " YourName = InputBox (" Was ist Ihr Vorname? ", " Erstellen einer InputBox " , LocX , LocY ) " die beiden Kommas in einer Zeile in der Zeile oberhalb sind vitalIf YourName =" " ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " Guten Morgen", & YourName & " . Wie geht es Ihnen heute? " End If
5
Presse " F5 ", um das Programm auszuführen.