treba mi neki xp style toolbar (kad se doda XP manifest) umesto starog koji ide sa microsoft windows common controls 6.0
Potpis
'//Im2hot14
XP style toolbar
Zaključano
Zakačeno
Treba ti kontrola ili ti treba nacin da primenis XP manifest?
Potpis
treba mi kontrola
Potpis
'//Im2hot14
fenomenalna kontrola cPopMenu. ne znam gde sam je pokupio, ali potrazi malo po googlu, pa ces naci.
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
meni ustvari treba nesto sto lici na windowsov task bar (ne mislim na istu boju [plavu] vec na pricip rada). hitno mi je
Potpis
'//Im2hot14
Citat:
Im2hot14: nasao sam cpopmenu ali activeX can't create object (nece da radi)
Jesi li je registrovao prvo?
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/
_________________________________________________________________
Don�t just search. Find. Check out the new MSN Search!
http://search.msn.click-url.com/go/onm00200636ave/direct/01/
Potpis
'//Im2hot14
start - run i kuca=C5=A1
regsvr32 "<pun path do tog OCX-a>"
navodnike ostavi
regsvr32 "<pun path do tog OCX-a>"
navodnike ostavi
Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Da je važnije biti ljubazan nego biti u pravu
registrovao sam, ali opet nece. znate li za neku drugu kontrolu?
Potpis
'//Im2hot14
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
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
Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Da je važnije biti ljubazan nego biti u pravu
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
Potpis
'//Im2hot14
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
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
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
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