B/S办公系统如何实现有消息到达时产生类似qq头像闪烁效果
B/S办公系统如何实现有消息到达时产生类似qq头像闪烁效果.具体过程如何实现,有代码更好.

------解决方案--------------------
不间断的搜索数据库。如果有消息就提示。
象csdn的消息一样。
------解决方案--------------------
Private Sub Timer2_Timer()
Call FlashWindow(Me.hwnd, True)

iconBoolean = Not iconBoolean
If iconBoolean = False Then
Call Icon_Modify(Me.hwnd, "提示1! ", LoadPicture( " "), 0)
Else
Call Icon_Modify(Me.hwnd, "提示! ", Me.Icon, 0)
End If
End Sub
'iconBoolean为一全局变量，Timer2为一定时器

位置移动也一样，在Timer1的OnTimer里写
if flag=true then flag:=false
else flag:=true; //如果上次左移，则这次右移；要么相反
if flag then Image1.left:=Image1.left-5 //左移
else Image1.left:=Image1.left+5; //右移