InicioArticulos y noticiasBases de datosProgramaciónForosInternetServiciosEmail
SQL
  Tutorial SQL
SQL Server
  Tutorial de Transact-SQL
ORACLE
  Tutorial PL/SQL
.NET
  Introducción a.NET
  Conceptos generales .NET
  Tutorial C#
  LinQ
Reina Roja
  Humor
  Bibliografia
  Acerca de ...

Afiliados
La Web del programador
MundoProgramacion

Ayuda en .NET
tema iniciado por HXMP
Mensaje recibido el [26/01/2005 10:3:38]


Public Shared Function soloNumero(ByVal car As Char) As Boolean

Dim ret As Boolean = True

If (car.Equals(Keys.Back) Or car.Equals(Keys.Delete) Or car.Equals(Keys.Left) Or car.Equals(Keys.Right)) Then

ret = True

Else

If ("0123456789".IndexOf(car) < 0) Then

ret = False

End If

End If

Return ret

End Function

Public Shared Function soloLetra(ByVal car As Char) As Boolean

Dim ret As Boolean = True

If (car.Equals(Keys.Back) Or car.Equals(Keys.Delete) Or car.Equals(Keys.Left) Or car.Equals(Keys.Right)) Then

ret = True

Else

If ("0123456789".IndexOf(car) > 0) Then

ret = False

End If

End If

Return ret

End Function

 

Estas funciones las estoy usando para tener solo letras y solo numeros respectivamente en VB .NET pro el problema es que no se que hacer para que acepte el BACKSPACE..???? Gracias por la ayuda


 RE: Ayuda en .NET por El_Primo [28/01/2005 05:21:28]
 RE: Ayuda en .NET por aldeamedia [02/11/2005 09:1:51]

 
RE: Ayuda en .NET por El_Primo
Respuesta recibida el [28/01/2005 05:21:28]

Hola, no se si te ayuda pero el keyascii (de vb normal) del backespace es el 8.

Salu2


 
RE: Ayuda en .NET por aldeamedia
Respuesta recibida el [02/11/2005 09:01:51]

Felicidades por tus recursos al desarrollar esa función, pero al trabajar con VB podrias ahorrarte muchas lineas simplificando esa función en algo como esto:

If car.IsLetterOrDigit(car) Or car.GetUnicodeCategory(car) = Globalization.UnicodeCategory.Control Then :     return true 

else :    return false

end if

Esta función ya te deja usar el bakspace y las flechas de función

Si quieres una funcion para cada validación simplemente cambia IsLetterOrDigit por IsLetter() o por IsDigit()

Enjoy. 

Aldeamedia

http://www.aldeamedia.com



 

Email:*
Alias:*
Título:*
Respuesta:*
Notificar:
(Indica si queremos recibir emails)

 
 

devjoker  Te recomendamos además ...
02/10/2006 Tablas unidimensionales    forma parte de...Tutorial C#
03/01/2007 Tipos anulables    forma parte de...Tutorial C#
31/03/2006 Fundamentos de PL/SQL    forma parte de...Tutorial PL/SQL
03/10/2006 Miembros de tipo    forma parte de...Tutorial C#
21/07/2006 Funciones integradas de PL/SQL    forma parte de...Tutorial PL/SQL
28/08/2006 Ubuntu en VmWare con VMware Tools
22/10/2005 Insertar datos. INSERT    forma parte de...Tutorial SQL
24/05/2007 Tipos de datos en Transact SQL    forma parte de...Tutorial de Transact SQL
12/01/2006 Programación con PL/SQL    forma parte de...Tutorial PL/SQL
16/10/2006 Delegados y eventos    forma parte de...Tutorial C#

Encuesta
¿Cual es tu lenguaje de programación favorito?
[Ver] [Votar]