闪动窗口标题
只需一个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----编译运行，按下“开始”按钮，看到窗口标题在闪动了吗？按下“结束”按钮结束窗口标题的闪动。是不是很简单？
