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

90 - Crear un archivo Html desde visual basic

Este ejemplo muestra como generar un archivo Html desde el visual basic

Para generar el fichero Html, en este ejemplo, utilizamos la sentencia Output que crea un archivo en el App.path de la aplicación llamado Pagina.html. Luego mediante la función Print, escribimos las etiquetas básicas de un documento html.

En el código solo se escribe el encabezado, y se le agrega un titulo al documento, es decir se escribe la etiqueta Title . Después se imprime dentro del Body un texto Hola Mundo de color rojo y se establece el color del fondo de la página en color azul. Por último se cierran las etiquetas, es decir las escribimos con la sentencia Print y listo.

Nota: como en el código Html, los valores de las etiquetas en su mayoría utilizan las comillas, en visual basic b es necesario utilizar un encomillado doble para que no de error de sintaxis cuando escribimos mediante Print, también se puede utilizar la función Chr(34) que equivale presisamente al caracter de comillas ( En este ejemplo se utiliza el encomillado doble )

Colocar un Command1 que es el que genera un fichero llamado Pagina.html en el App del proyecto

Código fuente en un Formulario

'Función Api ShellExecute para abrir el archivo html Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub Command1_Click() 'Creamos un archivo de extención Html en el App del programa Open App.Path & "\pagina.htm" For Output As #1 'Apertura del ducumento Html Print #1, "" 'Imprimimos la etiqueta Head , es decir la cabecera Print #1, "  <Head>" 'Esto define el título del documento html. Print #1, "<Title>" & "Página de ejemplo html desde vb" & "</Title>" 'cerramos la cabecera del Html Print #1, "</Head>" 'Escribimos el cuerpo del documento html Print #1, "" 'Escribirmo Hola mundo en un encabezado y el color del 'texto en negro y el fondo azul definido en el body Print #1, "<h1>" & "Hola Mundo" & "</h1>" 'cierre de las etiquetas body y Html Print #1, "" Print #1, "" 'Cerramos el archivo abierto Close 'Abrimos el archivo html con el Api ShellExecute ShellExecute Me.hwnd, _ vbNullString, _ App.Path & "\pagina.htm", _ vbNullString, _ vbNullString, 1 End Sub

Recursos visual basic 6 - relacionados

Código fuente de un editor Html programado en vb 6.0

Buscar en Recursos vb