文件名称：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)