Debug Info O Portal da Informática!

Formatando os Campos de um formulário no Visual Basic 6.0

• Não permitir que o usuário insira caracteres especiais ou  números em uma Textbox

Private Sub txtnome_KeyPress(KeyAscii As Integer)

If InStr("0123456789<>|\;,.?/[{}]+=§-_)(*&%$#@!*", Chr(KeyAscii)) <> 0 Then

KeyAscii = 0

End If

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

• Não permitir campos em branco

If txtnome.Text = " " Then

MsgBox "O nome é de preenchimento obrigatório!", vbOKOnly + vbInformation, "Aviso"

txtnome.SetFocus

Exit Sub

OU

If Len(Trim(txtnome))=0 then

MSGBOX "O nome do Cliente está em branco...",vbcritical,"Cadastro de Clientes"

txtnome.setfocus

End If

• Inserindo Máscara de Entrada nos campos

Private Sub txttel_LostFocus()

txttel = Format(txttel, "(@@)@@@@-@@@@")

End Sub