[Consulta]Evento KeyPress

[petrinimauro]

Buen dia, una consulta.
tengo este codigo que es para que solamente en un textbox ingresar numeros.
Mi duda es que lo tengo qe utilizar varias veces, por lo que no se como hacerlo como funcion para llamarlo directamente en todos los textbox.
probe haciendo PRIVATE SUB NUM() y el codigo pero me tira error en la E, me dice qe no esta declarada.
Lo tengo qe meter en un modulo ? No entiendo, espero que puedan ayudarme, muchas gracias!

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

If e.KeyChar.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

[laguzzigerardo]

El método txt2_KeyPress es un manejador del evento KeyPress. Sí querés crear el tuyo, podés hacerlo siempre y cuando respetes la firma del mismo.

En este caso te recomiendo que copies y pegues txt2_KeyPress en el evento KeyPress de cada TextBox desde la vista de diseño. De esta forma todos los textboxes utilizarán dicho manejador con su evento KeyPress.

[jhonwilliams]

Hola

Lo que yo hago es encapsular las validaciones en un metodo independiente:

Código C#:

private static void OnlyNumbers(KeyPressEventArgs e)
        {
            if (char.IsNumber(e.KeyChar))
                e.Handled = false;
            else if (char.IsControl(e.KeyChar))
                e.Handled = false;
            else
                e.Handled = true;
        }
 

Y llamo al metodo en todos los keypress que necesito.

Código C#:

private void txtAntiquity_KeyPress(object sender, KeyPressEventArgs e)
        {
            OnlyNumbers(e);
        }
 

Saludos

[Aquaventus]

Hola petrinimauro, en al final de la cabecera del sub :
Handles txt2.KeyPress <- Aqui
podes agregarle los demas textbox para que compartan el mismo evento... asi :
Handles txt2.KeyPress, TuTextBox3.KeyPress, TuTextBox4.KeyPress, TuTextBox5.KeyPress
Saludos!.

[rikakashi]

Hola, Saludos yo tengo quiero hacer esto mismo... que buena idea crei que no se podria y que todos los textbox deberian ir uno a uno con el mismo codigo esto ocupa muchas luneas.

pero entonces Aquaventus el sub en vb.net seria

Código vb.net:

Private Sub txt1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt1.KeyPress, txt2.KeyPress, TuTextBox3.KeyPress, TuTextBox4.KeyPress, TuTextBox5.KeyPress
If e.KeyChar.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
 

O algo seria diferente?

[rikakashi]

siiii asi es funciona... bueno a mi me funciono... el nombre del metodo lo puedo cambiar es decir el

private sub nombrecualquiera (...

y funciono