IBM Lotus Symphony
|
Apresenta um aviso numa 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 fazer clique em OK 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 (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]])
String
Msg: Expressão em caracteres apresentada como mensagem na caixa de diálogo.
Title: Expressão em caracteres apresentada na barra do título da caixa de diálogo.
Default: Expressão em caracteres apresentada na caixa de texto como predefinição se não for dada nenhuma outra entrada.
x_pos: Expressão de números inteiros que especifica a posição horizontal da caixa de diálogo. A posição diz respeito a uma coordenada absoluta e não se refere à janela da aplicação Lotus® Symphony™.
y_pos: Expressão de números inteiros que especifica a posição vertical da caixa de diálogo. A posição consiste numa coordenada absoluta e não se refere à janela da aplicação Lotus Symphony.
Se x_pos e y_pos forem omitidas, a caixa de diálogo fica centrada no ecrã. A posição é especificada em twips.
Sub ExampleInputBox
Dim sText As String
sText = InputBox ("Please enter a phrase:","Dear User")
MsgBox ( sText , 64, "Confirmation of phrase")
End Sub