'API函数声明Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long'在窗体中写下如下代码rivate Sub Form_Load()Me.TimerInterval = 200End SubPrivate Sub Form_Timer()FlashWindow Me.hwnd, True End Sub
360网站安全检测平台
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
淘帖
支持
反对
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
rivate Sub Form_Load()Me.TimerInterval = 200End SubPrivate Sub Form_Timer()FlashWindow Me.hwnd, True End Sub 
共 1 个关于本帖的回复 最后回复于 2013-7-2 14:06