vb开发APK安卓应用BASIC语法写手机程序

vb开发APK安卓应用BASIC语法写手机程序
vb开发APK安卓应用BASIC语法写手机程序
  • 3
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
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(即收回锁屏横条)

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

专注VB编程开发20年

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值