| Dim r As Long
''''获的工具条窗口句柄
hToolbar = FindWindowEx(tb.hwnd,0&,"ToolBarWindow32",vbNullString)
''''获的当前工具条的风格
style = SendMessageLong(hToolbar,TB_GETSTYLE,0&, 0&)
If style And TBSTYLE_FLAT Then
style = style Xor TBSTYLE_FLAT
Else
style = style or TBSTYLE_FLAT
End If
''''设置工具条的平面风格
r=SendMessageLong(hToolbar,TB_SETSTYLE,0, style)
tb.Refresh
End Sub
过程FlatBar()的调用方法：
1 . 在你的窗体上添加Toolbar控件（命名为：myTB）和ImageList控件。按通常的方法一样在ImageList中播入几个图标并和Toolbar绑定建立一个平常的工具条。
2 . 在窗体的Load()事件中调用FlatBar()
Call FlatBar(myTB)
3. 运行，您的工具条一定COOL起来了。
上一页 [1] [2] [3] [4] [5] | 
