【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“用VB编写登录程序 - 编程语言”一文，供大家参考学习!

用 VB 编写登录程序 ○ 王海燕 我们在使用许多软件时都遇到过这样的情况当你运行它时通常需要用户输入一个用户名和密码才能进入其实我们在编制自己的软件时也完全可以自己设计一个必须输入密码才能登录运行的程序。

    现将登录程序的编写过程介绍如下。

     一、建立窗体 首先打开VB6.0出现新建工程对话框选择标准 EXE单击打开即可新建一个工程。

    新建一个工程后VB 自动生成了一个窗体其默认的名称是 Form1且显示的标题也是 Form1显然与我们要编写的程序不符。

    我们可以更改这些设置方法是点击 Form1窗体在右边的属性窗口中的名称后输入Denglu在后面讲的 Denglu 就是指的这个窗体在Caption后输入登录窗口。

    窗体设置好后我们便可以将控件放置到这个窗体中去了。

     二、加入控件 登录窗口中主要用到的是 TextBox（文本框）控件该控件主要是用于接收用户输入的文字并显示出来。

    在该程序中我们便可以使用 TextBox 控件接收用户输入的信息来判断是否是合法的用户。

    另外我们还将用到 Label标签控件及 CommandButton命令按钮控件。

    Label 控件用来显示用户名及密码标题CommandButton 控件用来设计确定及取消按钮。

    下面我们将这些控件放置到窗体中在工具箱中选择Label控件在窗体中拖动鼠标直到一定的大小然后在属性窗口中的Caption属性后输入用户名然后在其下方再拖动一个 Label 控件将 Caption 的值改为密码:在工具箱中选择TextBox控件在用户名后拖动一个 TextBox 控件用同样的方法在密码:后拖动一个 TextBox控件然后在属性窗口中将 Text 的值改为空即删除默认的 Text1为了不显示出用户输入的密码我们将第二个 TextBox 控件的 PasswordChar 属性设置为　这样在用户输入密码时显示的就是　了在工具箱中选择CommandButton控件将其拖动到窗体的下方一共两个分别将其 Caption 属性设置为确定和取消。

    调整好这些控件的位置后即可完成界面的设计。

     三、添加代码 编写该程序的主要目的是要判断输入的用户名和密码是否合法所以我们首先编写判断用户名的程序代码。

    双击确定按钮添加如下的程序代码: Private Sub Command1_Click 　　 ′判断是否输入了用户名 If Text1.Text〃〃 Then ′如果 Text1 为空即没有输入用户 MsgBox 〃请输入用户名〃　 vbOKOnlyvbCritical 　〃错误〃 Exit Sub ′退出这个过程 Else ′如果输入了用户名 If Text1.Text〃计算机〃 And Text2.Text〃computer〃 Then ′如果输入的用户名是〃电脑报〃且密码为〃computer〃 MsgBox 〃你是合法用户欢迎进入〃　 vbOKOnlyvbInformation 　〃欢迎进入〃 Else ′如果不是〃计算机〃或密码不是〃computer〃 MsgBox 〃用户名或密码错误〃　 vbOKOnlyvbCritical 　〃错误〃 Text1.Text〃〃 Text2.Text〃〃 ′清空 Text1 及 Text2 控件中的文本内容让用户重新输入 End If End If End Sub 在这一段代码中我们使用了 If…Then…Else…End If这是一个条件判断语句IfText1.Text〃〃 Then 这句代码则是判断 Text1 是否为空如果为空这个条件就成立则执行 Then 后的语句如果 Text1 不为空则这个条件不成立程序将会跳到 Else 处执行 Else后的语句。

     四、测试程序 现在我们可以单击F5键来运行这个程序看看它的运行效果。

    直接单击确定按钮将会弹出一个对话框在用户名后输入计算机密码:后输入computer再单击确定按钮此时便会出现一个欢迎进行的信息框。

    怎么样一个属于自己的登录窗口就制作好了。