Ei kuvausta
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

PDF預覽.vb 886B

1234567891011121314151617
  1. Imports System.IO
  2. Public Class PDF預覽
  3. Private Sub FDF預覽_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  4. RadPdfViewerNavigator1.OpenButton.Visibility = Telerik.WinControls.ElementVisibility.Collapsed
  5. RadPdfViewerNavigator1.SaveButton.Visibility = Telerik.WinControls.ElementVisibility.Collapsed
  6. End Sub
  7. Private Sub FDF預覽_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  8. If PDF路徑 = "" Then : Else : Me.RadPdfViewer1.LoadDocument(PDF路徑) : End If
  9. End Sub
  10. Private Sub FDF預覽_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
  11. If PDF路徑 = "" Then : Else
  12. If 不刪除檔案 = False Then
  13. If File.Exists(PDF路徑) Then : File.Delete(PDF路徑) : End If
  14. End If
  15. End If : PDF路徑 = "" : 不刪除檔案 = False
  16. End Sub
  17. End Class