Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

mekanis

Enviar Parametros

Mensagens Recomendadas

mekanis

Boas pessoal,

Tenho este código:

 Private Sub letras()
        Select Case e.KeyChar
            Case "0" To "9" : e.KeyChar = ""
        End Select
    End Sub

    Private Sub txtnome_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnome.KeyPress
        letras()
    End Sub

Como devem perceber, queira ter um sub-programa que não deixasse escrever numeros na textbox e aplica-lo a várias textboxes, mas não sei como mandar o parametro, podem ajudar?

Já agora como faço para evitar os sinais gráficos, como !'?" e por ai fora, eu antes sabia mas esqueci-me  :hmm: :down:

Obrigado

Cumpz

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ByMySlf

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57) Then
            e.Handled = True
            e = Nothing
        End
End Sub

Ou usas MaskedTextBox.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

O que entendes por "sub-programa" ?

Para passar parametros nos métodos basta, por exemplo:

Public Sub MostrarMensagem(Mensagem As String)
      MsgBox(Mensagem)
End Sub


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação 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

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.