用VB5 制作“闪烁标题栏”窗体

发表于:2007-06-17来源:作者:点击数: 标签:
用 VB 5 制作“闪烁标题栏”窗体 -------------------------------------------------------------------------------- 在一些 Windows 程序中,在特殊的时刻,程序窗体会闪烁标题栏以引起用户的注意,效果很好。其实,用VB5实现这种效果很容易。 具体步骤如

   
  用VB5 制作“闪烁标题栏”窗体

--------------------------------------------------------------------------------


  在一些Windows程序中,在特殊的时刻,程序窗体会闪烁标题栏以引起用户的注意,效果很好。其实,用VB5实现这种效果很容易。

  具体步骤如下:
  一、创建一个新工程,将如下代码加入到Form1的 “通用声明”中:
  Option Explicit
  Private Declare Function FlashWindow Lib “user32”(ByVal hwnd As Long,ByVal bInvert As Long) As Long
  二、向窗体Form1中加入一个定时器控件Timer1,设置如下属性:
  Enabled:False
  Interval:500
  将下列代码加入到Timer1的Timer事件中:
  Private Sub Timer1_ Timer()
  FlashWindow hwnd,True
  End Sub
  三、向窗体Form1中加入两个按钮控件,设置如下属性:
  Command1:
  Caption:“闪烁标题栏”
  Command2:
  Caption:“停止闪烁”
  将如下代码加入到Command1的Click事件中:
  Private Sub Command1_ Click()
  Timer1= True
  End Sub
  再将如下代码加入到Command2的Click事件中:
  Private Sub Command2_ Click()
  FlashWindow hwnd,False
  Timer1= False
  End Sub
                     (浙江 陈小勇)

原文转自:http://www.ltesting.net