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

223 - Barra de estado con skin - Control

-- > Links

Descripción
Propiedades, funciones y eventos del control
Descargar - Ejemplos
Créditos y referencias

Descripción

Este es un control para utilizar barras de estado que permite establecerle un skin para cambiar el estilo y la apariencia. El control es mas simple que el statusbar de visual basic, aunque contiene las propiedades y opciones básicas para poder crear paneles y mostrar datos e información del programa.

Las opciones que SI se pueden utilizar son

Crear, eliminar, cambiar el color de fondo y bordes de los paneles.
Utilizar 22 estilos : Office 2007, Windows media, Vista ( algunos no son exactamente iguales, son similares ). También se puede utilizar la combinación de colores que se quiera creando un skin propio mediante un gráfico bmp o jpg
Poder incrustar o anclar algunos tipos de controles dentro de un panel (no todos), por ejemplo una barra de progreso.
Poder desplegar un balloontip en un panel concreto para notificar algún mensaje y mostrar información.
Utilizar un panel con un color de fuente determinado, y un panel con otro color.

Algunas de las opciones que NO permite el control son :

Agregar imágenes
Alineación de texto
Hacer AutoSize, es decir poder autoajustar el panel al ancho del texto
No se puede cambiar todos los atributos y propiedades de fuentes, solo : el color y negrita

Propiedades , métodos y eventos

Métodos

AddPanel

Este es el método principal y sirve para crear un nuevo panel. Tiene los siguientes parámetros todos opcionales

Sub AddPanel( _
    Optional sText As String, _
    Optional sKey As String, _
    Optional lWidth As Long = 96, _
    Optional ByVal lForeColor As Long = -1, _
    Optional lBackColorPanel As Long = -1, _
    Optional lBorderColorPanel As Long = -1, _
    Optional ByVal bBold As Boolean)

Descripción de los parámetros

sText : Texto o caption del Panel.
sKey : Una clave que se puede utilizar para después eliminarlo.
lWidth : El ancho expresado en pixeles
lForeColor : Color del texto
lBackColorPanel : Color del fondo del panel. Si se omite, el panel es transparente, es decir se visualiza el fondo del statusbar con los bordes.
BorderColorPanel : Color del borde del panel. Si se omite, se usa el color definido en la imagen del Skin.
bBold : Si se pasa True el texto queda en negrita.

Notas :

El índice de los paneles comienzan en 1. Es decir por ejemplo si hay un solo panel en el SB , el índice es 1, no 0.
Para poder mostrar los bordes, la propiedad ShowBorderPanel debe estar en True , si no por mas que se especifique el color, no se mostrarán si este valor se encuentra en False.

ChangeTextPanel

Función para cambiar el texto de un panel (sería como la propiedad Text del objeto panels del control statusbar de vb.)

Se le debe indicar el nuevo texto y el índice del panel a modificar.

Por ejemplo esto crea dos paneles de 120 pixeles de ancho al cargar el programa, y luego le cambia el texto al presionar un botón.

Private Sub Form_Load()
    ' -- crear dos nuevos paneles de 120 pixeles par el primero, y 200 pixeles para el 2
    With ucStatusBar1
        .AddPanel "Panel 1", , 120
        .AddPanel "Panel 2", , 200
    End With
    
End Sub

' -- Botón para cambiar los dos paneles anteriores
' ------------------------------------------------------------
Private Sub Command3_Click()
    With ucStatusBar1
        ' -- Cambiar el que tiene Indice 1
        Call .ChangeTextPanel("Nuevo valor", 1)
        ' -- Cambiar el que tiene Indice 2
        Call .ChangeTextPanel("Nuevo valor", 2)
    End With
End Sub

ClearPanels

Para eliminar todos los paneles de la barra de estado

' \\ -- Eliminar
' --------------------------------------------
Private Sub cmdClear_Click()
    With ucStatusBar1
        call .ClearPanels
    End With
End Sub

ClearPanelByIndex , ClearPanelByKey

