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

mekanis

Enviar Parametros

Recommended Posts

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  🤔 :down:

Obrigado

Cumpz

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites
mekanis

o que eu queria para além do código era saber enviar parametros/variaveis para sub-programas... sabes como?

Cumps

Share this post


Link to post
Share on other sites
bioshock

Se for isso podes utilizar módulos.

Mas creio que o que ele quer não é isso..

Share this post


Link to post
Share on other 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"

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

×

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.