• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

实现平面工具栏

　　流行软件的工具栏上的按钮是平的按钮，当鼠标移过时才会突起，这种效果采用贴图的方法实现十分麻烦，而利用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)

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范