Disini saya akan menggunakan cara yang paling mudah, yaitu penggunaan komponen WebBrowser dari ToolBox anda dan letakkan pada form project anda. Jangan lupa buat sebuah button dan isi dengan kode dibawah ini, untuk dialog membuka file PDF digunakan bantuan dari OpenFileDialog.
Private
Sub
Button1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
Dim
Response
As
DialogResult
OpenFileDialog1.FileName =
""
OpenFileDialog1.Filter =
"PDF Files(*.pdf)|*.pdf|All Files(*.*)|*.*"
Response = OpenFileDialog1.ShowDialog()
If
Response <> Windows.Forms.DialogResult.Cancel
Then
If
OpenFileDialog1.FileName <>
""
Then
WebBrowser1.Navigate(OpenFileDialog1.FileName)
End
If
End
If
End
Sub
No comments:
Post a Comment