在VB6.0环境中,启动软件后,首先在“标准EXE”页面上双击。我们预设正确的用户名与密码为“aaa”和“abc123”。接下来,从控件栏选择标签控件,并在Form1窗体上相应位置绘制两个标签,然后选择文本框控件在同一位置绘制两个文本框,最后选择按钮控件绘制两个按钮。接着选中窗体Form1,通过属性栏更改Caption属性为“用户登录”。对于标签Lable1,将Caption属性设置为“用户名”,对于标签Lable2,则将Caption设置为“密码”。文本框Text1的Text属性设为空,而Text2的Text属性同样设为空,但PasswordChar属性设为“*”。按钮Command1的Caption设为“登录”,Command2的Caption则设为“重新输入”。调整控件位置和大小,使界面更加美观。
接着,右键点击“窗体”,选择“添加”,点击“添加窗体”,在弹出的窗口中双击添加一个Form2窗体。同样地,用同样的方法添加一个Form3窗体。在Form2窗体中,添加一个标签和一个按钮。标签的Caption属性值设为“登录成功!”,也可通过Font属性更改字体;按钮的Caption属性值设为“返回”。在Form3窗体中,添加一个标签和一个按钮,标签的Caption属性值设为“用户名或密码错误,请重新登录!”,也可通过Font属性更改字体;按钮的Caption属性值设为“重新登录”。
在Form1窗体中,双击“登录”按钮,弹出代码窗口。编写代码如下:Private Sub Command1_Click() If Text1 = "aaa" And Text2 = "abc123" Then Form1.Hide Form2.Show Else Form1.Hide Form3.Show End If End Sub 在Form1窗体中,双击“重新输入”按钮,同样弹出代码窗口,编写代码如下:Private Sub Command2_Click() Text1 = "" Text2 = "" End Sub 在Form2窗体中,双击“返回”按钮,弹出代码窗口,编写代码如下:Private Sub Command1_Click() Form2.Hide Form1.Show Form1.Text1 = "" Form1.Text2 = "" End Sub 在Form3窗体中,双击“重新输入”按钮,弹出代码窗口,编写代码如下:Private Sub Command1_Click() Form3.Hide Form1.Show Form1.Text1 = "" Form1.Text2 = "" End Sub
至此,我们完成了编程。为了检验程序的正确性,可以右键“文件”,选择“调试”,或直接点击调试按钮。
温馨提示:答案为网友推荐,仅供参考