29 lines
1.0 KiB
VB.net
29 lines
1.0 KiB
VB.net
Public Class Form1
|
|
|
|
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
PdfViewer1.Dispose() 'Necessary to free resources used by the PDF Viewer
|
|
End Sub
|
|
|
|
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
PdfViewer1.SelectFile()
|
|
TextBox1.Text = PdfViewer1.FileName
|
|
End Sub
|
|
|
|
Private Sub rbXPDF_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbXPDF.CheckedChanged
|
|
If rbXPDF.Checked Then
|
|
PdfViewer1.UseXPDF = True
|
|
Else
|
|
PdfViewer1.UseXPDF = False
|
|
End If
|
|
PdfViewer1.FileName = PdfViewer1.FileName
|
|
End Sub
|
|
|
|
Private Sub btOCR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOCR.Click
|
|
MsgBox(PdfViewer1.OCRCurrentPage)
|
|
End Sub
|
|
End Class
|