VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 建立闪烁的视窗title
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8795, 日期:2001-09-17
 建立闪烁的视窗title


作者: cww 

Option Explicit
Private Declare Function FlashWindow  Lib "user32" (  ByVal hwnd As Long, ByVal bInvert As Long ) As Long
注释:hwnd 是待闪烁的window
注释:binvert 1 表视窗title会闪一次

注释:开始闪烁
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
注释:停上title闪烁
Private Sub Command2_Click()
Timer1.Enabled = False
注释:Call FlashWindow(hwnd, CLng(False))
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 500
End Sub

Private Sub timer1_Timer()
Dim lRtn As Long
注释:每执行一次则闪一次
lRtn = FlashWindow(hwnd, CLng(True))
End Sub