用VB编写登录程序

众所周知，进入Windows操作系统时，会出现登录对话框，要求用户输入密码后才能进入Windows。我们也可以用VB编写这样的登录窗口，具体方法如下:
界面设计:
打开VB6.0，会出现新建项目的对话框。选择标准EXE，然后单击“打开”创建一个新项目。新项目建立后，VB自动生成一个表单，默认名称为Form1，显示的标题为Form1，这显然与我们要写的程序不一致。我们可以通过点击Form1表单，在右边的属性窗口(如图1)的“姓名”后输入“邓璐”(后面的邓璐指的就是这个表单)，在“标题”后输入“登录窗口”来改变这些设置。在表单设置好之后，我们可以将控件放在这个表单中。
TextBox控件主要用于“登录窗口”，主要用于接收和显示用户输入的文本。在这个程序中，我们可以使用TextBox控件来接收用户输入的信息，以判断其是否为合法用户。此外，我们还将使用Label控件和CommandButton控件。标签控件用于显示“用户名”和“密码”标题；CommandButton控件用于设计OK和Cancel按钮。让我们把这些控件放到表单中:在工具箱中选择Label控件(如图2所示)，在表单中拖动鼠标直到达到一定的大小，然后在属性窗口中的Caption属性后输入用户名，再在其下方拖动另一个Label控件，将Caption值改为Password:；在工具箱中选择“TextBox”控件(如图3所示)，在“用户名”后拖动一个TextBox控件，用同样的方法在“密码:”后拖动一个TextBox控件，然后在属性窗口中将Text的值改为空(即删除默认的Text1)。为了不显示用户输入的密码，我们将使用第二个TextBox控件选择工具箱中的CommandButton控件(如图4所示)，将其拖动到表单底部(共两个)，并将其Caption属性分别设置为OK和Cancel。调整好这些控件的位置后(如图6所示)，界面的设计就可以完成了。
程序代码:
这个程序的主要目的是判断输入的用户名是否合法，所以我们先写程序代码来判断用户名。双击“确定”按钮，添加如下程序代码:(粗体部分是系统自动生成的代码， 斜体为注释)
Private子命令1 _ click ()
'确定用户名是否
if Text1.text = " "然后'如果Text1是空"，vbokonly+vbcritical，" error "
exit sub '退出此进程
Else '如果用户名
If text = " software world "和text2.text =" 12345 "然后'如果输入的用户名是" Software World "， ，vbokonly+vbcritical，" error "
text 1 . text = " "
Text2 . text = " " '清除空Text1和text 2控件中的文本内容，并让用户重新输入
end if
。这是一个条件判断语句，如果Text1。text = " "那么这段代码就是判断Text1是否空。如果是空，这个条件成立，然后执行then之后的语句。如果text1不是空，这个条件不成立，程序会跳转到Else执行。
程序测试:
现在我们可以点击“F5”键运行这个程序，看看它的运行效果。直接点击确定，会弹出一个对话框(如图7)；在“用户名”和“密码:”后输入“软件世界”，然后输入“12345”，再点击“确定”按钮，就会出现“欢迎继续”的消息框(如图8所示)。反正做了一个自己的“登录窗口”。
但是目前这个程序只能判断程序中已经设置好的用户名和密码。没有灵活性，可以充分发挥自己的聪明才智，让判断多个合法用户和密码成为可能。