首页 >> 读书频道 >> 电脑 >> 实现平面工具栏下
 
· 第二部分 文档类型定义
· 利用API和注册表获取系
· 第二部分 文档类型定义
· 利用API和注册表获取系
· 第二部分 文档类型定义
· VB快速调用系统对话框下
· 利用API和注册表获取系
· 第二部分 文档类型定义
· 妙用GetSystemM
· VB托盘程序详解下
· 实现隐藏和显示桌面图标
· 第二部分 文档类型定义
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

实现平面工具栏下


查看有无更新版本

关键字:VB 2006-9-17

 

【参数表】
hWnd1 ---------- Long,在其中查找子的父窗口。如设为零,表示使用桌面窗口(通常说的顶级窗口都被认为是桌面的子窗口,所以也会对它们进行查找) 

hWnd2 ---------- Long,从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零,表示从第一个子窗口开始搜索 

lpsz1 ---------- String,欲搜索的类名。零表示忽略 

lpsz2 ---------- String,欲搜索的类名。零表示忽略 

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 


【VB声明】 

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

【说明】
调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum,
SendMessageByString是该函数的“类型安全”声明形式 

【返回值】
Long,由具体的消息决定 

【参数表】
hwnd ----------- Long,要接收消息的那个窗口的句柄 

wMsg ----------- Long,消息的标识符 

wParam --------- Long,具体取决于消息 

lParam --------- Any,具体取决于消息 

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 
设置工具栏为新的样式 

Private Sub SetToolbar(tBar As Toolbar)
Dim lngResult As Long
Dim lngHWND As Long
Dim lngStyle As Long  

得到Toolbar的句柄 

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

得到原有的Toolbar的样式

lngStyle = SendMessage(lngHWND, TB_GETSTYLE, 0&, 0&)  

设置一个图形在上、文字在下的平面工具栏 

lngStyle = lngStyle Or TBSTYLE_FLAT  

用API函数实现工具栏的新样式 

lngResult = SendMessage(lngHWND, TB_SETSTYLE, 0, lngStyle)  

刷新工具栏 

tBar.Refresh
End Sub 

Private Sub exitfile_Click()
Unload Me
End Sub 

Private Sub Form_Load()  

调用函数改变工具栏 

Call SetToolbar(Me.Toolbar1) 

End Sub

实现平面工具栏下

[ 1 ]
实现平面工具栏下 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