闪动窗口标题

页面导航:首页 > 软件编程 > vb.net > 闪动窗口标题

闪动窗口标题

来源: 作者: 时间:2016-02-05 12:32 【

只需一个API函数就可以实现窗口标题的闪动。下面的例子实现了该功能:步骤1----建立新工程,在窗体上放置一个CommandButton按钮控件,一个Timer控件。设置Timer

 

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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <