Visual Basic.NET - Abrir un PDF en un formulario

   
Vista:

Abrir un PDF en un formulario

Publicado por Alejandro (8 intervenciones) el 25/11/2015 21:14:12
Hola,
Estoy trabajando con VB 2008 y Windows 7.
He creado un formulario para ver archivos PDF según las instrucciones que he encontrado en la red, que selecciono desde un cuadro de diálogo. El problema es que no se visualiza el documento aunque no da ningún tipo de error. En el formulario no hay más que el control específico para ver los PDF, un cuadro de diálogo para buscar el archivo, y un MenuStrip para abrir el cuadro de diálogo y cerrar el formulario.
Copio el código del formulario por si alguien me puede decir qué hago mal. Agradeceré las respuestas.

Imports System.IO
Public Class frmVisorPDF
Private DocuNombre As String, DocuFecha As Date, NombrePDF As String, NoFecha As Date
Private Sub frmVisorPDF_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
NombrePDF = "C:\Users\Carlos\Documents\Diagrama Apertura.pdf"
If File.Exists(NombrePDF) Then
Me.Text = NombrePDF & " - " & NoFecha.ToShortDateString
VisorPDF.src = NombrePDF
Else
MessageBox.Show("< ÔjÔ > Ha cambiado de ubicación o no existe el archivo: " & vbCrLf & vbCrLf _
& NombrePDF & vbCrLf & vbCrLf & "Tendrás que buscarlo con el Explorador. ", _
"VISORPDF", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub mnuBuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuBuscar.Click
Dim DialogoResul As DialogResult, DocuPath As String, LargoArchi As Integer, LargoNombre As Integer
With opfVisorPDF
.FileName = ""
.Filter = "PDF|*.pdf" '|Word 2003|*.docx|Word 2000|*.doc
'.InitialDirectory = My.Application.Info.DirectoryPath
.Title = "Búsqueda de documentos"
End With
DialogoResul = opfVisorPDF.ShowDialog
If DialogoResul <> DialogResult.OK Then Exit Sub
DocuNombre = System.IO.Path.GetFileName(opfVisorPDF.FileName)
LargoArchi = opfVisorPDF.FileName.Length
LargoNombre = DocuNombre.Length
DocuPath = Mid(opfVisorPDF.FileName, 1, (LargoArchi - LargoNombre))
NombrePDF = DocuPath & DocuNombre
DocuFecha = File.GetLastWriteTime(NombrePDF)
Me.Text = NombrePDF & " - " & DocuFecha.ToShortDateString
VisorPDF.src = NombrePDF
End Sub
Private Sub mnuCerrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuCerrar.Click
Me.Dispose()
End Sub
End Class
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