Para eliminar un panel, ya sea por la clave o por el índice.

SetControlPanel

Esta función es para poder colocar un control en un panel, por ejemplo un ProgressBar. ( En el final de la página hay un ejemplo )

Importante. No se puede color cualquier tipo de control, ya que algunos, al incrustarlos, ya no se puede volver a referenciarlos desde el formulario, por ejemplo si se incrusta un botón o CommandButton, se coloca correctamente en el panel, pero por ejemplo el evento Clic ya no responde.

SetProgressBarColor

Función o método para cambiar el color de fondo y las líneas de progreso para un control Progressbar utilizando la Api de windows SendMessage.

Esta función es para adaptar el Progress a la apariencia que tenga el skin actual. Nota. Se puede establecer la propiedad Border Style del Progressbar en 0,y la propiedad Apariencia en Flat, para que el control quede con el borde del panel. (En la versión 5 del windows CommonControls, no se puede eliminar completamente el borde directamente desde vb, a no ser utilizando algún método con la api de windows.)

ShowToolTipPanel

Este método muestra un BalloonTip de información para un panel

Nota. El BalloonTip solo se visualiza cuando el programa se encuentra compilado. También, el ejecutable debe tener un archivo Manifest y haber ejecutado la función Api InitCommonControls desde el punto de inicio del programa ( procedimiento SubMain o Evento Initialize del formulario principal de la aplicación ) para poder establecer el tema de windows. Otra cosa importante, es que si utilizas el ejemplo de esa página, creo que solo funciona con controles de clase "Edit" , por ejemplo un control TextBox, un control ComboBox, y cualquier otro que contenga un control de este tipo, por ejemplo un ImageCombo (aunque no lo he probado.)

A la función hay que indicarle la duración en milisegundos, el texto, el título y el ícono o tipo de BalloonTip ( el tipo puede ser con ícono de error, de información, advertencia o simple, es decir sin ícono)

También se debe indicar el índice del panel en donde se desplegará. ( Al final de la página hay un ejemplo simple de como mostrar un BalloonTip en un panel ).

Propiedades

El control prácticamente no contiene propiedades.

Border Mode : Si está en valor SB_NORMAL, se visualiza un rectángulo para el panel, si está en SB_SEPARATOR, se visualiza una línea divisoria para cada uno.
Panels Count : devuelve el total de paneles
ShowBorderPanels y ShowBorderStatusBar : Mostrar o no los Bordes.
Skin : Para usar alguno de los estilos que tiene por defecto. Para visualizar un skin propio, se debe cargar la imagen con la propiedad CustomSkin

Nota. Para crear un estilo propio es muy simple, y se debe crear una imagen de 15 pixeles de ancho por 23 de alto. :

Por ejemplo asi : Imagen ampliada ( El borde debe ser de un pixel de grosor, )

Luego para cargarlo en tiempo de ejecución , es con la propiedad CustomSkin y utilizando la instrucción set de visual basic

Si se carga desde una imagen ubicada en el disco, usando el método LoadPicture

    With ucStatusBar1
        
        Set .CustomSkin = LoadPicture("ruta de la imagen")
        
    End With

Eventos

Tiene los eventos básicos. El principal, es Panel Click que se produce al hacer clic en un panel, se puede utilizar para desplegar por ejemplo un menú popup.

Descargar - Ejemplos

Mostrar hora y fecha

Este ejemplo muestra la hora y fecha en un panel, y también utiliza una clase para modificar la apariencia de un ToolBar.

Nota: para el panel que muestra la hora, se debe utilizar un timer y dentro del timer cambiar el texto con la función ChangePanelText, ya que no tiene implementado una propiedad que permite hacerlo en forma automática, como por ejemplo el estilo sbrTime que posee la barra de estado de vb.

Descargar

Mostrar barra de progreso en panel

Ejemplo para descargar un archivo, y visualizar en el panel con índice 1 el total del archivo, en otro panel los bytes leídos, y en el panel con índice 3 la barra de progreso.

