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 ("").

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

prompt: Expressão de cadeia de caracteres apresentada como mensagem na caixa de diálogo.

título: Expressão de cadeia de caracteres apresentada na barra de título da caixa de diálogo.

padrão: Expressão de cadeia de caracteres apresentada na caixa de texto como valor padrão, caso não seja introduzida qualquer outra entrada.

xpostwips: Expressão numérica que especifica a posição horizontal da caixa de diálogo. A posição é uma coordenada absoluta e não se refere à janela do LibreOfficeDev.

ypostwips: Expressão numérica que especifica a posição vertical da caixa de diálogo. A posição é uma coordenada absoluta e não se refere à janela do LibreOfficeDev.

Se xpostwips e ypostwips forem omitidos, a caixa de diálogo é centrada no ecrã. A posição é especificada em twips.

Cadeia

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