اجراي مستقيم يك فايل pdf در فرم

اجراي مستقيم يك فايل pdf در فرم :) ؟؟؟؟

سلام
فايل PDF.ocx رو add كنيد.... اين فايل در محلي كه نرم افزار آكروبات رو نصب كرديد يافت مي شود.
مثال:
x:\Adobe\acreader\Reader\ActiveX

كد زير به ياري شما مي آيد:

کد:

---

Private Sub Command1_Click()

Dim PageNo As Integer

Form1.Pdf1.src = "x:\fileshoma.pfd"

PageNo = 1
Form1.Pdf1.setCurrentPage (PageNo)

End Sub

Private Sub Form_Resize()

Pdf1.Width = Form1.ScaleWidth
Pdf1.Height = Form1.ScaleHeight

End Sub

---

براي VB.NET

کد:

---

Private Sub ViewThisPDF(ByVal ViewThisNow As String)
        Dim AcroExchApp As Object
        Dim AcroExchAVDoc As Object
        Dim AcroExchAVPageView As Acrobat.CAcroAVPageView

        AcroExchApp = CreateObject("AcroExch.App")
        AcroExchAVDoc = CreateObject("AcroExch.AVDoc")

        If (AcroExchAVDoc.Open(ViewThisNow, "Text for window title") = False) Then
            MsgBox("Could not open file")
            Exit Sub
        End If
End Sub

---

موفق باشيد.