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

Afiliados
La Web del programador
MundoProgramacion

Ayuda en .NET
tema iniciado porHXMP en Visual Basic .NET
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 ...
22/10/2005 Insertar datos. INSERT    forma parte de...Tutorial SQL
03/10/2006 Definición de clases    forma parte de...Tutorial C#
19/09/2007 Triggers en Transact SQL    forma parte de...Tutorial de Transact SQL
31/03/2006 Operadores en PL/SQL    forma parte de...Tutorial PL/SQL
22/10/2005 Indices    forma parte de...Tutorial SQL
23/05/2006 Cursores en PL/SQL    forma parte de...Tutorial PL/SQL
11/03/2008 Problemas en la instalación de Visual Studio 2008-Visual studio web authoring component
17/01/2008 Insertar en una Tabla usando Linq2SQL (Linq To SQL)
30/12/2007 Novedades en C# 3.0 - Primeros pasos con LINQ
24/07/2006 SQL Dinamico    forma parte de...Tutorial PL/SQL

Encuesta
Si trabajas con .NET ¿Que entorno utilizas?
[Ver] [Votar]