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

2007-04-10　源自:　网友评论 0 条　进入视频教程

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

上一篇： 用VB5读写注册表实例
下一篇：用VB5 Winsock控件创建TCPIP客户机 服务器程序

评论　 点击查看

通行证密码 

匿名发表