Visual Basic - Mostrar imagen mediante codigo HTML

Life is soft - evento anual de software empresarial
   
Vista:

Mostrar imagen mediante codigo HTML

Publicado por Compuz (1 intervención) el 25/08/2009 16:32:39
Hola, les escribo porque necesito mostrar una imagen en una vista previa de impresión, para eso utilizo HTML y la sentencia .write pero debo tener algun error en la sintaxis porque nunca encuentra la imagen a no ser que escriba toda la ruta de acceso, esto no me sirve porque el usuario puede instalar la aplicacion en otra carpeta y le daria un error, a continuación el codigo:

Public Sub InicializarReporte()
On Error GoTo VerificarError
Dim FSo, Fil2, txtfile
Dim JFile

JFile = App.Path & "CARPETA1REPORTE1.htm"
Set FSo = CreateObject("Scripting.FilesystemObject")
If FSo.FileExists(JFile) = True Then
Set Fil2 = FSo.GetFile(JFile)
Fil2.Delete
End If
Set txtfile = FSo.CreateTextFile(JFile, True)
txtfile.Write ("<HTML><HEAD><META NAME='GENERATOR' Content='Microsoft Visual Studio 6.0'></HEAD><BODY>")
txtfile.Write ("<DIV align=left><P align=left>")
txtfile.Write ("<img src="& APP.PATH & "'CARPETA1LOGO.jpg' width='764' height='157'>")

el código sigue pero no viene al caso, esta ultima linea es la que tiene el problema de sintaxis porque no encuentra la imagen que efectivamente se encuentra en la carpeta1 y se llama logo.

Espero puedan ayudarme. Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mostrar imagen mediante codigo HTML

Publicado por juan carlos (518 intervenciones) el 26/08/2009 03:28:44
intenta de esta forma compuz y me dices si te funciono

txtfile.Write (" < img src = """ & App.Path & "LOGO.jpg" & """" & " Width = " & """764""" & " Height = " & """157""" & " > ")

las diagonales
una antes de LOGO.jpg
por si no aparecen en el codigo
toda es una sola linea
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar