Sección de códigos , trucos y ejemplos para visual basic


503 - Cargar Drives y unidades en un ToolBar

<Volver> - Anterior - Siguiente



 

 

 

Este ejemplo simple puede ser útil si se quieren cargar y visualizar los Drives y unidades del sistema en un control ToolBar de vb.

Para crear los botones para cada unidad, primero hay que indicarle al módulo del ejemplo, los dos controles necesarios ( El ToolBar y un ImageList).

También en el último parámetro, el tamaño de los íconos de los Drives ( puede ser de 16 o 32 pixeles)

Por ejemplo.

Call .init(Toolbar1, ImageList1, eLargeIcon)

Luego de haber iniciado anteriormente el módulo, indicando los controles a utilizar, ya se puede cargar las unidades con el método AddDrives.

Al ejecutar este método, el módulo cargará en forma dinámica las imágenes de íconos de las unidades, y agregará cada botón con el método Add del objeto/Colección Buttons del toolBar

 

Vista previa del proyecto de ejemplo:

 

También , tiene un simple método que se puede utilizar para añadir algunas carpetas de windows, como por ejemplo el escritorio, la carpeta Mis imágenes, Mis Documentos etc ..

 

 

Crear el ejemplo:

 

Importante : Para utilizarlo con el ToolBar pero de la versión 6 ( microsoft Windows Common Controls 6.0 ), hay que cambiar esta línea en el módulo de clase:

Private Sub mToolBar_ButtonClick(ByVal Button As ComctlLib.Button)

por esta otra

Private Sub mToolBar_ButtonClick(ByVal Button As MsComctlLib.Button)

 

Código fuente en el Form

 

Código fuente en el módulo de clase ( clsTVDrives )

 


Enlaces relacionados

 



Buscar en Recursos vb