¿urgente ayuda en VISUAL BASIC...?

Question

se trata de ingresar en un form un combobox y un textbox y un commandbutton cuando corra el programa podré seleccionar 4 nombres de usuario(obvio uno a la vez) en el combobox y la respectiva contraseña en el textbox...
 cuando pulse el boton si es correcta la contraseña me sale un mensaje y si es incorrecta vuelvo a ingresar los datos xfa ayuda soy novato...

Daniel · Accepted Answer

HOLA ESTUVE HACIENDO ESTO ESPERO QUE TE SIRVA ESTÁ HECHO EN VB6.
COLOCA LOS CONTROLES SIN CAMBIARLE EL NOMBRE EN UN FORMULARIO Y AGREGÁ EL SIGUIENTE CODIGO:
───────────────────────────────────────

Option Explicit
Dim Usuarios As New Collection

Private Sub Command1_Click()
'Si existe ese usuario con esa contraseña
'y si coincide con el usuario seleccionado en el combobox
If Existe(Usuarios, Text1.Text) = Combo1.Text Then
MsgBox "CONTRASEÑA CORRECTA. ACCESO PERMITIDO.", vbInformation, "Verificación de acceso"
Else 'Contraseña no válida
MsgBox "CONTRASEÑA INCORRECTA", vbCritical, "Verificación de acceso"
End If
End Sub

Private Sub Form_Load()
'Esta es una colección donde cada item es el nombre de usuario y la clave su contraseña
Usuarios.Add "FRANCISCO", "franchesco"
Usuarios.Add "JUAN", "juancito"
Usuarios.Add "PEDRO", "peter"
Usuarios.Add "ANTONIO", "antony"

'Agrego los items al combobox
Combo1.AddItem Usuarios(1)
Combo1.AddItem Usuarios(2)
Combo1.AddItem Usuarios(3)
Combo1.AddItem Usuarios(4)

Combo1.ListIndex = 0 'Seleccionar el primero de la lista por defecto
'Esto define la máscara para que no se vea la contraseña
Text1.PasswordChar = "*"
End Sub

'Función que verifica si existe un item en un objeto tipo collection
Private Function Existe(Col As Collection, ByVal Clave As String) As String
On Error GoTo noexiste
Existe = Col(Trim(Clave))
Exit Function
noexiste:
End Function

───────────────────────────────────────

USUARIO          CONTRASEÑA
───────      ───────────
FRANCISCO > franchesco
JUAN > juancito
PEDRO > peter
ANTONIO > antony

chuleta · Answer

en la propiedad list del combo cargas los nobres de los usuarios asi cuando se despliega ya los ves cargados. Luego en el textbox tenes que cargar la propiedad password char con un "*" asi no se ve la contraseÃ±a que ingresen. Y por ultimo en el evento click del boton tenes que programar codigo que compare si al usuario del combo le corresponde la contraseÃ±a del textbox y si es asi lo dejas pasar sino msgbox. El problema es que las contraseÃ±as las tendras que poner en el codigo, mejor seria si las alojas en una base de datos y las encriptas por seguridad. Depende de lo que quieras hacer con tu prg
saludos

¿urgente ayuda en VISUAL BASIC...?

2 Antworten