Un InputBox Visual Basic fornisce un modo per lo sviluppatore di sollecitare l'input da un utente e assegnare il risultato ad una variabile per l'uso in altre parti di un'applicazione. Invece di un'immagine grafica, una parola di codice di Visual Basic rende un InputBox.The risultato di una variabile di InputBox potrebbe diventare parte di un database di indirizzi, una scheda attività o altra applicazione. Potrebbe apparire in feedback all'utente se la InputBox chiede qualcosa come "Qual è il tuo nome", e, quando l'utente non risponde, il computer può rispondere "Buongiorno [tuonome]. Come stai oggi?" La risposta fornita dall'utente sostituisce la variabile indicata qui tra parentesi.
Istruzioni
1
Aprire un nuovo progetto di Visual Basic selezionando "EXE Standard" dall'elenco dei modelli che viene visualizzata quando si carica innanzitutto Visual Basic. Nella schermata successiva, fare doppio clic sul controllo nella casella degli "strumenti" si trova sulla sinistra dello schermo "Etichetta". Questo pone una casella "Label1" del form al centro dello schermo. Utilizzare le caselle di piccole ai confini di questa casella per ingrandire la casella.
2
Fare clic su questa nuova etichetta per visualizzarne le proprietà nel pannello a destra. Fare doppio clic la proprietà "Caption" per evidenziare la didascalia predefinita, "Label1." Premere il tasto "CANC" sulla tastiera per rimuovere la didascalia.
3
Fare doppio clic sul "Pulsante di comando," un piccolo rettangolo del "Toolbox" per aggiungere questo al form. Utilizzare l'elenco di proprietà per modificare il valore predefinito didascalia, "Command1" a "Visualizza InputBox." Fare doppio clic sul pulsante nuovo nome per aprire la finestra di codice.
4
Digita il codice qui sotto tra le due linee già presenti: "Private Sub Command1_Click ()" e "End Sub".
Dim YourName, NoAnswer As String
Dim LocX, LocY As Integer
LocX = 6500 ' schermo posizione in twip. Esistono 1440 twip per pollice
LocY = 4500 ' cambiare i numeri per soddisfare le vostre esigenze
Label1. Caption = "" ' questo spazii in bianco la didascalia ogni volta che viene eseguito il programma
NoAnswer = "Non dirmi il tuo nome?"
YourName = InputBox ("Qual è il tuo nome?", "Creazione di un InputBox", LocX, LocY)
' le due virgole in una riga nella riga precedente sono vitali
Se YourName = "" quindi
Label1. Caption = NoAnswer
Altro
Label1. Caption = "Good morning" & YourName & ". Come stai oggi?"
End If
5
Premere "F5" per eseguire il programma.
Consigli & Avvertenze
- Aggiungere un messaggio esplicativo per coprire problemi o per altri scopi che non si desidera inserire nel form o nella didascalia effettiva come nell'esempio precedente. Per effettuare questa operazione, modificare queste righe di codice:
- Eliminare la riga che inizia "Poi Label1.Caption=NoAnswer."
- Sostituire questo con:
- MsgBox ("dobbiamo avere il tuo nome per procedere.")
- Solo circa 1024 caratteri possono contenere un InputBox. Il numero esatto dipende il tipo di carattere.