Notas.

Este ejemplo usa los métodos AsyncRead de vb para descargar, pero no es recomendable utilizarlo así como está hecho ya que es solo una demostración para ver el progressbar en la barra de estado, y no contiene rutinas de errores. En este enlace hay un ejemplo mas completo que inclusive tiene implementada una colección para descargas múltiples : http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=64750&lngWId=1
Otra cosa importante. Si al descargar un archivo x, no se visualiza la barra, y el panel 1 marca 0 bytes, pero SI se encuentra en descarga, es por que no se pudo obtener el total de bytes del archivo. ( Valor de la propiedad BytesMax del objeto AsyncProp). Esto no es problema del control, si no es que no se pudo obtener el tamaño total. Si te ocurre esto, podés probar la misma url desde el navegador por ejemplo, y ver en la ventana de descarga que windows tampoco visualiza el total de la transferencia, si no que muestra una leyenda de "Tiempo estimado : Desconocido ( Abierto hasta el momento ....")

Descargar

Búsqueda de archivos

Formulario para buscar archivos, que al iniciar la búsqueda, crea un un panel para ver la ruta completa del archivo actual, y cuando finaliza y temina de buscar, crea tres paneles para visualizar los detalles : El total de archivos encontrados, la cantidad de carpetas encontradas, y el tamaño total del directorio.

Descargar

Mostrar BallonTip

Este ejemplo , busca nodos o items en un control Treeview, si el término a buscar no se encuentra, entonces despliega un BallonTip, si no, muestra en el panel el path completo del nodo ( propiedad FullPath del Treeview ). Nota. el BallonTip funciona con el programa compilado y con un archivo manifest.

Descargar

Mostrar Procesos

Ejemplo que obtiene los procesos abiertos de windows, y crea tres paneles para mostrar : El nombre, el identificador y la ruta.

Descargar

Editar un Grid

Ejemplo que utiliza un Grid ( Ms FlexGrid ) para cargar unos registros de una tabla, e imprime alguna información en el status bar

Los datos que muestra son : La cantidad de registros, el ID y en el tercer panel el campo nombre / apellido de la tabla. También incluye otro control para las opciones : Nuevo registro, Eliminar y editar: Simple ToolBar

Descargar

Explorer

Este es un Explorer y utiliza dos paneles: Uno para mostrar la cantidad de archivos y carpetas del path actual, y en otro el nombre del fichero o directorio seleccionado

Descargar

Sumar valores en Grid

Carga un grid con registros donde un campo es de tipo moneda, y se crea un panel para mostrar el total de la columna, es decir la suma.

Descargar

Mdi

Ejemplo que usa el StatusBar en un MDI, y visualiza el nombre de los formularios hijos al activarse la ventana

Descargar

Usar el StatusBar con otros controles

Dos ejemplos para poder usarlos con otros controles, es decir poder crear la imagen de Skin para la barra de estado usando la propiedad CustomPicture.

Descargar

Créditos y referencias

Créditos del proyecto:

Leandro Ascierto : Por el módulo de código Subclass Listview y Subclass ToolBar, y una función para dibujar la imagen de skin con stretchBlt y bitBlt.
Brad Martinez : Por el programa Visual basic explorer. ( ver ejemplo )
Un ejemplo base del Api Guide para el módulo buscar archivos. ( ver ejemplo )
Un código fuente del sitio web vbnet.mvps.org para los tooltips. ( ver ejemplo )

Referencias:

Para usar el control no se necesita de ninguna referencia o archivo externo.

Para usarlo en un nuevo proyecto, se debe importar el archivo ucStatusBar.ctl desde el menú Proyecto, submenú Agregar control de usuario, y desde la ventana de diálogo seleccionar la pestaña existente . Nota. junto al archivo ucStatusBar.ctl, debe estar también el archivo ucStatusBar.ctx que es el que contiene las imágenes, ya que si no dará error al importar el control a un formulario.

Relacionados

Buscar en Recursos vb con Google