余小章 @ 大內殿堂

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'Setting Approprite parametes

        With OpenFileDialog1

            .CheckFileExists = True

            .FileName = ""

            'Making Only Text Files to Appear

            '.Filter = "Text files|*.txt"

            .FilterIndex = 1

            'Disabling the Multiple Selection of File 

            .Multiselect = False

            .RestoreDirectory = True

        End With

        If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then

            txtFrom.Text = OpenFileDialog1.FileName

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If txtFrom.Text = "" Then

            MsgBox("Please Select a Text File")

            Exit Sub

        End If

        Dim PdfName As String = txtFrom.Text.TrimEnd.Replace(".txt", ".pdf")

        'Creating an Object for the Crystal Report

        Dim ObjReport As New CrystalReport1

        Try

            'File To String

            Dim fileContents As String

            fileContents = My.Computer.FileSystem.ReadAllText(txtFrom.Text.TrimEnd)

            'Passes the String to the Crystal Report

            ObjReport.SetParameterValue("PDF", fileContents.Trim)

            'Finally Using the Export Option from the Crystal Report,

            'the File has been Converted To PDF

            ObjReport.ExportToDisk(ExportFormatType.PortableDocFormat, PdfName)

        Catch ex As Exception

            MsgBox("Not Converted", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, ex.Message)

        Finally

            'Destructing the Objects

            ObjReport.Close()

            ObjReport = Nothing

        End Try

        MsgBox(PdfName, MsgBoxStyle.Exclamation Or MsgBoxStyle.OkOnly, "Successfully Converted")

    End Sub

End Class