Office中国论坛/Access中国论坛

标题: 如何实现窗体抖动提醒 [打印本页]

---

作者: xdcow    时间: 2012-5-6 16:49
标题: 如何实现窗体抖动提醒
到了时间就弹出窗体报警。
仅是弹出来效果差了些，希望象QQ的抖动一样，快速的抖动几次，效果就很显著了。
该用什么代码呢

---

作者: roych    时间: 2012-5-6 18:57


考虑在Timer事件里加上窗体的Move方法试试。

1. Private Sub Form_Timer()
   
2. Dim i As Long
   
3. 
   
4. For i = 1 To 1000
   
5.     If i <= 500 Then
   
6.         Me.Form.Move 0, i
   
7.     Else
   
8.         Me.Form.Move 0, -500
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

设置“计时器间隔”为1000试试看。

---

作者: t小宝    时间: 2012-5-7 00:05

roych 发表于 2012-5-6 18:57
考虑在Timer事件里加上窗体的Move方法试试。设置“计时器间隔”为1000试试看。

楼上好办法

---

作者: zzf9008    时间: 2012-5-7 08:18
效果不错，谢谢

---

作者: xdcow    时间: 2012-5-7 12:41
谢谢,不错.我调了一下.
将计时调为50

Dim Td As Integer

Private Sub Form_Open(Cancel As Integer)
    Td = 0
End Sub


Private Sub Form_Timer()
  
    If Td Mod 2 = 0 Then
        Me.Form.Move 5000, 2500
    Else
        Me.Form.Move 5100, 2400
    End If
    Td = Td + 1
    If Td >= 15 Then
        TimerInterval = 0
    End If
End Sub

---

作者: wufeng980114    时间: 2012-8-5 09:45
路过，学习了，好办法

---

作者: lovesgh    时间: 2012-12-17 10:14
学习

---

作者: huangli0356    时间: 2013-1-16 09:38
学习了..不过还没测试.等测试了再告诉大家测试结果哦..

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3