InputBox Function
Esitetään kehote valintaikkunassa, johon käyttäjä voi kirjoittaa tekstiä. Syöte sijoitetaan muuttujaan.
InputBox-lause on vaivaton tapa syöttää tekstiä valintaikkunan kautta. Syöte vahvistetaan joko OK-napsautuksella tai Return-painalluksella. Syöte palautetaan funktion palautusarvona. Jos valintaikkuna suljetaan Peruuta-painikkeella, InputBox palauttaa merkkijonon, jonka pituus on nolla ("").
Syntaksi:
InputBox (viesti1 As String[, otsikko1 As String[, oletus1 As String[, sijainti_x As Integer, sijainti_y As Integer]]]])
Palautusarvo:
merkkijono (String)
Parametri:
Viesti1: merkkijonolauseke, joka esitetään valintaikkunassa viestinä.
Otsikko1: Merkkijonolauseke, joka esitetään valintaikkunan otsikkona.
Oletus1: merkkijonolauseke, joka esitetään tekstikentässä oletussyötteenä, jos mitään muuta syötettä ei anneta.
Sijainti_x: kokonaislukulauseke, joka määrittää valintaikkunan vaakasuoran sijainnin. Sijainti on absoluuttisena koordinaattina, eikä viittaa toimistosovelluksen ikkunaan.
Sijainti_y: kokonaislukulauseke, joka määrittää valintaikkunan pystysuuntaisen sijainnin. Sijainti on absoluuttisena koordinaattina, eikä viittaa toimistosovelluksen ikkunaan.
Jos sijainti_x ja sijainti_y puuttuvat, valintaikkuna keskitetään näytölle. Sijainti määritetään twip-yksiköissä.
Esimerkki:
Sub ExampleInputBox
Dim sText As String
sText = InputBox ("Ole hyvä ja kirjoita sanonta:","Hyvä käyttäjä")
MsgBox ( sText , 64, "Sanonnan vahvistus")
End Sub