VB中ToolBar改颜色的官方方法

zhgc

摘自：Modules.crack_toolbar.bas

1. Option Explicit
   
2. Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwnewlong As Long) As Long
   
3. Private Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, ByRef lColorRef As Long) As Long
   
4. Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long
   
5. Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
   
6. Private Declare Function CreatePatternBrush Lib "gdi32.dll" (ByVal hBitmap As Long) As Long
   
7. Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long
   
8. 
   
9. Private Const GCL_HBRBACKGROUND As Long = -10
   
10. 
    
11. Private Function GDI_TranslateColor(OleClr As OLE_COLOR, Optional hPal As Integer = 0) As Long
    
12. If OleTranslateColor(OleClr, hPal, GDI_TranslateColor) Then
    
13. GDI_TranslateColor = &HFFFF&
    
14. End If
    
15. End Function
    
16. 
    
17. Function GDI_CreateSoildBrush(bColor As OLE_COLOR) As Long
    
18. GDI_CreateSoildBrush = CreateSolidBrush(GDI_TranslateColor(bColor))
    
19. End Function
    
20. 
    
21. Public Sub SetToolbarBK(hwnd As Long, hColor As OLE_COLOR)
    
22. DeleteObject SetClassLong(hwnd, GCL_HBRBACKGROUND, GDI_CreateSoildBrush(hColor))
    
23. InvalidateRect 0&, 0&, False
    
24. End Sub

复制代码

zhgc

用法：

'Private Sub Command1_Click()
'Call SetToolbarBK(Toolbar1.hwnd, vbYellow)
'Call SetToolbarBK(Toolbar1.hwnd, QBColor(Int(Rnd * 16)))  '随机色
'End Sub

'Private Sub Form_Unload(Cancel As Integer)
' SetToolbarBK Toolbar1.hwnd, vbButtonFace
'End Sub


'SetToolbarBK Me.tlbtoolbar.hwnd, Me.BackColor