【文件属性】：
文件名称：Vb6.0 实现窗口标题栏一闪一闪特效.rar
文件大小：37KB
文件格式：RAR
更新时间：2022-07-30 11:09:09
VB源码-窗体界面
VB 窗体标题栏闪烁实例，可参照以下代码实现窗体标题栏的闪烁功能：
声明API函数Flashwindow
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, _
ByVal bInvert As Long) As Long
Private Sub Form_Load()
Me.Caption = "闪烁的窗体标题栏!" '设置标题栏文字
End Sub
Private Sub Form_Resize()
If WindowState = 1 Then '窗体最小化时，打开计时器，闪烁窗体
Timer1.Enabled = True
Else '否则关闭计时器
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer() '计时器事件
Call FlashWindow(hwnd, 1) '调用API函数
End Sub
【文件预览】：
srcfans.com
----099()
--------MSSCCPRJ.SCC(189B)
--------Form1.frx(35KB)
--------E239.vbw(50B)
--------Form1.frm(1KB)
--------E239.vbp(635B)