用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
　　　　　　　　　　　　　　　　　　　　　(浙江 陈小勇)

文章来源于领测软件测试网 https://www.ltesting.net/