impedir inserção de ponto

[black]

boas.... estou a desenvolver um projecto no qual tenho vários campos de inserção de dados(Text1.text......), porem ao não quero permitir a inserção de valores com pontos, por exemplo (3.2), quando inserir um valor assim quero inserir um msg de erro....

será que alguém me pode ajudar

[vbtipo]

Basta verificares a existência de alguns caracteres ao inseris, como este exemplo que está aqui http://www.portugal-a-programar.pt/index.php?showtopic=26122

[programadorvb6]

Olá

Poderás fazer assim :

'=================================

' Form:

' Criar 2 (duas) Textbox

'================================

'(pessoalmente acho que é uma rotina muito boa, onde poderás usar as teclas o BackSpace e o Del.)

Private Sub text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    'Salta para o proximo textbox ao pressionar enter        
     Text2.SetFocus
        KeyAscii = 0
    Else
        If KeyAscii <> 8 Then
            If InStr("0123456789", Chr(KeyAscii)) = 0 Then
                KeyAscii = 0
            End If
        End If
    End If
End Sub

Até+

Programadorvb6