Função InputBox (Visual Basic)

Artigo
08/25/2010

Exibe um prompt em uma caixa de diálogo, aguarda o usuário insira texto ou clique em um botão, e depois retorna uma sequência contendo o conteúdo da caixa de texto.

Public Function InputBox( _
   ByVal Prompt As String, _
   Optional ByVal Title As String = "", _
   Optional ByVal DefaultResponse As String = "", _
   Optional ByVal Xpos As Integer = -1, _
   Optional ByVal YPos As Integer = -1 _
) As String

Parâmetros

Prompt
Necessário String expressão exibida sistema autônomo a mensagem na caixa de diálogo. O comprimento máximo de Prompt é aproximadamente 1024 caracteres, dependendo da largura dos caracteres usados.If Prompt é composto de mais de uma linha, você pode separar as linhas usando um (caractere de retorno de carroChr(13)), um avanço de linha (caractereChr(10)), ou um retorno de carro/linha (combinação de feedChr(13)& Chr(10)) entre cada linha.
Title
Opcional.String expressão exibida na BAR de título da caixa de diálogo. Se você omitir Title, o nome do aplicativo é colocado na barra de título.
DefaultResponse
Opcional.String expressão exibida na caixa de texto sistema autônomo a resposta padrão se for fornecida nenhuma Outros entrada. Se você omitir DefaultResponse, a caixa de texto exibido está vazia.
XPos
Opcional.Expressão numérica que especifica, em twips, a distância da borda esquerda da caixa de diálogo a partir da borda esquerda da tela.Se você omitir XPos e YPos, a caixa de diálogo é centralizada na tela.
YPos
Opcional.Expressão numérica que especifica, em twips, a distância da borda superior da caixa de diálogo da parte superior da tela.Se você omitir XPos e YPos, a caixa de diálogo é centralizada na tela.

Comentários

Se o usuário clica Cancel, uma sequência de comprimento zero será retornado.

Para especificar mais do que o primeiro argumento, você deve usar a função InputBox em uma expressão.Se você omitir argumentos posicionais, você deve manter o delimitador vírgula correspondente.

Observação:
O InputBox função requer UIPermission com o SafeTopLevelWindows nível, que pode afetar sua execução em situações de confiança parcial.Para obter mais informações, consulte Solicitando permissões and Classe UIPermission.

Exemplo

Este exemplo mostra várias maneiras de usar o InputBox função para solicitar ao usuário que insira um valor. Se x e y posições são omitidas, a caixa de diálogo é centralizada automaticamente para os respectivos eixos.A variável MyValue contém o valor inserido pelo usuário se o usuário clicar em OK ou pressiona ENTER a chave.

Dim message, title, defaultValue As String
Dim myValue As Object
' Set prompt.
message = "Enter a value between 1 and 3"
' Set title.
title = "InputBox Demo"
defaultValue = "1"   ' Set default value.

' Display message, title, and default value.
myValue = InputBox(message, title, defaultValue)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue

' Display dialog box at position 100, 100.
myValue = InputBox(message, title, defaultValue, 100, 100)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue