
ayuda a traducir un codigo de visual basic
Publicado por Dany (5 intervenciones) el 26/02/2009 23:12:36
Gracias por su ayuda.
alguien me puede traducir este codigo:
Private Sub cmdEntar_Click()
If txtuser.Text = "Normal" Then
Worksheets(1).cmdRegistar.Visible = False
Worksheets(1).Select
Unload Me
Exit Sub
End If
If txtuser.Text = "administrador" And txtpassword.Text = "siasadmin" Then
Worksheets(1).cmdRegistar.Visible = True
Worksheets(1).Select
Unload Me
Else
MsgBox "Usuario ó Contraseña Incorrecto..!", vbCritical + vbOKOnly, "SIAS"
End If
End Sub
Private Sub txtuser_Change()
End Sub
alguien me puede traducir este codigo:
Private Sub cmdEntar_Click()
If txtuser.Text = "Normal" Then
Worksheets(1).cmdRegistar.Visible = False
Worksheets(1).Select
Unload Me
Exit Sub
End If
If txtuser.Text = "administrador" And txtpassword.Text = "siasadmin" Then
Worksheets(1).cmdRegistar.Visible = True
Worksheets(1).Select
Unload Me
Else
MsgBox "Usuario ó Contraseña Incorrecto..!", vbCritical + vbOKOnly, "SIAS"
End If
End Sub
Private Sub txtuser_Change()
End Sub
Valora esta pregunta


0