Visual Basic - como se valida el nombre??

Life is soft - evento anual de software empresarial
 
Vista:

como se valida el nombre??

Publicado por claudia (4 intervenciones) el 22/02/2005 13:30:58
porfavor si alguien me puede decir como se valida el nombre para que no me entren numeros...graciasss
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como se valida el nombre??

Publicado por Christian (675 intervenciones) el 22/02/2005 14:09:41
Esta funcion permite solo Letras:

Public Function fuValidaLetras(ByVal inKey As Integer) As Integer
Select Case inKey
Case 65 To 90 ' Mayusculas
Case 97 To 122 ' Minusculas
fuValidaLetras = inKey - 32
Case 8, 32, 13
Case Else
fuValidaLetras = 0
Exit Function
End Select
fuValidaLetras = inKey
End Function

La pasas de la siguiente manera, en el evento KEYPRESS de una caja de texto:

KeyAscii = fuValidaLetras(KeyAscii)

Y listo!!
Espero te ayude :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como se valida el nombre??

Publicado por Guillermo (12 intervenciones) el 23/02/2005 04:52:06
Crea un modulo en tu proyecto y agregas una variable Global
Global Const Alfabeto$ = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz "
Global Const Numeros$ = "0123456789."

'en el Evento KeyPress del control Tipo Text agrega lo siguiente
para puron numero
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(Numeros + Chr$(8), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

'en el Evento KeyPress del control Tipo Text agrega lo siguiente
para numero y letras
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(Numeros + Alfabeto + Chr$(8), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar