Uma das áreas mais frustrantes em escrever código em qualquer idioma, incluindo Visual Basic, significa garantir que quando os usuários inserir informações em um formulário que é válido. Usuários, especialmente os inexperientes, pode encontrar formas quase ilimitadas de inserir dados inválidos. Na melhor das hipóteses um programador deve abranger um número razoável de possibilidades e fornecer relatórios de erro compreensível no resto dos casos. Visual Basic 6.0 manipula a validação com dois termos: "CausesValidation" e "Validar."
Coisas que você precisa
- Visual Basic 6.0
Começar um novo projeto, selecionando o "standard EXE" modelo depois de abrir o Visual Basic (VB). Isso abre uma janela de formulário com o nome "Form1." Para demonstrar como funciona a validação, adicionar esses controles para a forma do "Caixa de ferramentas" no lado esquerdo da tela, clicando duas vezes em cada um:
Um "Rótulo," representado por um grande capital "UMA" ícone.
Um "Caixa de texto," representada por um ícone de um pequeno quadrado que contém as letras "ab."
Dois "CommandButtons," representada por um ícone de retângulo em branco pequeno.
Clique e arraste os controles que você acabou de adicionar para separá-los e alinhá-las, conforme listado abaixo. Cada controle adicionado encobre as anteriores, de modo a de cima mostrando neste momento é o último "Botão de comando," nomeado "Command2."
Mova o "Command2" caixa para o lado direito do formulário.
Mover "Command1" acima "Command2."
Mover "Label1" para o lado esquerdo da forma oposta "Command1."
Mover "Text1" abaixo "Label1."
Clique em "Label1" e alterar o "Rubrica" propriedade no "propriedades" coluna à direita da tela para ler "Digite o número desejado entre 1 e 1.000." Clique em "Text1" e excluir o padrão "Texto" propriedade. Mudar o "Rubrica" Propriedades de "Command1" para "Ir" e "Command2" para "Cancelar." Mudar o "CausesValidation" propriedade de "Command2" para "Falso." Nota: Não insira aspas ao fazer essas alterações. Use as alças de arrasto, os pequenos quadrados em torno de cada controle para alargar-los o suficiente para mostrar o conteúdo completo.
Clique "Visão" 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
Private Sub Command2_Click ()
Fim
End Sub
Private Sub Text1_Validate (Cancel As Boolean)
Se não IsNumeric (Text1.Text) Em seguida,
Cancelar = True
ElseIf CDbl (Text1.Text) lt; 1 Ou CDbl (Text1.Text) gt; 1000 Em seguida,
Cancelar = True
Fim se
Se o Anular seguida
MsgBox "O número digitado deve ser entre 1 e 1.000", vbExclamation
Fim se
End Sub
pressione "F5" para executar o programa. Digite qualquer número no formulário e clique "ESTÁ BEM." Se o número cai 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.
dicas & avisos
- Teste para outros tipos de validação usando o "É igual a" (=) Operador. Por exemplo, um teste para a CEP válido, verificando-se no número de dígitos inseridos, isto é, se eles caem entre as faixas estabelecidas de números ZIP. Se há sete dígitos, testar se a correspondência de padrão "xxxxx-xxxx." Teste para um campo vazio com o "SE ENTÃO" operação usando um par de aspas em conjunto, o que significa que o campo estava em branco. Validar uma cadeia de caracteres e números com o "Gostar" operador.
- Estes métodos de validação VB trabalhar com campos individuais, não imediatamente com todos os campos em um registro de formulário. Se um usuário insere dados em alguns, mas não todos os campos e clicar em um "Salvar," "Enviar" ou numa tecla semelhante, ignorando outros campos, validação integral não terá efeito. Cobrindo esta possibilidade requer codificação mais complexa.
Como calcular os pagamentos mensais em visual basic
Como atualizar uma consulta VBA no acesso
Como inserir dados de acesso usando vb.net
Como faço para ler linha por linha usando básico visual?
Como abrir uma dll em visual basic
Como adicionar uma barra de rolagem para visual basic