开发工具:
文件大小: 712kb
下载次数: 0
上传时间: 2019-07-10
详细说明： 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（即收回锁屏横条）
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
相关搜索:
