Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como limitar uma caixa de texto para números somente no Visual Basic 6.0
As caixas de texto são usadas principalmente para receber a entrada de usuários , ou para exibir texto ou pré-programado ou de uma fonte de dados. No Visual Basic 6.0 , o controle " TextBox " é usado para desenhar uma caixa de texto em um formulário do Windows . As propriedades do controle pode ser definido de acordo com as necessidades dos utilizadores. Por exemplo , você pode configurar uma caixa de texto ou editável, com cor diferente do fundo , ou com barras de rolagem somente leitura. Também é possível limitar o tipo de entrada de texto que pode aceitar. Aprenda a criar um programa em Visual Basic 6.0 , que limita a entrada de caixa de texto para apenas números . Instruções
1

Carregue o ambiente do 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.
< Br > 2

Selecione " standard EXE " na caixa de diálogo "New Project", em seguida, o botão " Abrir" clique .
3

Adicione uma caixa de texto no formulário clicando no botão " TextBox " controle da " caixa de ferramentas "e depois desenhar o tamanho da caixa de texto desejado. Certifique-se de que é grande o suficiente para armazenar caracteres de entrada do usuário.
4

Limpar a legenda de texto , apagando a palavra " Text1 " ao lado do "Texto" propriedade na janela "Propriedades" à direita lado da tela .
5

clique duas vezes no controle de caixa de texto para exibir a janela "Código" . Este é o lugar onde você vai escrever as instruções ou códigos-fonte que o programa irá executar em tempo de execução . O código-fonte que você vai escrever irá validar a entrada do usuário e aceita apenas caracteres numéricos , senão ele irá exibir uma mensagem de erro
6

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

If Not IsNumeric ( Text1.Text ) Then

MsgBox "input numérico só ! " , vbCritical , " entrada inválida "

Text1.Text = ""

End If
7

Pressione F5 ou selecione "Executar " e depois " Start" no menu para mudar para o tempo de execução -mode.
8

Teste o programa para verificar se é funcionando como deveria. Digite os caracteres alfanuméricos ou combinação de letras e números na caixa de texto . Você deverá ver uma mensagem de erro informando que o de entrada é inválido. Agora , digite apenas números na caixa de texto . Se nenhuma mensagem de erro aparece , o programa está sendo executado corretamente.
9

Salve o programa , selecionando " Save Project " no menu "File" . Fornecer um nome de arquivo no espaço fornecido e clique em " Salvar".

Anterior :

Próximo : No
  Os artigos relacionados
·Os VBA Max funções 
·Como enviar um anexo de email em Vb.Net 
·Como escrever um código igual para a calculadora padrã…
·Como adicionar dois valores no Visual Basic 
·Como usar o DataGridView para o MySQL em VB.NET 
·Como gerar Sub Reports em VB NET 
·Como automatizar Office com VBA 
·A Lista de comandos para QBasic 
·Como gerar uma seqüência aleatória alfanumérica 
·Como criar um programa para imprimir as quantias em Vis…
  Artigos em destaque
·Como verificar o PHP se estiver usando um iPhone 
·ASP Tutorial Programação Net 
·Como combinar uma instrução IF em PHP 
·Ajuda para Programação Batch 
·Como remover todas as letras de uma lista em Python 
·Como desenhar uma linha reta em Python Turtle 
·Como contar linhas em um projeto Java 
·Como personalizar a cores no NetBeans 
·Como adicionar um Character Digite em Python 
·Como restaurar arquivos Spool 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados