Função InputBox

Mostra uma caixa de diálogo no qual o utilizador pode introduzir texto. A entrada é atribuída a uma variável.

A instrução InputBox é um método conveniente para introduzir texto através de uma caixa de diálogo. Confirme a entrada ao clicar em Aceitar ou premindo Return. A entrada é devolvida como valor de retorno da função. Se fechar a caixa de diálogo em Cancelar, a InputBox devolve uma cadeia de comprimento zero ("").

Sintaxe:


InputBox (Prompt As String[, Title As String[, Default As String[, xpostwips As Integer, ypostwips As Integer]]]) As String

Parâmetros:

prompt: String expression displayed as the message in the dialog box.

title: String expression displayed in the title bar of the dialog box.

default: String expression displayed in the text box as default if no other input is given.

xpostwips: Integer expression that specifies the horizontal position of the dialog. The position is an absolute coordinate and does not refer to the window of LibreOffice.

ypostwips: Integer expression that specifies the vertical position of the dialog. The position is an absolute coordinate and does not refer to the window of LibreOffice.

If xpostwips and ypostwips are omitted, the dialog is centered on the screen. The position is specified in twips.

Valor de retorno:

Cadeia

Exemplo:


Sub ExampleInputBox
Dim sText As String
    sText = InputBox ("Introduza uma frase:","Caro utilizador")
    MsgBox ( sText , 64, "Confirmação da frase")
End Sub

Necessitamos da sua ajuda!