Uma das áreas mais frustrantes no código escrito em qualquer idioma , incluindo Visual Basic, envolve garantir que quando os usuários inserir informações em um formulário que é válido. Os usuários , especialmente os inexperientes, pode encontrar maneiras quase ilimitadas de inserir dados inválidos. Na melhor das hipóteses um programador deve cobrir um número razoável de possibilidades e fornecer relatórios de erros compreensíveis no resto dos casos. Visual Basic 6.0 lida com a validação com dois termos : " CausesValidation " e " Validar ". Coisas que você precisa
Visual Basic 6.0
Show Mais instruções
1

Comece um novo projeto selecionando o modelo " Standard EXE " depois de abrir o Visual Basic (VB) . Isso abre uma janela de formulário chamado " Form1 ". Para demonstrar como funciona a validação, adicionar esses controles para o formulário do "caixa de ferramentas " do lado esquerdo da tela , clicando duas vezes em cada um :

One " Rótulo ", representado por um grande "A" maiúsculo ícone .

One " TextBox ", representado por um ícone de um pequeno quadrado que contém as letras " ab ".

Dois " CommandButtons, " representados por um ícone pequeno retângulo em branco.

2

Clique e arraste os controles que você acabou de adicionar para separá-los e alinhá-las , conforme listado abaixo . Cada controle adicionado cobre até os anteriores , de modo a de cima , mostrando neste momento é o último " CommandButton ", com o nome " Command2 . "

Mova a caixa " Command2 " para o lado direito do formulário.

Move " Command1 " acima " Command2 . "

Move " Label1 " para o lado esquerdo da forma oposta " Command1. "

Move " Text1 " abaixo " Label1 . "
3

Clique em" Label1 " e mudar o" "propriedade na " Legenda " coluna à direita da tela para ler " Propriedades Digite o número desejado entre 1 e 1.000. " Clique em " Text1" e excluir o "Text" propriedade padrão . Altere as propriedades do " título" de " Command1 " para " ir" e " Command2 " para " Cancelar ". Altere a propriedade " CausesValidation " do " Command2 " para "false ". Nota: Não coloque aspas ao fazer essas mudanças. Use as alças de arrasto, as pequenas praças em torno de cada controle para alargar -los o suficiente para mostrar o conteúdo completo .
4

Clique em "Exibir " no menu de nível superior em VB e selecione " Código ". Digite o seguinte código em linhas separadas exatamente como mostrado :

Private Sub Command1_Click ()

MsgBox " Número é aceitável. "

End Sub

Privada Sub Command2_Click ()

End of

End Sub

Sub Text1_Validate privada (Cancel As Boolean)

If Not IsNumeric ( Text1.Text ) Then < br >

Cancelar = True

ElseIf CDbl ( Text1.Text ) <1 Ou CDbl ( Text1.Text ) > 1000 Então

Cancelar = True

Fim Se

Se Cancelar Então

MsgBox " O número digitado deve estar entre 1 e 1000 " , vbExclamation

End If End Sub

5

Pressione " F5" para executar o programa . Digite qualquer número no formulário e clique em "OK ". Se o número se situa entre 1 e 1.000 , você verá uma mensagem de aceitação. Teste inserindo um número fora deste intervalo ou texto, que , em seguida, dá uma mensagem de erro. Use essa abordagem para validar outras operações e realizar operações desejadas sobre as informações inseridas .