A Visual Basic InputBox tillhandahåller ett sätt för exploatören att inhämta synpunkter från en användare och tilldela resultatet till en variabel för användning i andra delar av ansökan . I stället för en grafisk bild , gör ett Visual Basic kodord en InputBox.The resultat av en InputBox variabel kan bli en del av en adress databas , en tidrapport eller annan applikation . Det kan förekomma i feedback till användaren om InputBox frågar något i stil med " Vad är ditt namn , " och , när användaren svarar , kan datorn svara " God morgon [ DittNamn ] . Hur mår du idag ? " The användarens egna svar ersätter variabeln visas här inom parentes . Instruktioner
1
Öppna ett nytt Visual Basic-projekt genom att välja " Standard EXE " från listan med mallar som visas när du lägger i Visual Basic . I nästa skärm , dubbelklicka på " Label " kontroll i " Toolbox" ligger på vänster sida av skärmen . Detta lägger en " Label1 " boxas på formuläret i mitten av skärmen . Använd de små rutorna på gränsen till rutan för att förstora lådan .
2
Klicka på denna nya etikett för att visa dess egenskaper i panelen till höger . Dubbelklicka på " Caption " egendom för att markera default bildtext , " Label1 . " Tryck på " Delete " -tangenten på ditt tangentbord för att ta bort bildtexten .
3
Dubbelklicka på " CommandButton , " en liten rektangel i " verktygslådan " för att lägga till detta i formuläret . Använd egenskaper listan för att ändra standardsvaret Bildtext , " Command1 " till " Show InputBox . " Dubbelklicka på det nya namnet för att öppna koden fönstret .
4
Knappa in koden nedan mellan två linjer som redan finns : " Private Sub Command1_Click ( ) " och " Sub End . "
Dim DittNamn , NoAnswer Som StringDim LocX , LocY Som IntegerLocX = 6500 ' Screen läge i twips . Det finns 1440 twips till en inchLocY = 4500 ' ändra siffrorna för att passa din needsLabel1.Caption = " " "Detta släcker bildtext varje gång programmet är runNoAnswer = " Kan inte du berätta ditt namn ? " DittNamn = InputBox ( " Vad är ditt förnamn ? " , "Skapa en InputBox " , , LocX , LocY ) " de två kommatecken i rad i raden ovan är vitalIf DittNamn = " " ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " God morgon , " & DittNamn & " . Hur mår du idag ? " End If
5
Tryck " F5 " för att köra programmet .
