VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用VB5 制作“闪烁标题栏”窗体
发表评论(0)作者:浙江 陈小勇, 平台:VB6.0+Win98, 阅读:8439, 日期:2000-11-20
用VB5 制作“闪烁标题栏”窗体
2000-10-17 20:32:47  

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


  在一些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
                     (浙江 陈小勇)