| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 【已解决】[求助]窗口抖动怎么做？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138147) |
| -- 作者：zto001 -- 发布时间：2019/7/23 22:31:00 -- 【已解决】[求助]窗口抖动怎么做？ http://www.newxing.com/Code/VB/jiemian/QQ_605.html 这是我网上找的vb源码。想做像qq一样的窗口抖动怎么做？
[此贴子已经被作者于2019/7/25 17:07:43编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/7/23 23:05:00 -- 计时器事件短时间内左右设置窗口的位置不就行了，间隔改为50毫秒， If vars("a") Mod 2 = 0 Then e.Form.baseform.left = e.Form.baseform.left-5 Else e.Form.baseform.left = e.Form.baseform.left+5 End If vars("a") = vars("a")+1 If vars("a") >= 10 Then e.Form.TimerEnabled = False End If [此贴子已经被作者于2019/7/23 23:04:51编辑过]
|
| -- 作者：thz706 -- 发布时间：2019/7/24 14:11:00 -- 用独立窗口试验了下，没抖起来。 |
| -- 作者：有点蓝 -- 发布时间：2019/7/24 14:37:00 -- 窗口彻底打开后再启动计时器，不然窗口还没看到已经抖完了 |