×
Loading ...

Como limitar uma caixa de texto somente para números no Visual Basic 6.0

Atualizado em 21 julho, 2017

As caixas de texto são usadas principalmente para receber entradas de usuários, ou também são pré-programadas para exibir informações de uma fonte de dados. No Visual Basic 6.0, o controle "TextBox"(Caixa de texto) é usado para desenhar uma caixa de texto dentro de um formulário do Windows. Suas propriedades podem ser ajustadas dependendo das necessidades do usuário. Por exemplo, é possível configurar uma caixa de texto somente para leitura ou editável, com cores de fundo diferentes, ou com barras de rolagem. Também é possível limitar o tipo de entrada de texto que se pode aceitar. Aprenda a criar um programa em Visual Basic 6.0 que limite a entrada na caixa de texto para apenas números.

Instruções

Digite apenas números em uma caixa de texto (Jupiterimages/Polka Dot/Getty Images)
  1. Carregue o ambiente Visual Basic 6.0, clicando no ícone de atalho do programa na área de trabalho, ou selecionando "Microsoft Visual Basic 6.0" no menu "Iniciar" no seu computador.

    Loading...
  2. Selecione "Standard EXE" (EXE Padrão) na caixa de diálogo "New Project" (Novo projeto) e, em seguida, clique no botão "Open" (Abrir).

  3. Adicione uma caixa de texto no formulário, clicando no controle "TextBox" da "Toolbox " (Caixa de ferramentas) e, então, desenhe o tamanho desejado da caixa. Certifique-se de que seja grande o suficiente para armazenar os caracteres de entrada do usuário.

  4. Desmarque a legenda de texto, apagando a palavra "Text1" ao lado da propriedade "Text" (Texto) na janela " Properties " (Propriedades) no lado direito da tela.

  5. Dê um duplo clique no controle de caixa de texto para exibir a janela "Code" (Código). Esse é o local onde você vai escrever as instruções ou códigos-fonte que o programa executará ao ser aberto. O código-fonte que você vai escrever validará a entrada do usuário e aceitará apenas caracteres numéricos, caso contrario ele exibirá uma mensagem de erro.

  6. Insira o seguinte código dentro do evento "Text1_Change":

    If Not IsNumeric(Text1.Text) Then MsgBox "Numeric input only!", vbCritical, "Invalid Input" Text1.Text = "" End If

  7. Pressione "F5" ou clique em "Run" (Executar) e, depois, em "Start" (Iniciar) no menu para alternar para modo de execução.

  8. Teste o programa para verificar se ele está funcionando como deveria. Digite caracteres do tipo alfanuméricos ou combinações de letras e números na caixa de texto. Você deverá ver uma mensagem de erro avisando que a entrada é inválida. Agora, digite apenas os números na caixa de texto. Se nenhuma mensagem de erro aparecer, o programa está sendo executado corretamente.

  9. Salve o programa, selecionando "Save Project" (Salvar projeto) no menu "File" (Arquivo). Escolha um nome para o arquivo, digite-o no espaço fornecido e clique em "Save" (Salvar).

Loading...

Referências

Loading ...
Loading ...