将VB中的ToolBar变成平面的

• 关 键 词：
• window

'with a toolbar on it (name = toolbar1)

'insert the next code

'press F5

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) 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

Const WM_USER = &H400

Const TB_SETSTYLE = WM_USER + 56

Const TB_GETSTYLE = WM_USER + 57

Const TBSTYLE_FLAT = &H800

Private Sub SetToolBarFlat(tlbTemp As Toolbar)

Dim lngStyle As Long

Dim lngResult As Long

Dim lngHWND As Long

lngHWND = FindWindowEx(tlbTemp.HWnd, 0&, "ToolbarWindow32", vbNullString)

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

lngStyle = lngStyle Or TBSTYLE_FLAT

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

tlbTemp.Refresh

End Sub

Private Sub Form_Load

Call SetToolbarFlat(Toolbar1)

End Sub浏览地址： http://www.qqread.com/vb/h233597.html进入讨论组讨论。

【深 度 阅 读】 相 关 文 章

用VC开发IE浏览器插件：IE Toolbar

WinForm中ToolBar与TabControl的一些事件写法（C#

IE工具条插件Toolbar开发简介

vb.net入门——ToolBar 控件的使用