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