Contraseñas en vb6

TENGO UN Cdm
If UCase(TextCON3.Text) <> "DAD1" Then
MsgBox "CODIGO ERRONEO", vbCritical
Lo que quiero es que trabaje con distintas contraseñas
Solo me admite "DAD1"
Ya intente "dad1, asd"
También así "dad1" "asd"
Si me pueden orientar por favor

1 Respuesta

Respuesta
1
Te quiero recomendar utilizar un select case para tu aplitativo.
Ejem.
Selec case UCase(TextCON3.Text)
Case = "DAD1"
Procedimiento
Case = "ASD"
Procedimiento
Case = ....
' La cantidad de case que desees
'Si ningun caso coincide
Case Else
MsgBox "CODIGO ERRONEO", vbCritical
También puedes usar el "OR" en Un "IF"
Ejem.
If UCase(TextCON3.Text) <> "DAD1" OR UCase(TextCON3.Text) <> "ASD" Then
Suerte

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas