Como fazer uma caixa de entrada em Visual Basic

A Básico InputBox Visual fornece uma maneira para o desenvolvedor para solicitar entrada de um usuário e atribuir o resultado a uma variável para uso em outras partes de um aplicativo. Em vez de uma imagem gráfica, uma palavra de código Visual Basic faz com que um resultado InputBox.The de uma variável InputBox pode tornar-se parte de uma base de dados de endereços, um quadro de horários ou outra aplicação. Pode aparecer em comentários para o usuário se o InputBox pede algo como "Qual é o seu nome," e, quando o utilizador responde, o computador pode responder "Bom dia [YourName]. Como você está hoje?" A resposta fornecida pelo usuário substitui a variável mostrada aqui entre parênteses.

Abra um novo projeto Visual Basic, selecionando "standard EXE" a partir da lista de modelos que aparece quando você primeiro carregar Visual Basic. Na próxima tela, clique duas vezes no "Rótulo" no controlo "Caixa de ferramentas" localizado no lado esquerdo do ecrã. Isto coloca um "Label1" caixa no formulário no centro da tela. Use as caixas minúsculas nas fronteiras de esta caixa para ampliar a caixa.
Clique neste novo rótulo para exibir suas propriedades no painel à direita. Clique duas vezes no "Rubrica" propriedade para destacar a legenda padrão, "Label1." aperte o "Excluir" tecla no teclado para remover a legenda.
Clique duas vezes no "Botão de comando," um pequeno retângulo na "Caixa de ferramentas" para adicionar este ao formulário. Use a lista de propriedades para alterar a legenda padrão, "Command1" para "Mostrar InputBox." Dê um duplo clique no botão recém-nomeado para abrir a janela de código.
Digite o código abaixo entre as duas linhas já presentes: "Private Sub Command1_Click ()" e "End Sub."
Dim YourName, NoAnswer As String
Dim LocX, LocY As Integer
LocX = 6500 `local da tela em twips. Há 1440 twips para uma polegada
LocY = 4500 `Alterar os números para atender às suas necessidades
Label1.Caption = "" `Este apaga a legenda cada vez que o programa é executado
NoAnswer = "Você não vai me dizer o seu nome?"
YourName = InputBox ("Qual é o seu primeiro nome?", "Criando um InputBox",, LocX, LocY)
`As duas vírgulas em uma fileira na linha acima são vitais
Se YourName = "" Então
Label1.Caption = NoAnswer
Outro
Label1.Caption = "Bom Dia, " & Seu nome & ". Como você está hoje?"
Fim se
pressione "F5" para executar o programa.

dicas & avisos

Adicionar uma mensagem explicativa para cobrir problemas ou para outros fins que não querem colocar no formulário ou na legenda real como no exemplo acima. Para fazer isso, alterar estas linhas de código:
Excluir a linha que começa "Label1.Caption = NoAnswer seguida."
Substituir isto por:
MsgBox ("Temos de ter o seu nome para prosseguir.")

Somente cerca de 1.024 caracteres podem caber em um InputBox. O número exato depende do tipo de letra.

De esta maneira? Compartilhar em redes sociais: