如何实现窗体抖动提醒

xdcow

到了时间就弹出窗体报警。
仅是弹出来效果差了些，希望象QQ的抖动一样，快速的抖动几次，效果就很显著了。
该用什么代码呢

t小宝

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

楼上好办法

roych

考虑在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试试看。

xdcow

谢谢,不错.我调了一下.
将计时调为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

zzf9008

效果不错，谢谢

wufeng980114

路过，学习了，好办法

lovesgh

学习

huangli0356

学习了..不过还没测试.等测试了再告诉大家测试结果哦..