Un Visual Basic InputBox fornisce un modo per lo sviluppatore per sollecitare input da un utente e assegnare il risultato a una variabile per l'uso in altre parti di un'applicazione . Invece di un'immagine grafica , una parola in codice Visual Basic rende un risultato InputBox.The di una variabile InputBox potrebbe far parte di un database di indirizzi , una scheda attività o altre applicazioni . Potrebbe apparire nel feedback all'utente se il InputBox chiede qualcosa del tipo " Qual è il tuo nome ", e , quando l'utente risponde , il computer può rispondere " Buongiorno [ Nome utente] . Come stai oggi ? "La risposta fornita dall'utente sostituisce la variabile qui mostrato tra parentesi. Istruzioni
1

Aprire un nuovo progetto di Visual Basic , selezionando " EXE standard " dalla lista dei modelli che appare quando si carica di Visual Basic . Nella schermata successiva , fare doppio clic sul controllo " Label " nella " cassetta degli attrezzi" si trova sulla sinistra dello schermo. Questo pone una scatola " Label1 " sulla forma nel centro dello schermo . Utilizzare le piccole scatole ai confini di questa casella per ingrandire la casella .
2

Clicca su questa nuova etichetta per visualizzarne le proprietà nel pannello a destra. Fare doppio clic sulla proprietà " Caption " per evidenziare la voce di default , " Label1 ". Premere il tasto " Canc " sulla tastiera per rimuovere la didascalia .
3

doppio clic " CommandButton ", un piccolo rettangolo nella " Casella degli strumenti "per aggiungere questo al form. Utilizzare l'elenco di oggetti da modificare la didascalia predefinita , " Command1 " a " Mostra InputBox . " Fare doppio clic sul pulsante nuovo nome per aprire la finestra del codice .
4

Digitare il codice qui sotto tra il due linee già presenti : " private Sub Command1_Click ( )" e " End Sub ".

Dim YourName , NOANSWER Come StringDim LocX , LocY Come location schermo IntegerLocX = 6500 ' in twip . Ci sono 1440 twip ad un inchLocY = 4500 ' cambiare i numeri per soddisfare il vostro needsLabel1.Caption = " " ' Questo vuoti la didascalia ogni volta che il programma è runNoAnswer = " Non vuoi dirmi il tuo nome ? " YourName = InputBox ( "Qual è il tuo nome ? " , "Creazione di un InputBox " , LocX , LocY ) ' le due virgole di fila nella riga sopra sono vitalIf YourName = " " ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " Buon giorno", e YourName & " . Come stai oggi ? " End If
5

Premere" F5 " per eseguire il programma .