A InputBox Visual Basic fornece uma maneira para o desenvolvedor para solicitar a 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 um resultado InputBox.The de uma variável InputBox pode se tornar parte de um banco de dados de endereços, um quadro de horários ou outra aplicação. Ele poderia aparecer em um feedback para o usuário se o InputBox pede algo como " Qual é o seu nome", e , quando o usuário responde , o computador pode responder " Bom dia [ YourName ] . Como você está hoje ? "A resposta fornecido pelo usuário substitui a variável mostrada aqui entre parênteses. Instruções
1

Abra um novo projeto Visual Basic , selecionando " Standard EXE " a partir da lista de modelos que aparece quando você primeiro carregar o Visual Basic. Na próxima tela , clique duas vezes no controle "Rótulo" na "caixa de ferramentas ", localizado à esquerda da tela. Isto coloca uma caixa de " Label1 " no formulário no centro da tela. Use as caixas minúsculas nas fronteiras de esta caixa para ampliar a caixa.
2

Clique neste novo rótulo para exibir suas propriedades no painel à direita. Dê um duplo clique na propriedade " Caption " para destacar a legenda padrão , " Label1 ". Pressione a tecla "Delete" no teclado para remover a legenda.
3

Clique duas vezes no " CommandButton ", um pequeno retângulo na " caixa de ferramentas "para adicioná-lo ao formulário. Use a lista 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.
4

Digite o código abaixo entre o duas linhas já presentes : " Private Sub Command1_Click ( )" e " End Sub ".

Dim seunome , NoAnswer Como StringDim LocX , Locy Como IntegerLocX = 6500 ' localização da tela em twips . Existem 1440 twips para um inchLocY = 4500 ' Mude os números para se adequar ao seu needsLabel1.Caption = ""' esta apaga a legenda cada vez que o programa é runNoAnswer = "Você não vai me dizer o seu nome? " YourName = InputBox ( " Qual é o seu nome ? ", " Criando uma InputBox ", LocX , Locy ) ' as duas vírgulas em uma linha na linha acima são vitalIf YourName = "" ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " Bom dia", e YourName & " . Como você está hoje ? " End If
5

Pressione" F5 " para executar o programa .