HX-PGS-ERP-SYS-LEEHSIEHJUI/10、背景程式與對話�.../PDF預覽.vb

Imports System.IO
Public Class PDF預覽
    Private Sub FDF預覽_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RadPdfViewerNavigator1.OpenButton.Visibility = Telerik.WinControls.ElementVisibility.Collapsed
        RadPdfViewerNavigator1.SaveButton.Visibility = Telerik.WinControls.ElementVisibility.Collapsed
    End Sub
    Private Sub FDF預覽_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        If 系統語言 = "繁體中文" Then : Me.Text = "PDF預覽"
        ElseIf 系統語言 = "English" Then : Me.Text = "PDF Preview"
        ElseIf 系統語言 = "Indonesian" Then : Me.Text = "Pratinjau PDF" : End If
        If PDF路徑 = "" Then : Else : Me.RadPdfViewer1.LoadDocument(PDF路徑) : End If
    End Sub
    Private Sub FDF預覽_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        If PDF路徑 = "" Then : Else
            If 不刪除檔案 = False Then
                If File.Exists(PDF路徑) Then : File.Delete(PDF路徑) : End If
            End If
        End If : PDF路徑 = "" : 不刪除檔案 = False
    End Sub
End Class