Sección de controles Ocx para Visual basic , Dll , Activex

130 - Ocx para menú vertical con fichas

Este control ocx se llama VertMenu, y permite crear una barra de menús vertical tipo los que utiliza Microsoft OutLook, o similar al que utiliza el propio visual basic para la barra de contoles

Si bien el control posee una página de propiedades para poder crear los menús y submenús, por lo menos a mi mientras lo probaba me resultó mas cómodo hacerlo en tiempo de ejecución.

Para hacerlo en tiempo de ejecución, el control tiene una propiedad llamada MenuCur. Esta propiedad indica el número de menú activo, es decir por ejemplo si en el código hacemos :

MenuCur = 1

Nos ubicaremos en dicho menú y podremos configurarlo. Pero antes de esto hay que indicar cuantos menues contendrá el control mediante la propiedad MenusMax. Por ejemplo haciendo

MenusMax = 2 .. se creará 2 menues

Para indicar el caption del menú se utiliza la propiedad MenuCaption

Una ves posicionados en el menú a configurar , debemos indicar cuantos Submenues tendrá mediante la propiedad MenuItemsMax. Una ves indicado esto, para configurar el Submenu, usar la propiedad MenuItemCur y para establecer el caption de este y la imagen ( si es que se va a usar ) utilizar las propiedad MenuItemCaption y MenuItemPictureURL

De todas formas en el ejemplo de descarga se ve como hacerlo

Para poder saber que botón se ha pulsado, usar el evento _MenuItemClick. Este evento nos devuelve el número del menú y el del SubMenú

Nota: Por lo que probé, el control presenta un pequeño bug, y es que al redimensionar el control , por ejemplo en el evento resize del formulario, no se repinta adecuadamente. Una forma de solucionar esto es ocultando y volver a mostrarlo inmediatamente

Private Sub Form_Resize()
VerticalMenu1.Move 10, 10, 2000, Me.ScaleHeight - 50

VerticalMenu1.Visible = False
VerticalMenu1.Visible = True

End Sub

Descargar ejemplo

Recursos Visual basic - Enlaces relacionados

Buscar en Recursos vb con Google