Sección de códigos , trucos y ejemplos para visual basic
480 - Mostrar campo de tabla en forma gráfica
<Volver> - Anterior - Siguiente
Actualizado
Proyecto actualizado con algunos cambios: ahora el ejemplo permite además de mostrar las gráficas, aplicarle skins a las columnas también con un ejemplo realizado por Leandro Ascierto
También tiene algunas otras funciones como:
- Mostrar y ocultar las gráficas en tiempo de ejecución
- Mostrar y ocultar los skins para los encabezados en tiempo de ejecución
- cargar un recordset mediante un método que está en el mismo módulo de clase (cSubclassListView.cls )
- algunos métodos para exportación de datos
- funciones para calcular valores en las columnas ( suma, máximos y mínimos, promedios )
- formatear los valores numéricos para visualizarlos como currency
- poder especificar la cantidad de decimales a mostrar en caso de que la columna numérica contenga valores con decimales
- EL módulo de clase calcula los valores máximos y mínimos para cada campo automaticamente , y no es necesario pasar los valores de antemano al configurar las columnas
- Método para refrescar las gráficas cuando se modifican, añaden o eliminan los datos o items del ListView
- Modificar la configuraión de una columna en tiempo de ejecución
El proyecto tiene tres formularios de ejemplo, uno para cargar un recordset, y otros dos para añadir items en forma manual
Para usar el módulo, previamente se debe crear una instancia de la clase y ejecutar el método SubClassListView pasándole como argumento el control LV
Para crear una columna gráfica, se debe usar el método AddItem, para modificar un elemento el método ModifyItem
Los parámetros son:
- 1 - (IndexColListView) El índice de la columna, la primer columna es la 0.
Debe ser una columna con valores numéricos - 2 - (displayValue) Visualizar o no el texto del item, si está en False solo visualizará la gráfica pero no el dato
- 3 - (DisplayPercent) Por defecto es False . Si se pasa como True, la columna mostrará el valor de los items pero como porcentaje
- 4 - (ForeColorText) Valor opcional - Establece el color del texto
- 5 - ( BackColor ) Valor opcional - El color de fondo de la gráfica
- 6 - ( BorderColor ) Valor opcional - El color del borde o contorno de cada subItem
- 7 - (ForeColorGraph ) Valor opcional . Color de la gráfica para dicha columna
- 8 - (bFieldCurrency ) Valor opcional . Por defecto es False. si se pasa true, el Item se formatea con la función FormatCurrency para mostrar el dato como tipo Moneda
- 9 - (NumDigistsAfterDecimal ) Valor opcional - Permite indicar la cantidad de decimales a visualizar si el campo contiene valores decimales . Por defecto es 0.
- 10 - (bDisplayGraph ) valor opcional - Si se pasa False no visualiza el gráfico. el valor por defecto es true
- 11 - (AlignTextValue ) Valor opcional para la alineación del texto del item ( por defecto se alineará a la izquierda)
Importante Si se añaden, eliminan, o modifiacn datos del LV, luego hay que ejecutar el método RefresData, para que actualice los nuevos valores y poder visualizar las gráficas corectamente, ya que si no mostrará valores en forma erronea
por ejemplo
Importante : Si una columna que contiene datos decimales, no se le indica en el parámetro 9 (NumDigistsAfterDecimal) la cantidad de decimales, es decir queda en 0, la columna mostrará las gráficas pero en forma erronea ... como se ve en esta imagen :
esta columna contiene los siguientes valores ( valores reales de los items )
Y luego a esa misma columna , se le indica en el parámetro 9 (NumDigistsAfterDecimal) el valor 0 ( Sin decimales ), se visualizará de la siguiente forma, redondeando el número , pero mostrando las gráficas con error por que para crear las gráficas usa el valor real que SI contiene decimales
Por eso asi como está el ejemplo, es obligado configurar correctamente las columnas . Es decir si tiene decimales, no indicar 0 en NumDigistsAfterDecimal para que no lo redondee
Importante : Si se añade código al módulo de clase para modificarlo, adaptarlo etc.. , cualquier función, procedimiento o propiedad debe estar declarada por encima de la función "WndProc" que es la que chequea los mensajes para poder redibujar el control. Cualquier código colocado debajo de la función WndProc, se ejecutará solo sin que se llame desde ningún lugar.
Ejemplo en ADO y Visual basic 6.0 para mostrar columnas de una tabla en forma de gráfica en un control ListView
El código fuente utiliza un módulo realizado por Leandro Ascierto, para poder subclasificar un control Listview y redibujar una barra de porcentaje, en una columna específica , y de esta manera visualizar los registros de esa columna como datos estadísticos
El formulario tiene dos ejemplos simples que carga dos tablas
Vista previa
Formulario que carga los registros de la tabla Alumnos y visualiza la columna promedio como forma gráfica
El otro botón Carga la tabla productos y muestra las unidades vendidas
Nota:
Se debe pasar los siguientes parámetros a la función que llena el recordset y traspasa los datos al listview
- El nombre del control Listview a que se va a utilizar
- La consulta sql
- Una conexión ADO válida, es decir una conexión abierta
- Indicar el índice de la columna que se va a utilizar para mostrar el gráfico
- El valor máximo que puede mostrar el campo
- El valor bDisplayValue indica si se visualiza el valor, si está en false solo se visualiza el gráfico
- Los demás parámetros son el color de fondo, borde y el forecolor de la gráfica
Ejemplo para varias columnas
Este es el mismo proyecto con algunos cambios, para poder usar varias columnas en forma gráfica ( También tiene una función para ordenar al hacer clic en el ColumnHeader )
A la función "Configurar", se le debe enviar como parámetros los mismos valores que en el caso anterior, es decir el valor máximo para tomar como referencia, el índice de la columna que se va a utilizar, si se muestra o no el caption del subItem y los colores para la gráfica y el color del texto del SubItem
Nota: verificar que el tipo de dato que contiene el campo sea de tipo numérico si no producirá un error
Importante : si se desea volver a cargar el recordset, por ejemplo con otro tabla, o cambiar la configuración de alguna columna, se deberá antes ejecutar la función unHookListView y luego volver a llamar a la función Configurar
Recursos Vb 6.0 - enlaces relacionados
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar
