至zdg、zyb和flaw关于（请高手指点如何做出像IE5之类风格的菜单和工具栏?）的回复问题

[君临]

zdg:程序员大本营我看了,没找到.vc++和VB的方法一样吗?
zyb:对不起,我没看懂你说的,我是说做出下拉菜单那一部分,用你说的那种方法能实现吗?
flaw:我找了很多控件都没找着,能否给介绍一个?谢谢!

[zdg]

这个网站的Visual C++==>VC源程序==>高级用户界面中有一篇文章:
internet explorer 4 style ui
http://www.midatech.com/csdn/visual%20C++/Source%20Code/Advanced_UI/demo_ui_explorer.shtml.htm
应该可以帮助你...

[zyb]

下拉菜单怎么啦？把你的要求再说详细些！

[jing]

Cool Bar
Comct332.ocx

[zyb]

可以试一试TSpeedButton，将器flat属性设为true不就行啦！需将TSpeedButton放在一个TPanel上。

[君临]

那是delphi的方法呀!
而我用的是VB,怎么做呢?

[King]

VC我不知道，Delphi中有一个叫CoolBar的控件。

[peacock]

IE5我没试过，不过IE4能。下面的方法可能对你有用

Office或IE4风格的ToolBar

用API 可以轻松改变 ToolBar 的风格。需要 4.70 或其以上版本的 comctl32.dll 支持。

声明：

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 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 Const WM_USER = &H400

Private Const TB_SETSTYLE = WM_USER + 56

Private Const TB_GETSTYLE = WM_USER + 57

Private Const TBSTYLE_FLAT = &H800

Private Const TBSTYLE_LIST = &H1000

函数：

' tlbToolbarStyle :

'1 为 Office97 风格

'2 为 IE4 风格

Public Sub ToolbarStyle(tlb As Toolbar, _

tlbToolbarStyle As Long)

Dim lngStyle As Long

Dim lngResult As Long

Dim lngHWND As Long


' Find child window and get style bits

lngHWND = FindWindowEx(tlb.hwnd, 0&, _

"ToolbarWindow32", vbNullString)

lngStyle = SendMessage(lngHWND, _

TB_GETSTYLE, 0&, 0&)


' Use a case statement to get the effect

Select Case tlbToolbarStyle

Case 1:

' Creates an Office 97 like toolbar

lngStyle = lngStyle Or TBSTYLE_FLAT

Case 2:

' Creates an Explorer 4.0 like toolbar,

' with text to the right

' of the picture. You must provide text

' in order to get the effect.

lngStyle = lngStyle Or TBSTYLE_FLAT _

Or TBSTYLE_LIST

Case Else

lngStyle = lngStyle Or TBSTYLE_FLAT

End Select


' Use the API call to change the toolbar

lngResult = SendMessage(lngHWND, _

TB_SETSTYLE, 0, lngStyle)
　

' Show the effects

tlb.Refresh

End Sub


在 Form 装入时调用:

Private Sub Form_Load()

Call ToolbarStyle(Me.Toolbar1, 2)

' …

End Sub

关于ToolBar 风格的说明：

Office 风格的 Toolbar 是指在鼠标移动到 ICON 后，会出现边框。如我们在 VB5 中用的一样。而comctl的ToolBar是没有该效果的。

IE4 风格的 Toolbar 可以在ICON 下面出现文字，如同 IE4 中的Toolbar 一样。(可能是反一下…… )



放一个Combo到Toolbar中


1. 放一个 ComboBox 到表单.

2. 放一个 Toolbar?在表单.

3. 增加下面的代码到 Form1 :

Private Sub Form_Load()

Dim btn As Button

Me.Show

Set btn = Toolbar1.Buttons.Add()

btn.Style = tbrSeparator

Set btn = Toolbar1.Buttons.Add()

btn.Style = tbrPlaceholder

btn.Key = "ComboBox"

btn.Width = 2000

With Combo1

.ZOrder 0

.Width = Toolbar1.Buttons("ComboBox").Width

.Top = Toolbar1.Buttons("ComboBox").Top

.Left = Toolbar1.Buttons("ComboBox").Left

End With

End Sub

[zyb]

前些天在《电脑报》上好象看过一篇介绍用API函数制作IE5类型菜单的文章，周六、周日我休息，等我查查，再回复你吧！