怎样使程序的标题条闪烁
创建一个新的项目文件,添加一个模块文件,并填写以下代码:
公共声明函数FlashWindow _
Lib "user32" (ByVal hwnd As Long,_
ByVal bInvert一样长)一样长
向窗体添加两个按钮和一个计时器,并使用设置以下属性:
1.命令。caption = "开始"
2.命令标题= "停止"
定时器1.interval=500 '每0.5秒闪烁一次
定时器1 . enabled =假
私有子定时器1_Timer()
a& = FlashWindow(Me.hwnd,1)
末端接头
私有子命令1_Click()
定时器1。启用=真
末端接头
私有子命令2_Click()
定时器1。启用=假
End Sub
0条评论