| Pregunta: | 27330 - ICONOS EN MENú DE VISUAL BASIC |
| Autor: | Alfonso Pérez |
| A ver si alguien me puede indicar cómo agregar iconos a las distintas opciones de un menú(como los que aparecen en las del menú Favoritos del Explorer, p.e. o los de Word, tijeras para cortar, binoculares para buscar...) | |
| Respuesta: | SuNcO |
| Eso ya se respondio aqui :
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 Son 3 lineas, y en el Load del Form pones : Dim mHandle As Long, lRet As Long, algo As Long mHandle = GetMenu(Form1.hwnd) algo = GetSubMenu(mHandle, 0) lRet = SetMenuItemBitmaps(algo, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Picture) Alli son 4 lineas. "algo" es el nombre del menu El 0 de la ultima linea es el Index o posicion del menu | |