Sección de códigos , trucos y ejemplos para visual basic
<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 )
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar