A Visual Basic InputBox giver en måde for bygherren at hverve input fra en bruger og tildele resultatet til en variabel til brug i andre dele af en ansøgning. I stedet for et grafisk billede , gør en Visual Basic-kode ord en InputBox.The resultat af en InputBox variabel kan blive en del af en adresse -database , en timeseddel eller et andet program . Det kunne vises i feedback til brugeren, hvis InputBox spørger noget lignende " Hvad er dit navn ", og når brugeren svarer , kan computeren svare " Godmorgen [ DitNavn ] . Hvordan har du i dag? "Brugeren -leverede svar erstatter den variable her vist i parentes. Instruktioner
1
Åbn et nyt Visual Basic-projekt ved at vælge " Standard EXE " fra listen over skabeloner, der vises, når du først indlæse Visual Basic. I næste skærmbillede skal du dobbeltklikke på den "Label " kontrol i " Toolbox" placeret på venstre side af skærmen. Dette lægger en " Label1 " feltet på formularen i midten af skærmen. Brug de små bokse på grænsen af denne boks for at forstørre kassen.
2
Klik på denne nye etiket til at vise sine egenskaber i panelet til højre. Dobbeltklik på " Caption " ejendom for at fremhæve standard teksten " Label1 . " Tryk på "Delete "-tasten på tastaturet for at fjerne billedtekst.
3
Dobbeltklik på " CommandButton ", en lille rektangel i" Toolbox " for at tilføje dette til formularen. Brug egenskaberne listen for at ændre standard Caption " Command1 " til " Vis InputBox ". Dobbeltklik på det nyligt navngivne knappen for at åbne koden vinduet .
4
Indtast koden nedenfor mellem to linjer allerede er til stede : "Private Sub Command1_Click ()" og " End Sub ".
Dim DitNavn , NoAnswer Som StringDim LocX , LocY Som IntegerLocX = 6500 ' Screen placering i twips . Der er 1440 twips til en inchLocY = 4500 ' ændre tallene passer til din needsLabel1.Caption = "" ' denne blanks billedteksten , hver gang programmet er runNoAnswer = " Vil du ikke fortælle mig dit navn ? " DitNavn = InputBox ("Hvad er dit fornavn? ", " Oprettelse af en InputBox " , LocX , LocY ) » de to kommaer i træk i linjen ovenfor, er vitalIf DitNavn =" " ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " Godmorgen, " & DitNavn & " . Hvordan har du i dag? " End If
5
Tryk på" F5 "for at køre programmet.
