VB窗体最小化后自动获得焦点问题？

Question

用VB编译的一个系统，系统中有个timer控件，该控件判断有新消息的时候，系统如果处于最小化状态，闪动提示？

Answer 1

使用托盘控件。选择两个图标，Timer交替替换图标，造成闪动效果。托盘控件和它的源代码在VB6安装盘上有，文件夹名叫 SYSTRAY。

Answer 2

Public Declare Function FlashWindow Lib "user32" Alias "FlashWindow" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Answer 3

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Sub Form_Load()
    Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
    If Me.WindowState = 1 Then
        FlashWindow Me.hwnd, 1000
    End If
End Sub

Answer 4

If Me.WindowState = 1 Then me.setfocus  这样都有效果。。