Newsgroup: it.comp.lang.visual-basic
Titolo: Editor di menu

Salve, esiste in giro un editor di menu che consenta di inserire le icone
vicino le scritte?
quellostandard di VB non lo consente (o forse non lo so fare io?)
Grazie dellle dritte...
Lucio.

 ha scritto nel messaggio
news:CAcWa.7264$cl3.2...@news2.tin.it...
| Salve, esiste in giro un editor di menu che consenta di inserire le icone
| vicino le scritte?
|
| quellostandard di VB non lo consente (o forse non lo so fare io?)
|
me l'hanno dato a me qualche settimana fa. cerca l'OCX su
www.vbacellerator.com
.
P.S.: io non sono riuscito a farlo funzionare.

 quellostandard di VB non lo consente (o forse non lo so fare io?)
Dai un occhio a quello di Fabio Guerrazzi:
http://www.sourcecode4free.com/cgt/activex.htm
Ciao
--
Math Parser, VB.Framework : 
http://www.neodatatype.net
Sito Comune               : 
http://www.it-lang-vb.net

 
www.vbacellerator.com
.
Come diceva sempre il mio professore di fisica "accelerazione, con 2 C e una
sola L" :)



[cut]
Prova con questo...
'
' Funzione   : SetMenuBitmap
' Descrizione: Imposta la bitmap su un menu (file .bmp in formato 13x13)
' Input      : La picture per la voce normale (imagelist.listimages(...) 
.picture
'              La picture per la voce spuntata imagelist.listimages(...) 
.picture
'              L'handle della finestra
'              La profondita' della voce del menu/sottomenu (la prima voce 
e' 0, e cosi' via) nell'albero)
'
Public Sub SetMenuBitmap(Picture As StdPicture, _
                         CheckedPicture As StdPicture, _
                         ByVal hWnd As Long, _
                         ParamArray menuPos() As Variant)
    Dim hMenu As Long
Dim Id As Long
Dim I As Long
Dim chkPicture As StdPicture
  ' provide a value for the CheckedPicture
  If CheckedPicture Is Nothing Then
    Set chkPicture = Picture
  Else
    Set chkPicture = CheckedPicture
  End If
  ' get the handle of the toplevel menu
  hMenu = GetMenu(hWnd)
  ' all the values in menuPos() except the last one
  ' are indexes of submenus
  For I = 0 To UBound(menuPos) - 1
    hMenu = GetSubMenu(hMenu, menuPos(I))
  Next
  ' the last element in the paramarray is the
  ' index of a menu item
  If Picture Is Nothing Then
    SetMenuItemBitmaps hMenu, menuPos(UBound(menuPos)), MF_BYPOSITION, 0, 0
  Else
    SetMenuItemBitmaps hMenu, menuPos(UBound(menuPos)), MF_BYPOSITION, 
Picture.Handle, chkPicture.Handle
  End If
End Sub
-- 
Bye by SixaM 8-]
Sito comune: 
www.it-lang-vb.net
'La tua prima fonte di aiuto e' tra le orecchie'
'...credi che la forfora sappia qualcosa?'

 ha scritto nel messaggio
news:0EdWa.5180$an6.1...@news1.tin.it...

studiavi a bari?
--
Ciao
Alfredo
Vb6+Sp5+Win2k

al di là degli ottimi consigli che ti hanno dato (io preferisco quello su
www.vbaccellerator.com
), ci tengo a precisare che non è un limite
dell'editor dei menù di vb, è proprio vb in sè che non consente di
aggiungere icone ai menù delle app.....
sta di fatto che bisogna sempre scomodare ocx o dll o API per ottenere il
risultato.......
:-)
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262


www.vbaccellerator.com
Non volermene Igor se prendo spunto da te, non intendo criticarti,
volevo solo approfittarne per notare che sembra che "accelerare"
(con una elle sola, dal latino "celere") in Italia non lo conosca
quasi nessuno...
Ho trovato questa grafia anche sulla carta stampata, fra cui fior di
quotidiani :-(
Provate a cercare su google: "accellerare" restituisce piu' di seimila
links, mentre "accellerazione" ne' da piu' di quattromila.
Per fortuna se si cerca con la grafia corretta si ottengono
rispettivamente piu' di 90mila e e piu' di 110mila link ;-)
-- 
ciao, hal

 studiavi a bari?
Io no, infatti so come si scrive.
E tu? :) (vedi post di hal)
Ciao

hai fatto bene a criticarmi, mi rettifico.......
www.vbaccelerator.com
:-)))
meno male che ci sei tu.....cosa faremmo senza di te?


good coding!!!
anche a te,
hal