Sección de código fuente Visual basic

Asistente para exportar formularios de datos a Html

Código fuente en vb 6.0 , de un programa para exportar formulario de datos en formato Html mediante un asistente

El programa permite generar listados en html de varios controles de visual basic como listview Microsoft flexgrid, controles listbox combobox y también de un recordset ADODB utilizando un módulo de clase

Ejemplo

formulario principal ( frmMain )

vista previa del formulario con las opciones

Pantallas del asistente para exportar

Formulario1

Permite indicar las siguientes propiedades de exportación :

La ruta opcional de una imagen de logo
El texto del título, subtitiulo y pie de página del listado
Los atributos de la fuente
Vista previa para ver como va quedando el listado de datos y la configuración realizada

El formulario número 2

Sirve para configurar el diseño de la tabla:

Los colores de fondo para la tabla principal , para las celdas, de las columnas y de la página html
El color de la fuente de las celdas
El grosor o borde de la tabla
La alineación del texto general
Los atributos de fuente
La imagen de fondo opcional para la tabla , para la página y también una imagen de 16 pixeles para las celdas que corresponden a los items , es decir para cada fila ( propiedades : PictureBackGroundTable, BackGroundPicturePage, y PictureCellItem, y PictureLogo )

Formulario 3

Formulario opcional, y sirve para insertar html antes o después del encabezado , y en el pie de página usando el método Inserhtml del módulo de clase que utiliza el ejemplo.

Para insertar html extra se debe indicar el código en el primer parámetro de la función, y luego indicar la ubicación, por ejemplo

clsHtml.InsertHtml "String con el code html", Ubicación

Formulario 4

Ventana para generar el listado final

En este pantalla del asistente se debe ingresar la ruta del html, y también se puede guardar la configuración realizada . ( La configuración se guarda en un archivo .ini en el directorio del exe )

Una ves generada la página, se crea el archivo Html, y junto a este una carpeta que contiene las imágenes

La carpeta de los gráficos, se crea con el nombre que tenga el archivo html. Por ejemplo si el fichero se llama Prueba.html, la carpeta se crea con el nombre Prueba, y dentro se almacenan las imagenes ( si es que hay )

Nota: la carpeta llamada Imágenes que está en el proyecto , solo es necesaria para este ejemplo, ya que tiene los fondos para el background de la página y otros gráficos. Para usarlo en otro proyecto no es necesaria incluirla

Descargar código fuente del proyecto

Breve descripción del módulo de clase

En este otro enlace se encuentra solo el módulo de clase llamado clsHtml para poder generar los listados

Para poder usar el módulo se debe crear una instancia con Withevents para poder usar el evento llamado Progress que permite medir el progreso de la exportación ( Obviamente esto es opcional )

Por ejemplo en la sección general

Private WithEvents cHtml As clsHtml

En el FormLoad

Set cHtml = New clsHtml

Luego asignar las propiedades , por ej:

Set cHtml = New clsHtml With cHtml ' Configuración de colores .BackGroundColorCell = vbBlack ' color de celda .BackGroundColorPage = vbBlue ' color de fondo de la página ' etc.. ' Configuración de fuentes .FontNameHeader = "Verdana" .FontNameCell = "Arial" 'etc.. ' alineación del texto .AlignFontCell = AlignCenter .AlignFontColumnHeader = AlignCenter .PictureLogoAlign = AlignCenter ' alineación de la imagen del logo ' etc.. ' imagenes ( fondo de la página, de la tabla, logo y viñeta) .BackGroundPicturePage = App.Path & "\fondo pagina.png" .PictureBackGroundTable = App.Path & "\fondo Tabla.png" .PictureCellItem = App.Path & "\viñeta item.png" .PictureLogoPath = App.Path & "\logo encabezado.png" ' insertar código html al final del listado .InsertHtml "código", [Despues del Pie] ' establecer el path del archivo .OutputPath = App.Path & "\a.html" ' guardar la configuración al salir .UseIniFile = True End With

Para exportar y crear el listado se debe establecer el path de destino mediante la propiedad OutPutPath antes de llamar al método ExportHtml, y luego si, se puede ejecutar el método ExportHtml indicando el objeto a exportar en el primer parámetro , y en el segundo argumento el tipo de objeto

Por ejemplo para exportar un recordset ADODB

ClsHtml.ExportHtml(unRecordset, ADODBRecordset)

Para generar una vista previa del trabajo, se debe ejecutar el método Preview. Este método crea en la carpeta temporal de windows, el archivo , y devuelve la ruta

por ejemplo

Dim sPath As String sPath = .Preview ' cargar la previa en un WB, o abrirla mediante el Shell WebBrowser1.Navigate sPath

Descargar

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb