手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Asp.Net编程>列表

闪烁的标题栏

来源:互联网 作者:西部数码 时间:2008-04-09
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
  本例通过调用API函数 FlashWindow 实现了窗体标题栏的闪烁,标题栏的闪烁通常用来引起使用者的注意。

  在VB中声明这个API函数的方法是:

   Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long,
   ByVal bInvert As Long) As Long
  其中各个参数的意义如下表所示:

参数 意义

hwnd Long,要闪烁显示的窗口的句柄
bInvert Long,TRUE(非零)表示切换窗口标题;FALSE返回最初状态
返回值 Long,如窗口在调用前处于活动状态,则返回TRUE(非零)

  为了使窗体出现闪烁的效果,我们在Timer控件的Timer属性中调用FlashWindow函数即可,使用的方法如下:

  Call FlashWindow(Me.hwnd, True)
  其中Me.hwnd是当前窗体的句柄,而把bInvert设为True则表示进入标题栏闪烁状态。

  而停止闪烁的方法只要把bInvert设为False就行了,如下所示:
  Call FlashWindow(Me.hwnd, False)

  好了,非常简单,试试把它用到你的程序中去吧。

  为了学习方便,以下提供了源代码并附详细的中文注释:

-------------------------------------------
一个窗体标题闪烁的例子
-------------------------------------------
程序说明:
本例通过调用API函数 FlashWindow 实现了窗体标题栏的闪烁,标题栏的闪烁
通常用来引起用户的注意。
-------------------------------------------
【VB声明】

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
【说明】
闪烁显示指定窗口。这意味着窗口的标题和说明文字会发生变化,似乎从活动切换到非活动状态、或反向切换。通常对不活动的窗口应用这个函数,引起用户的注意

【返回值】
Long,如窗口在调用前处于活动状态,则返回TRUE(非零)

【备注】
该函数通常与一个计数器组合使用,生成连续的闪烁效果。在windows
nt及windows for workgroup中,bInvert参数会被忽略。但在windows 95中不会忽略

【参数表】
hwnd ----------- Long,要闪烁显示的窗口的句柄

bInvert -------- Long,TRUE(非零)表示切换窗口标题;FALSE返回最初状态

Private Declare Function FlashWindow Lib "user32" ( _
ByVal hwnd As Long, ByVal bInvert As Long) As Long
用来标示当前是否处于闪烁状态,取值True/False

Dim OnFlash As Boolean

Private Sub Command1_Click()
如果没有闪烁,开始闪烁

If OnFlash = False Then
Command1.Caption = "停止闪烁"
Timer1.Enabled = True
OnFlash = True
否则,停止闪烁

Else
Timer1.Enabled = False
Command1.Caption = "窗体标题栏闪烁"
这一语句是必须的,不然停止闪烁时标题栏可能会处于灰暗状态

Call FlashWindow(Me.hwnd, False)
OnFlash = False
End If
End Sub
以一定时间间隔闪烁,可以通过改变Timer1控件的Interval属性的值来改变

Private Sub Timer1_Timer()
调用 FlashWindow函数,Me.hwnd是Form1窗体的句柄

Call FlashWindow(Me.hwnd, True)
End Sub

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

[打印] [关闭]
Google
相关文章
上一篇:实现平面工具栏
下一篇:如何在VB中判断Windows9x的运行模式
热点关注
IDC资讯 虚拟主机 域名注册 托管租用 vps主机 智能建站
网站运营 建站经验 策划盈利 搜索优化 网站推广 免费资源
网站联盟 联盟新闻 联盟介绍 联盟点评 网赚技巧
行业资讯 业界动态 搜索引擎 网络游戏 门户动态 电子商务 广告传媒
网络编程 Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术 Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷 Internet Explorer
网页制作 FrontPages Dreamweaver Javascript css photoshop fireworks Flash
程序设计 Java技术 C/C++ VB delphi
网络知识 网络协议 网络安全 网络管理 组网方案 Cisco技术
操作系统 Win2000 WinXP Win2003 Mac OS Linux FreeBSD
返回首页 |关于我们 | 联系我们 | 付款方式 | 创业联盟 | 价格总览 | 资讯中心 | 友情链接 | 网站地图 | 招贤纳士 | RSS