把VB規(guī)范的工具欄變成平面式
發(fā)表時(shí)間：2024-02-25 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]平面式的工具欄好象顯得很酷！但 VB5 只提供了普通的凸起的工具欄。你是否想把它變成平面的？這似乎很不容易。但事實(shí)并非如此，試試：BAS:Public Const WM_USER = &H400Public Const TB_SETSTYLE = WM_USER + 56Public Co...
平面式的工具欄好象顯得很酷！但 VB5 只提供了普通的凸起的工具欄。你是否想把它變成平面的？這似乎
很不容易。但事實(shí)并非如此，試試：
BAS:
Public Const WM_USER = &H400
Public Const TB_SETSTYLE = WM_USER + 56
Public Const TB_GETSTYLE = WM_USER + 57
Public Const TBSTYLE_FLAT = &H800
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Public 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
SUB:
Private Sub MakeFlat()
Dim style As Long
Dim hToolbar As Long
Dim r As Long
hToolbar = FindWindowEx(Toolbar1.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)
Toolbar1.Refresh
End Sub
注意：需要 4.70 或其以上版本的 comctl32.dll 支持。
