实现平面工具栏_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

实现平面工具栏

作者：闵涛文章来源：闵涛的学习笔记点击数：794 更新时间：2009/4/23 14:59:18

　　流行软件的工具栏上的按钮是平的按钮，当鼠标移过时才会突起，这种效果采用贴图的方法实现十分麻烦，而利用API函数实现起来就很方便，快捷。实现的基本思路是：用SendMessage函数向工具栏发送设置显示样式TB_SETSTYLE的消息来改变工具栏的显示效果。

　　我们先来声明API函数，本例中用到的两个函数声明如下：

　　　Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long

　　　Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Integer, ByVal lParam As Any) As Long

　　FindWindowEx函数的作用是在窗口列表中寻找与指定条件相符的第一个子窗口，它返回的值是找到的窗口的句柄，其中各个参数的意义如下表所示：

参数意义
hWnd1 Long，查找子窗口的父窗口。如设为零，表示使用桌面窗口(一般认为它是顶级父窗口)
hWnd2 Long，从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件者
lpsz1 String，欲搜索的类名。零表示忽略
lpsz2 String，欲搜索的类名。零表示忽略
返回值 Long，找到的窗口的句柄。如未找到相符窗口，则返回零。

　　SendMessage函数用于向某一窗口发送消息，它的各个参数的意义如下：

参数意义
hwnd Long，要接收消息的那个窗口的句柄
wMsg Long，消息的标识符，改变工具栏样式的标识为TB_SETSTYLE，它的值为 &H400 + 56
wParam Long，具体取决于消息
lParam String，与消息有关，平面工具栏是TBSTYLE_FLAT，它的值是&H800
返回值 Long，找到的窗口的句柄。如未找到相符窗口，则返回零。

　　我们先利用FindWindowEx函数取得Toolbar控件(是一个窗口，这里所说的窗口包括窗体、按钮、标签等各种控件)的窗口句柄，使用语法如下：

　　　lngHWND = FindWindowEx(tBar.hwnd, 0&, "ToolbarWindow32", vbNullString)

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：使窗体右上角的X按钮失效

下一篇教程：闪烁的标题栏

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……