Visual Basic - Archivos Pdfs

Life is soft - evento anual de software empresarial
 
Vista:

Archivos Pdfs

Publicado por Martin (1 intervención) el 29/02/2004 03:46:10
Hola, Saben si se puede abrir archivos Pdfs con Visual Basic.
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:Archivos Pdfs

Publicado por Cecilia Colalongo (3116 intervenciones) el 29/02/2004 16:25:58
Fijate en:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=23413&lngWId=1

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=20981&lngWId=1

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=12102&lngWId=1

que tienes algunos ejemplos.
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

RE:Archivos Pdfs

Publicado por Alejandro (1 intervención) el 01/03/2004 06:19:01
Hola,
probá esto:

La siguiente función de la API de Windows es útil cuando queramos ejecutar cualquier tipo de archivo ya sean páginas Web, archivos de Word o documentos de texto. La propia función se encarga de buscar el programa asociado y abrirlo.
Declara la siguiente función en un módulo .BAS (ya sabes, para poder utilizarla otra vez). Recuerda que la declaración de la función está extraida del Visor de API de Windows y que la declaración va entera en una línea.
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
Public Const SW_SHOW = 5
Ahora vamos a utilizarla con tres o cuatro ejemplillos.
'Abrir una página Web : abre el navegador y conecta con el sitio
ShellExecute 0,”open”,”http://www.galeon.com/rgpuente/”,””,””,SW_SHOW

'Abrir un documento Word : abre MS-Word y el documento
ShellExecute 0,”open”,App.Path & “\MIDOC.DOC”,””,””,SW_SHOW

'Abrir un documento de texto : abrirá el NotePad con el documento
ShellExecute 0,”open”,App.Path & “\MITXT.TXT”,””,””,SW_SHOW

suerte
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