• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

black

impedir inserção de ponto

3 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora