Jupiterimages / Pixland / Getty Images Edistää
Visual Basic InputBox tarjoaa tavan kehittäjä pyytää käyttäjältä syöte ja antaa tuloksen muuttujaan käytettäväksi muualla hakemuksen.Sen sijaan, graafinen ilme, Visual Basic koodisana tekee InputBox.The tulos InputBox muuttuvan liittyisi osaksi osoitetietokanta, tuntilomakkeen tai muu sovellus.Se voisi näkyä palautetta käyttäjälle, jos InputBox kysyy jotain "Mikä on nimesi," ja, kun käyttäjä vastaa, tietokone voi vastata "Hyvää huomenta [omanimi].Miten voit tänään? "Käyttäjäystävällinen jos vastaus korvaa muuttujan kuvassa suluissa.
Avaa uusi Visual Basic-projektin valitsemalla "normaali EXE" luettelosta malleja joka näkyy, kun ensimmäinen kuormaVisual Basic.Seuraavassa näytössä, tupla-klikkaa "Label" valvonnan "Toolbox" sijaitsee näytön vasemmassa reunassa.Tämä asettaa "Label1" ruudun muodossa näytön keskellä.Käytä pieni laatikot rajoilla tämä jos haluat suurentaa ruutuun.
Klikkaa tästä uudesta etiketti näyttää sen o
minaisuuksia paneelin oikealla.Kaksoisnapsauta "kuvateksti" omaisuus korostaa Oletusotsikko, "Label1." Paina "Delete" -näppäintä poistaa kuvatekstin.Kaksoisnapsauta "CommandButton" pieni suorakulmion "Toolbox" lisätä tämän lomakkeen.Käytä ominaisuudet luetella muuttaa oletuksena Kuvateksti, "Command1" ja "Näytä InputBox." Kaksoisnapsauta uudelleen nimetty painike avaa koodi-ikkuna.
Kirjoita alla oleva koodi välillä kaksi riviä jo läsnä: "Private Sub Command1_Click ()" ja "End Sub."
Dim omanimi, NoAnswer As String
Dim LocX, LocY As Integer
LocX = 6500 Screensijainti twips.On 1440 twips jotta tuuman
LocY = 4500 'Muuta numeroita tarpeisiisi
Label1.Caption = ""' tämä tyhjentää kuvateksti aina ohjelma ajetaan
NoAnswer = "Etkö kerro minulle nimesi? "
omanimi = InputBox ("Mikä on etunimesi?", "Creating InputBox",null, LocX, LocY)
"kaksi pilkkuja peräkkäin viivalle ovat elintärkeitä
Jos omanimi =" "Sitten
Label1.Caption= NoAnswer
Else
Label1.Caption = "Hyvää huomenta" & amp;Omanimi & amp;". Kuinka voit tänään?"
End Jos
Paina "F5" ohjelman suorittamiseen.
