InputBox Function

Kuvab dialoogis viiba, kuhu kasutaja saab sisestada teksti. Sisestatud tekst mÀÀratakse muutujale.

Lause InputBox on lihtne meetod dialoogis teksti sisestamiseks. Sisestuse kinnitamiseks klÔpsa nuppu OK vÔi vajuta sisestusklahvi. Sisestus tagastatakse funktsiooni tagastusvÀÀrtusena. Kui sulged dialoogi nupu Loobu abil, siis tagastab lause InputBox nullpikkusega stringi ("").

SĂŒntaks:


InputBox (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]])

TagastusvÀÀrtus:

String

Parameeter:

Msg: dialoogiboksis teatena kuvatav stringavaldis.

Title: Stringavaldis, mida nÀidatakse dialoogiakna tiitliribal.

Default: stringavaldis, mis kuvatakse tekstikastis vaikimisi juhul, kui muud sisendit pole saadaval.

x_pos: tÀisarvavaldis, mis mÀÀrab dialoogi horisontaalse asukoha. Asukoht on absoluutne koordinaat ega viita Office'i rakenduse aknale.

x_pos: tÀisarvavaldis, mis mÀÀrab dialoogi vertikaalse asukoha. Asukoht on absoluutne koordinaat ega viita Office'i rakenduse aknale.

Kui jÀtad parameetrid x_pos ja y_pos vÀlja, siis joondatakse dialoog kuva keskele. Asukoht mÀÀratakse tvippides.

NĂ€ide:


Sub ExampleInputBox
Dim sText As String
    sText = InputBox ("Palun sisesta lause:","Lugupeetud kasutaja")
    MsgBox ( sText , 64, "Lause kinnitus")
End Sub

Palun toeta meid!