Red de conocimiento informático - Conocimiento de la instalación - Acerca de la programación VB

Acerca de la programación VB

Subcomando privado1_Click()

Si Text1.Text = "ABCDEF" y Text2.Text = "12345" Entonces

MsgBox "Bienvenido"

Descargarme

Else

MsgBox "El nombre de usuario o la contraseña son incorrectos, vuelva a ingresar"

Finalizar si

End Sub

Sub privado Form_Load()

Command1.Cancel = "Confirmar"

Label1.Caption = "Nombre de usuario:"

Label2.Caption = "Contraseña:"

Text2.PasswordChar = "*"

End Sub