I want to include a directory that contains PDF files with my program.
I would like the user to be able to click on the name of the PDF File in a Windows Form and have the PDF open in the free Adobe Reader.

Anyone ever done this?

George

Add an OpenFileDialog control to the code below. I don't want to do all of the work for you.

    Private Sub subLoadPDFFile()
        Try
            Dim Process As New Process
            With Process
                .StartInfo.FileName = "yourPDFName.pdf"
                .Start()
            End With
        Catch ex As Exception
            '* Error code if Adobe not installed, file not found,etc.
        End Try
    End Sub




Best Regards,
Earl Francis

Hi Earl:

Boy, that was exactly what I needed to point me in the right direction. Had never run across "New Process" before. This is an amazing language. I truly believe you can do anything you can think of, and quite easily at that.

Again thanks for the help, greatly appreciated.
George Race
Race Consulting

Here is my final code to display a PDF File from a Form:

 Private Sub TextBox1_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles TextBox1.Click

        'Routine To Read PDF File From VB 2005 Form
        'NOTE: Start by making a TextBox on the form. This routine is started with the
        'click event of the text box. Insert into the TextBox "Tag" parameter the full
        'path and file name of the file to open.

        'Let's setup a variables
        Dim MyPDFFilePathAndName As String

        'Get the File Path and File Name From the TextBox Tag Field
        MyPDFFilePathAndName = Me.TextBox1.Tag.ToString

        'Routine to open the PDF file and catch any errors.
        Try
            Dim process As New Process
            With process
                .StartInfo.FileName = MyPDFFilePathAndName
                .Start()
            End With
        Catch ex As Exception
            MsgBox("There is a problem!" & vbCrLf & ex.Message, 16, ("MY KIT AIRPLANE"))
        Finally
            Beep()
        End Try
    End Sub

You are quite welcome.



Best Regards,
Earl Francis