Visual Basic - Menus con Iconos

Life is soft - evento anual de software empresarial
 
Vista:

Menus con Iconos

Publicado por Iñaki (64 intervenciones) el 02/04/2001 10:58:55
Hola que tal,

Estoy interesado en si alguien sabe alguna manera de que en VB, se puedan añadir Iconos a ciertos elementos de un menú, o bien si alguien sabe de un OCX o algo de esto.

Un saludo,

Iñaki.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Proba con esto

Publicado por hormiga (20 intervenciones) el 02/04/2001 17:54:44
pega este codigo y proba, si te sirve investigalo y te vas a dar cuenta como hacer para los otros.

De nada
//Hormiga\\

Option Explicit

'Este proyecto necesita un Form con un menu y al menos un submenu
'Tambien un pictureBox con una imagen pequeña (16x16) blanco y negro
Const MF_BYPOSITION = &H400&
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Private Sub Form_Load()
Dim hMenu As Long, hSubMenu As Long
'Obtiene el "handle" del menu
hMenu = GetMenu(Me.hwnd)
'Controla si hay menu
If hMenu = 0 Then
MsgBox "Este form no tiene menu"
Exit Sub
End If
'get the first submenu
hSubMenu = GetSubMenu(hMenu, 0)
'Controla si hay submenu
If hSubMenu = 0 Then
MsgBox "Este form no tiene Sub-Menu"
Exit Sub
End If
'set the menu bitmap
SetMenuItemBitmaps hSubMenu, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Picture
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Proba con esto

Publicado por rela (40 intervenciones) el 02/04/2001 22:35:05
y como se puede hacer para poner iconos con colores...?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar