Ayuda Urgente

[alejimram_22]

Hola expertos, tengo una duda, espero que puedan ayudarme, necesito hacer una funcion que me acepte solo letras en un textbox, ya la tengo pero quiero meterla en un modulo para poder utilizarla en cualquier formulario, el codigo que tengo es este:

Public Sub Validar_letras()

'Validar sólo letras
If (Not Char.IsLetter(e.KeyChar) And e.KeyChar <> Microsoft.VisualBasic.ChrW(8)) Then
e.Handled = True
End If

End Sub


Pero me marca error en la letra "e" , dice que no se ha declarado el nombre "e", como puedo solucionar esto, gracias. Saludos

[gnzsoloyo]

Este código:

Código vb.net:

If (Not Char.IsLetter(e.KeyChar) And e.KeyChar <> Microsoft.VisualBasic.ChrW(8)) Then
e.Handled = True
End If
 

No puede ir en una función o método cualquiera, sino en el evento KeyPress de tu TextBox.
Te da error porque faltan los parámetros declarados en el prototipo del evento.

Si tu idea es usar un método para varios TextBox, mi sugerencia sería crear algo así:

Código vb.net:

Public Sub Validar_letras(ByRef sender As Object, ByRef e As System.Windows.Forms.KeyPressEventArgs) as Boolean
    If (Not Char.IsLetter(e.KeyChar) And e.KeyChar <> Microsoft.VisualBasic.ChrW(8)) Then
        e.Handled = True
    End If
End Sub
 

De esa forma podrías invocarlo desde varios eventos KeyPress de diferentes TextBox.

[alejimram_22]

Pero en donde meto ese código, en el módulo dentro de la clase ?, porque lo necesito para usarlo en cualquier parte de la aplicación.

[Ka0stj]

Puedes meterlo como un método en tu clase o como tu decidas por ejemplo:
En alguna parte de tu clase insertas el método.

Código vb:

Public Function Letras(ByVal caracter As Char) As Boolean
 
        If Char.IsLetter(caracter) Then
            Return False
        ElseIf Char.IsControl(caracter) Then
            Return False
        ElseIf Char.IsSeparator(caracter) Then
            Return False
        Else
            Return True
        End If
 
    End Function
 

Después lo llamas en los textbox que quieras que contenga dicha validación:

Código vb:

Private Sub textbox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles textbox1.KeyPress
        e.Handled = Letras(e.KeyChar)
    End Sub
 

[alejimram_22]

ok, ahora me dice "No se ha declarado el nombre "letras", cuando pongo

e.Handled = letras(e.KeyChar) en keypress

[alejimram_22]

ya esta resuelto, muchas gracias