XP style toolbar

[ Im2hot14 @ 25.12.2004. 11:24 ] @

treba mi neki xp style toolbar (kad se doda XP manifest) umesto starog koji ide sa microsoft windows common controls 6.0

[ mladenovicz @ 25.12.2004. 13:34 ] @

Treba ti kontrola ili ti treba nacin da primenis XP manifest?

[ Im2hot14 @ 25.12.2004. 19:09 ] @

treba mi kontrola

[ Wlada @ 27.12.2004. 15:34 ] @

fenomenalna kontrola cPopMenu. ne znam gde sam je pokupio, ali potrazi malo po googlu, pa ces naci.

[ Im2hot14 @ 27.12.2004. 21:24 ] @

nasao sam cpopmenu ali activeX can't create object (nece da radi)
meni ustvari treba nesto sto lici na windowsov task bar (ne mislim na istu boju [plavu] vec na pricip rada). hitno mi je

[ Aleksandar Ružičić @ 27.12.2004. 22:56 ] @

Citat:

Im2hot14: nasao sam cpopmenu ali activeX can't create object (nece da radi)

Jesi li je registrovao prvo?

[ Im2hot14 @ 28.12.2004. 19:42 ] @

kako da je registrujem?

_________________________________________________________________
Don�t just search. Find. Check out the new MSN Search!
http://search.msn.click-url.com/go/onm00200636ave/direct/01/

[ vujkev @ 28.12.2004. 21:01 ] @

start - run i kuca=C5=A1

regsvr32 "<pun path do tog OCX-a>"

navodnike ostavi

[ Im2hot14 @ 29.12.2004. 22:02 ] @

registrovao sam, ali opet nece. znate li za neku drugu kontrolu?

[ vujkev @ 30.12.2004. 00:47 ] @

Pravac na www.vbaccelerator.com i nadji kontrolu koja ti odgovara. Tamo =
imas i uputstva i primere za svaku njihovu kontrolu, a sto je najbolje =
sve su SourceOpen tako da mozes bez problema da ih koristis i menjas po =
potrebi

[ Im2hot14 @ 02.01.2005. 13:36 ] @

na vbacclerator sam nasao kontrolu koja mi treba: to je command bar ali me interesuje kako da jednom dugmetu samo sa tekstom promenim boju slova (da ne bude crna nego crvena) i kasnije kada se klikne na dugme da se vratu boja u crnu

[ Shon3i @ 05.11.2006. 23:49 ] @

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