VB窗体抖动效果本代码仅供参考,注释部分不可复制,请手动输入。抱歉。本教程十分简单,不懂有没有人下载。其实我也没学过,自己编造的,竟然可以使用。DimaAsInteger‘在通用部分声明一个整型变量。PrivateSub抖动_Click()‘当单击“抖动”按钮时执行。a=0‘令a=0。=True‘使时间控件1为可执行状态。EndSubPrivateSubTimer1_Timer()‘时间控件1执行的内容。=True‘使时间控件2为可执行状态。Ifa==+80‘下移80缇。a=a+1ElseIfa==+80‘右移80缇。a=a+1ElseIfa==–80‘上移80缇。a=a+1ElseIfa==–80‘左移80缇。a=0‘(因为a是为了使上面操作按顺序执行的,所以a要回到初始状态0)。EndIfEndSubPrivateSubTimer2_Timer()‘时间控件2执行的内容。=TrueThen‘当时间控件1执行时,令时间控件1、2为不可执行。==FalseEndIfEndSub下面是关于时间控件的配置Timer1刚开始是不可执行状态,可执行时是50微秒执行一次。Timer2刚开始是不可执行状态,可执行时是960微秒执行一次。因为我想要振动3个周期,所以取时间为(80缇×4次移动×3个周期=960)本教程十分简单,不懂有没有人下载。其实我也没学过,自己编造的,竟然可以使用。下面是一个简单的蒙人的小程序,是显示小词典指定页码里的重要成语的程序,制作方法先不说了,以后会发的,注意看联系方式。谢谢!
VB窗口抖动效果代码1 来自淘豆网m.daumloan.com转载请标明出处.
