Nazalost toolbar iz MSCOMCTL.OCX-a (Microsoft Windows Common Controls 6.0) ne moze da ima XP temu, ali zato moze njegov brat COMCTL32.OCX (Microsoft Windows Common Controls 5.0) medjutim on je nesto losiji i nema neke stilove kao 6.0 recim flat stil, ali se to moze postici jednim subom
Code:
Public Const WM_USER = &H400
Public Const TB_GETSTYLE = (WM_USER + 57)
Public Const TB_SETSTYLE = (WM_USER + 56)
Public Const TBSTYLE_FLAT = &H800
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Sub SetFlatToolBar(ByVal TBar As Toolbar)
Dim TBarHwnd As Long
Dim TBarStyle As Long
TBarHwnd = FindWindowEx(TBar.hwnd, 0, vbNullString, vbNullString)
TBarStyle = SendMessage(TBarHwnd, TB_GETSTYLE, 0&, 0&)
TBarStyle = TBarStyle Or TBSTYLE_FLAT
Call SendMessage(TBarHwnd, TB_SETSTYLE, 0, ByVal TBarStyle)
TBar.Refresh
End Sub
I primenom SendMessage funkcije na verziju 5.0 i odgovarajucih constanti i parametra se moze dobiti sva funkcionalnost verzije 6.0 i jos vise, i naravno XP stil