用VB制作登录界面

label控件	5个
textbox控件	2个
commandbutton控件	5个

 

打开VB，新建标准EXE工程，如下图

调整窗口大小，把backcolor属性调整为&H00FFFF00&，然后把form1窗口编辑成如下图的样子。

（注意：label控件的autosize属性要设为true，密码text输入框的passwordchar属性为*）

接着，添加一个窗口，把窗口布置成如下图：

像刚才那样，在添加一个窗口，把窗口布置成如下图：

外观布置完毕，开始编写代码：

form1各控件代码：

Private Sub Command1_Click()
If Text1 = "admin" And Text2 = "skadmin" Then
Form1.Hide
Form2.Show
Else
Form1.Hide
Form3.Show
End If
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub

Private Sub Command3_Click()
End
End Sub
form2各控件代码：

Private Sub Command1_Click()
End
End Sub

form3各控件代码：
Private Sub Command1_Click()
Form3.Hide
Form1.Show
Form1.Text1 = ""
Form1.Text2 = ""
End Sub
整个程序就编写好了，按F5键运行吧！