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

Sign in to follow this  
manuelbarreto

problemas com textbox

Recommended Posts

manuelbarreto

Olá eu tenho uma textbox e nao queria que deixa-se o utilizador colocar numeros na textbox e estou a utilizar este código

 'Não permite o utilizador colocar dados na caixa de texto nome.
        If IsNumeric(Me.nome_forne.Text) Then

            If nome_forne.Text <> "" Then
                MsgBox("Insira apenas letras no campo nome.")
                nome_forne.Text = ""

            End If
        End If

e nao deixa introduzir no inicio mas se colocar uma letra e depois um numero já deixa.

o que posso fazer para que isto não aconteça?

obg

Share this post


Link to post
Share on other sites
scorch

Em que evento tens esse código?


scorch_pp.png

PS: Não respondo a perguntas por mensagem que podem ser respondidas no fórum.

Share this post


Link to post
Share on other sites
scorch

Coloca antes no evento KeyDown, e verifica na função IsNumeric antes o caracter inserido.


scorch_pp.png

PS: Não respondo a perguntas por mensagem que podem ser respondidas no fórum.

Share this post


Link to post
Share on other sites
manuelbarreto

eu agora coloco um numero e depois uma letra e ele é que me dá a mensagem mas se colocar uma letra e depois o numero continua a fazer o mesmo

Share this post


Link to post
Share on other sites
kazzx

no evento keypress dessa textbox cola isto:

 If Char.IsNumber(e.KeyChar) Then
            e.Handled = True
        End If 

depois diz alguma coisa ..

Share this post


Link to post
Share on other sites
manuelbarreto

puz assim o código o que me acontece agora é se quiser apagar um caracter nao deixa

'Este evento faz com o utilizador não consiga colocar numeros na caixa de texto nome_forne.Text.
    Private Sub nome_forne_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nome_forne.KeyPress

        If (Char.IsDigit(e.KeyChar) OrElse Char.IsControl(e.KeyChar)) Then

            e.Handled = True

        End If
        
    End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.