Newsgroup: it.comp.lang.visual-basic
Titolo: Toolbar stile win98 con VB5

Salve, possiedo VB5 edizione professional e vorrei dotare i miei
programmi delle
toolbar stile win98 (o explorer, quelle per intenderci dove si vede solo
l'icona senza
il contorno del tasto).
Devo usare una propietą o un OCX particolare ???
Grazie, Niki.
--
Posted from root@[212.210.121.66]
via Mailgate.ORG Server - 
http://www.mailgate.org

Grazie, Niki.
Con il Vb5 io usavo il seguente codice e la toolbar fornita col Vb stesso:
Nel Form ove risiede la toolbar (se hai più toolbar presenti nel tuo
progetto ti conviene metterli in un modulo standard o ancora meglio creare
una  classe preposta allo scopo):
Private 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
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                        (ByVal hwnd As Long, _
                         ByVal wMsg As Long, _
                         ByVal wParam As Integer, _
                         ByVal lParam As Any) As Long
Private Const WM_USER = &H400
Private Const TBSTYLE_TRANSPARENT = &H8000
Private Const TBSTYLE_FLAT = &H800
Private Const TB_SETSTYLE = (WM_USER + 56)
Private Const TB_GETSTYLE = (WM_USER + 57)
Private Const CCS_NODIVIDER = &H40
'===========================================================================
' Descrizione  : Trasforma la Toolbar in una Coolbar
' Tipo              : Metodo
' API Usate    : FindWindowEx -  SendMessage
' Dati in entrata   : ValoreHwndToolbar = Valore Proprietà Hwnd della
Toolbar contenuta  nel controllo     comune Comctl32
' Dati in Uscita    :
' Note Particolari  : Non richiede la presenza di cmctl32.dll aggiornata
'===========================================================================
Public Sub VBExCoolBar(ValoreHwndToolbar As Long)
Dim lStyle As Long              ' Variable to Hold Style
Dim lReturn As Long             ' Variable to hold Return Values
Dim dlgToolBarHandle As Long    ' Handle of the Toolbar
' Find the Toolbar Handle
  dlgToolBarHandle = FindWindowEx(ValoreHwndToolbar, 0&, "ToolbarWindow32",_
                                     vbNullString)
   ' Get the Toolbar Style
   lStyle = SendMessage(dlgToolBarHandle, TB_GETSTYLE, 0&, 0&)
   ' Change Style bits - Add Flat Style
   lStyle = lStyle Or TBSTYLE_FLAT Or TBSTYLE_TRANSPARENT Or CCS_NODIVIDER
   ' Set New Style
   lReturn = SendMessage(dlgToolBarHandle, TB_SETSTYLE, 0, lStyle)
End Sub
La routine va chiamata (magari nell'evento Load del form) con l'istruzione:
VBExCoolBar Toolbar1.Hwnd  ' (dove toolbar1 è il nome dato alla toolbar)
Ciao.



Scusa se mi inserisco nell' argomento, ma io l'ho provato
in vb 6.0 senza alcun risultato, mi sai dare una spiegazione?
Ciao

Beh, anch'io l'ho provato in VB6 ... nessun errore, ma il risultato finale
non si vede :((
che ci sia qualche inghippo con la nuova versione ???
ciao
Edoardo


Se c'è un inghippo con la nuova versione, c'è anche con VB5 perchè nemmeno a
me
da risultati, forse manca qualcosa...
Ciao, Niki
--
Posted from 
ro...@dns.floating.net
 [212.210.121.64]
