| | | 实现平面工具栏 | | 2001-11-14·
· ··yesky
| 上一页 1 2 3 4 下一页 然后利用取得的句柄发送TB_GETSTYLE消息给Toolbar，此时程序中的lngStyle返回原有的Toolbar的样式。
| lngStyle = SendMessage(lngHWND, TB_GETSTYLE, 0&, 0&) |
最后发送TB_SETSTYLE消息给Toolbar，设置新的样式：
lngStyle = lngStyle Or TBSTYLE_FLAT 设置工具栏的新样式
用API函数实现工具栏的新样式
| lngResult = SendMessage(lngHWND, TB_SETSTYLE, 0, lngStyle) |
通过以上的几个步骤，平面的工具栏就实现了，现在我们来运行一下程序，看看鼠标移到工具栏上的效果吧。
为了学习方便，以下提供了源代码并附详细的中文注释：
-------------------------------------------
实现平面工具栏
-------------------------------------------
程序说明：
流行软件的工具栏上的按钮是平的按钮，当鼠标移过时才
会突起，这种效果采用贴图的方法实现十分麻烦，而利用
API函数实现起来就很方便，快捷。
实现的基本思路是：用SendMessage函数向工具栏发送设
置显示风格STYLE的消息来改变工具栏的显示效果。
Const WM_USER = &H400
Const TB_SETSTYLE = WM_USER + 56
Const TB_GETSTYLE = WM_USER + 57
Const TBSTYLE_FLAT = &H800
Const TBSTYLE_LIST = &H1000 |
【VB声明】
| 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 |
【说明】
在窗口列表中寻找与指定条件相符的第一个子窗口
【返回值】
Long，找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
上一页 1 2 3 4 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
