Visual Basic - EVALUAR CONTENIDO

Life is soft - evento anual de software empresarial
 
Vista:

EVALUAR CONTENIDO

Publicado por jonathan (18 intervenciones) el 28/06/2008 00:34:01
Hola a todos!!!

Quisiera q alguin me ayudara en lo siguiente:

En un text se va ingresando una clave quisiera que al momento de ir ingresando cada caracter me evalue si el text posee letras, numeros, o caracteres especiales de tal manera que si tiene solo letras me diga en otro text que la seguridad de la contraseña es baja si tiene letras y numeros es media si tiene letras, numeros, caracteres Alta.

Algo parecido al crear un correo en hotmail...

De antemano gracias al que me ayude...
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:EVALUAR CONTENIDO

Publicado por Jorge Morales (14 intervenciones) el 28/06/2008 01:32:00
Saludos amigo, prueba usando el evento onkeypress del control textbox, este te enviara un parametro Key con el caracter presionado por el usuario y este lo evaluas con if o con case. Avisanos si tienes dudas al respecto.
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:EVALUAR CONTENIDO

Publicado por cmgcharl (128 intervenciones) el 28/06/2008 11:32:40
Evento change del textbox
If isnumeric(txtbox) then
txtbox2="Seguridad baja, solo numero
else
txtbox2 ="Seguridad alta "
end if
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

NO, No, Noooo

Publicado por jonathan (3 intervenciones) el 29/06/2008 18:31:38
NO LO ENTENDISTE!!!

de tal manera que
- si tiene solo letras me diga en otro text que la seguridad de la contraseña es baja
- si tiene letras y numeros es media
- si tiene letras, numeros, caracteres Alta.
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:SI, Si, Siiiiiiiiiiiiiiiiiiiiiiiii

Publicado por igor (633 intervenciones) el 29/06/2008 19:51:36
Al igual es que tu no EXPLICAS bien. Si yo no lo he entendido mal puedes querer algo asi:

Public Letras As Integer
Public Numeros As Integer
Public Signos As Integer

Private Sub txtPass_KeyPress(Index As Integer, KeyAscii As Integer)
Dim Seguridad As String
Select Case Chr$(Keyasccii)
Case "0" To "9"
Numeros = Numeros + 1
Case "A" To "Z", "a" To "z"
Letras = Letras + 1
Case Else
Signos = Signos + 1
End Select
If Letras > 0 Then
If Numeros > 0 Then
If Signos > 0 Then
Seguridad = "Alta"
Exit Sub
End If
Seguridad = "Media"
Exit Sub
End If
Seguridad = "Baja"
End If
End Sub
No es un código perfecto y además tendrás que solucionar el problema cuando se borren caracteres, pero para ser gratis creo que no está mal.
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