37.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 26 行

闪动窗口标题 
     只需一个API函数就可以实现窗口标题的闪动。
下面的例子实现了该功能:
>>步骤1----建立新工程，在窗体上放置一个CommandButton按钮控件，一个Timer控件。 设置Timer的Enable=false;Interval = 200;
>>步骤2----编写如下代码：

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd _
    As Long, ByVal bInvert As Long) As Long
Dim bFlash As Boolean

Private Sub Command1_Click()
    If bFlash Then
        Timer1.Enabled = False
        Command1.Caption = "开始"
    Else
        Timer1.Enabled = True
        Command1.Caption = "中止"
    End If
    bFlash = Not bFlash
End Sub

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

>>步骤3----编译运行，按下“开始”按钮，看到窗口标题在闪动了吗？按下“结束”按钮 结束窗口标题的闪动。是不是很简单？