如何让窗体的标题条闪烁以引起用户注意？

1970-1-1 08:00| 发布者: 共享| 查看: 1879| 评论: 0

'API函数声明
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

'在窗体中写下如下代码:
Private Sub Form_Load()
　　Me.TimerInterval = 200
End Sub

Private Sub Form_Timer()
FlashWindow Me.hwnd, True
End Sub

帐号		自动登录	找回密码
密码			注册

相关分类