原文地址： 使用VB编写QQ2012登陆界面以及简单的判断功能 – 代码练习 作者： 沈晨
使用 VB 编写 QQ2012 登陆界面以及简单的判断功能 – 代码 练习****
作者：沈晨 编写用时：2个半小时
Const TS As String = "登录提示："
'当输入帐号时
Private Sub Combo1_Change()
'向对应的帐号添加对应的图片
If Combo1.Text = "1161738714" Then
Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011161738714.picture.jpg")
ElseIf Combo1.Text = "1179845640" Then
Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011179845640.picture.jpg")
ElseIf Combo1.Text = "1079788293" Then
Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011079788293.picture.jpg")
Else
Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001QQ截图20120316142952.jpg")
End If
End Sub
'当点击下拉列表框选择帐号时
Private Sub Combo1_Click()
'向对应的帐号添加对应的图片
If Combo1.Text = "1161738714" Then
Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011161738714.picture.jpg")
ElseIf Combo1.Text = "1179845640" Then
Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011179845640.picture.jpg")
ElseIf Combo1.Text = "1079788293" Then
Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011079788293.picture.jpg")
Else
Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001QQ截图20120316142952.jpg")
End If
End Sub
Private Sub Form_Load()
'改变指定 组件 字体的颜色
Label3.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd() * 255))
Label4.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd() * 255))
'向 组件 添加内容
Combo1.AddItem "1161738714"
Combo1.AddItem "1179845640"
Combo1.AddItem "1079788293"
'向 组件 添加内容
List1.AddItem "在线"
List1.AddItem "隐身"
List1.AddItem "离开"
List1.AddItem "忙碌"
'向 组件 添加内容
Option1.Caption = "记住密码"
Option2.Caption = "自动登录"
'向 组件 添加内容
Command2.Caption = "网络设置"
End Sub
'当鼠标移到 登录 图片外 （组件 Imager3 前）改变图片
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录.jpg")
'改变字体 --> 不显示字体下划线
Label3.FontUnderline = False
Label4.FontUnderline = False
End Sub
'当鼠标按下 登录 图片时 改变图片
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录2.jpg")
End Sub
'当鼠标移到 登录 图片内 改变图片
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'当鼠标移到可链接 字体上方时 改变鼠标图案为 手指状
Image4.MousePointer = 99
Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录1.jpg")
End Sub
'当鼠标抬起 登录 图片时 改变图片
Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录.jpg")
End Sub
Private Sub Image4_Click()
'判断 帐号 是否为空
If Combo1.Text = "" Then
MsgBox "请您输入帐号后再登录！", , TS
'判断 密码 是否为空
ElseIf Text1.Text = "" Then
MsgBox "请您输入密码后再登录！", , TS
End If
'判断输入的 帐号密码 是否正确
If Combo1.Text = "1161738714" Then
If Text1.Text = "86573178." Then
MsgBox "登陆成功！", , TS
MsgBox "此软件为测试软件，不含联网登录功能！", , TS
Text1.Text = "" '文本框内容改为空
ElseIf Text1.Text <> "" Then
MsgBox "密码输入错误！", , TS
Text1.Text = "" '文本框内容改为空
End If
ElseIf Combo1.Text = "1179845640" Then
If Text1.Text = "0000" Then
MsgBox "登陆成功！", , TS
MsgBox "此软件为测试软件，不含联网登录功能！", , TS
Text1.Text = "" '文本框内容改为空
ElseIf Text1.Text <> "" Then
MsgBox "密码输入错误！", , TS
Text1.Text = "" '文本框内容改为空
End If
ElseIf Combo1.Text = "1079788293" Then
If Text1.Text = "1111" Then
MsgBox "登陆成功！", , TS
MsgBox "此软件为测试软件，不含联网登录功能！", , TS
Text1.Text = "" '文本框内容改为空
ElseIf Text1.Text <> "" Then
MsgBox "密码输入错误！", , TS
Text1.Text = "" '文本框内容改为空
End If
ElseIf Text1.Text <> "" And Combo1.Text <> "1161738714" And Combo1.Text <> "1179845640" And Combo1.Text <> "1079788293" Then
MsgBox "帐号不存在，请重新输入！", , TS
Combo1.Text = "" '内容改为空
Text1.Text = "" '文本框内容改为空
End If
End Sub
Private Sub Command2_Click()
'消息框提示
MsgBox "此功能尚未开启，敬请期待！", , "消息提示："
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'当鼠标移到可链接 字体上方时 改变鼠标图案为 手指状
Label3.MousePointer = 99
'当鼠标移到 Label3 组件内时，字体添加下划线
Label3.FontUnderline = True
End Sub
'点击 组件时转到指定的网站
Private Sub Label3_Click()
Shell "explorer.exe ""zc.qq.com/chs/index.h…"""
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'当鼠标移到可链接 字体上方时 改变鼠标图案为 手指状
Label4.MousePointer = 99
'当鼠标移到 Label4 组件内时，字体添加下划线
Label4.FontUnderline = True
End Sub
'点击 组件时转到指定的网站
Private Sub Label4_Click()
Shell "explorer.exe ""aq.qq.com/cn2/findpsw…"""
End Sub
主要的功能截图：
程序运行界面：
![[转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练](http://simg.sinajs.cn/blog7style/images/common/sg_trans.gif "[转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练")
判断帐户并改变图案
\
判断帐户为空时：
\
判断帐号不存在时：
\
判断密码输入错误时：
\
判断密码为空时：
\
当点击网络设置时：
\
\
其它的功能就不再演示了，自己可以试试。比如：1、点击“注册帐号”时，自动打开IE并链接到相应的网站！2、密码输入错误时，自动清空密码框中的内容，等等！
