文件名称：VB6.0仿手机屏幕解锁特效.rar
文件大小：712KB
文件格式：RAR
更新时间：2022-07-30 11:38:27
VB源码-图形处理
VB6.0仿手机屏幕解锁特效，这个源码例子主要是使用二分法（或N分法）展示了锁屏按钮以及锁屏页的"渐进效果"，"渐进效果"还可以用于图片轮播哦~Private Sub Step1() '控制锁屏页向左渐进移动 If LockPage.Left <= -LockPage.Width Then '如果锁屏页的Left小于等于锁屏页的-Width时（简单说，锁屏页的位置需要在窗体的左侧（Left<0），即Left且要小于等于-Width（Left<0），不然会看到锁屏页隐藏不全） LockPage.Enabled = False '锁屏页移动过程中不可接受信息，防止未知错误的发生 LockPage.Left = -LockPage.Width '移动值可能超过-Width，所以最后要设置为默认值 Timer1.Enabled = False '时钟1使命完成~停止！ Else LockPage.Left = LockPage.Left - (Fix(LockPage.Width - Abs(LockPage.Left)) / 4) '如果锁屏页的Left大于锁屏页的-Width时，锁屏页开始向左渐进运动 End If End Sub Private Sub Step2() '锁屏时显示时间 ShowTime.Caption = Format(Now(), "hh:mm") End Sub Private Sub Step3() '锁屏横条向右伸展 If LockBanner.Width <= 5325 Then '如果锁屏横条的Width小于5325时 LockBanner.Width = LockBanner.Width Fix(Val / 2) '锁屏横条的Width开始向右渐进伸展 Val = Val / 2 '改变Val值（二分法的应用，不懂请在百度贴吧上看我发的帖子） Else LockBanner.Width = 5325 'Width值可能超过（未达到）5325，所以最后要设置为默认值 Timer3.Enabled = False '时钟3使命完成~停止！ Val = 5325 '返回Val值，为锁屏横条向左收缩做准备 End If End Sub Private Sub Step4() '锁屏横条向左收缩 If LockBanner.Width >= 5325 Then '如果锁屏横条的Width大于5325时 LockBanner.Width = LockBanner.Width - Fix(Val / 2) '锁屏横条的Width开始向左渐进收缩 Val = Val / 2 '改变Val值（二分法的应用，不懂请在百度贴吧上看我发的帖子） Else LockBanner.Width = Locked.Width 'LockBanner的Width值可能小于Locked的Width，所以最后要设置为默认值 Timer4.Enabled = False '时钟4使命完成~停止！ Val = 5325 '返回Val值，为下次锁屏横条向右伸展做准备 End If End Sub Private Sub Step5() '控制锁屏按钮向左渐进移动 If Locked.Left / 4 <= 1 Then '这里采用的是四分法，当Locked.Left / 4的值小于1时，肉眼观察不到按钮的移动，所以需要判断 Locked.Left = 0 'Locked.Left / 4的值太小啦~可以直接设置为默认值哦~ Timer5.Enabled = False '时钟5使命完成~停止！ Timer4.Enabled = True '等待时钟5使命完成后，再激活时钟4（即收回锁屏横条）
【文件预览】：
codesc.net
----展示.gif(185KB)
----VB仿手机解锁()
--------诺刻新浪博客.url(121B)
--------工程1.vbw(91B)
--------Form1.frx(329KB)
--------Pic()
--------Form1.frm(14KB)
--------iButton.ctl(20KB)
--------工程1.vbp(856B)