Pregunta: | 3231 - ICONOS EN EL MENU |
Autor: | Mariano Laguzzi |
Hola gente, quiciera consultar como hacer para poner iconos en los menues, osea por ej cuando haga Archivo ---> Abrir, que el renglón Abrir, tenga un dibujito de una carpeta... etc. gracias |
Respuesta: | hernan casadesus |
Hola: Para agregar iconos en el menu lo primero que hay que hacer es obtener el manejador del menu con la llamada a la API de GetMenu. Y despues incluir los iconos para el estado vbChecked y el estado vbUnchecked. ACA VA UN EJEMPLO: 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 Const MF_BYPOSITION = &H400& Private Sub Form_Load() Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long mHandle = GetMenu(hwnd) sHandle = GetSubMenu(mHandle, 0) lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, image1.Picture, image1.Picture) lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, image2.Picture, image2.Picture) lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, image3.Picture, image3.Picture) lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, image4.Picture, image4.Picture) sHandle = GetSubMenu(mHandle, 1) sHandle2 = GetSubMenu(sHandle, 0) lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, image5.Picture, image5.Picture) End Sub La propiedad picture de un control Image o PictureBox es el Manejador de la imagen, que te sirve para usarlo en el menu. Hernan |
Respuesta: | Wiliam Fallas Coto |
Que tal amigo, bueno la otra vez para hacer ese lujo lo que usamos fue un ocx, osea un objeto para visual con ese fin especifico, escribame un correo ([email protected]) y le mando el famoso ocx con una explicacion como usarlo, en caso que no lo tuviera le indico donde puede bajarlo. |