发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9062, 日期: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
作者: 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