Hvordan lage en tekstboks i Visual Basic

Hvordan lage en tekstboks i Visual Basic


A Visual Basic InputBox gir en måte for utbygger å oppfordre input fra en bruker og tildele resultatet for en variabel for bruk i andre deler av et program. I stedet for et grafisk bilde, gjør en Visual Basic-kode ord en InputBox.The resultat av en InputBox variable kan bli en del av et adressedatabase, en timeliste eller et annet program. Det kan dukke opp i tilbakemelding til brukeren dersom InputBox spør noe sånt som "Hva er ditt navn", og når brukeren svarer, kan datamaskinen svare "God morgen [dittnavn]. Hvordan har du det i dag? "Det bruker gitt respons erstatter den variable vist her i parentes.

Bruksanvisning

1 Åpne en ny Visual Basic-prosjektet ved å velge "Standard EXE" fra listen over maler som vises når du først laste Visual Basic. I neste skjermbilde, dobbeltklikk på "Label" kontroll i "verktøykasse" som ligger på venstre side av skjermen. Dette setter en "Label1" boksen på skjemaet i midten av skjermen. Bruk små bokser på grensene til denne boksen for å forstørre boksen.

2 Klikk på denne nye etiketten for å vise sine egenskaper i panelet til høyre. Dobbeltklikk på "Caption" eiendom for å markere standardteksten, "Label1." Trykk på "Delete" -tasten på tastaturet for å fjerne bildeteksten.

3 Dobbeltklikk på "Command", en liten firkant i "verktøykassa" for å legge denne til skjemaet. Bruk egenskapene listen for å endre standard Caption "Command1" til "Show InputBox." Dobbeltklikk på den nylig kåret knappen for å åpne kodevinduet.

4 Skriv inn koden under mellom de to linjene som allerede finnes: "Private Sub Command1_Click ()" og "End Sub".

Dim Dittnavn, NoAnswer As String
Dim LocX, LocY As Integer
LocX = 6500 'Screen beliggenhet i twips. Det er 1440 twips til en tomme
LocY = 4500 'Endre tallene som passer dine behov
Label1.Caption = "" "dette tømmer bildeteksten hver gang programmet kjøres
NoAnswer = "Vil ikke du fortelle meg navnet ditt?"
Dittnavn = InputBox ( "Hva er fornavnet ditt?", "Opprette en InputBox",, LocX, LocY)
'De to komma på rad i linjen ovenfor er avgjørende
Hvis Dittnavn = "" Then
Label1.Caption = NoAnswer
Ellers
Label1.Caption = "God morgen," og Dittnavn & ". Hvordan har du det i dag?"
Slutt om

5 Trykk "F5" for å kjøre programmet.

Hint

  • Legg en forklarende melding til dekning problemer eller til andre formål som du ikke ønsker å plassere på skjemaet eller i selve bildeteksten som i eksempelet ovenfor. For å gjøre dette, må du endre disse linjene med kode:
  • Slett linjen begynner "Label1.Caption = NoAnswer Deretter».
  • Erstatt dette med:
  • MsgBox ( "Vi må ha ditt navn for å fortsette.»)
  • Bare om lag 1024 tegn kan passe i en InputBox. Det nøyaktige antallet avhenger av skriften.