PDF Datei öffnen lassen

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von wincnc.

    PDF Datei öffnen lassen

    Hallo,


    ich habe eine kleine Datenbank (Access) erstellt und möchte den
    aktuellen Datensatz zugeordnetes PDF.Datei (PDF Dateiname = Aktueller Autowert)
    öffnen. Programm das ich dafür benutze ist Visual Basic 5.0 (also nicht 2005
    net. Es währe auch ganz hilfsreich, wenn man es auch mit einer Suchfunktion
    verbinden könnte, d.h wenn ich manuell eine bestimmte Position in ein Textfeld
    eingebe und dann soll PDF Datei geöffnet werden und die Data1 diese Position
    dann auch übernehmen. Bis jetzt versuche ich es mit dem folgenden Code:

    Dim
    Filename
    Filename = Text1.Text

    AcroPDF1.src = "c:\Daten_PDF\"
    & Filename & ".pdf"

    End Sub


    eine PDF Datei zu
    öffnen.

    Separat ohne eine Datenbank, funktioniert es relativ gut mit

    AcroPDF1.src =
    "c:\Daten_PDF\Filename.pdf"

    Allerdings geht es mit Datenbank gar nicht, Basic stürzt ab,
    wenn ich die AcroPDF benutze.

    (mache wahrscheinlich etwas falsch ?( ) Besser wäre natürlich, wenn
    die Datei an Adobe Reader 8 übergeben wird, ohne AcroPDF benutzen zu müssen. Wie
    das geht weis ich leider nicht.

    Ich hoffe, dass mir jemand damit weiter helfen kann. Vielen
    Dank im Voraus :thumbsup:




    ok habe jetzt die Lösung in diesem Forum gefunden mit OpenFileWithProg funktion.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Aurum“ ()

    Hallo

    Dazu kannst Du die ShellExecute API benutzen:

    Visual Basic-Quellcode

    1. Private Declare Function ShellExecute Lib "shell32.dll" _
    2. Alias "ShellExecuteA" ( _
    3. ByVal hwnd As Long, _
    4. ByVal lpOperation As String, _
    5. ByVal lpFile As String, _
    6. ByVal lpParameters As String, _
    7. ByVal lpDirectory As String, _
    8. ByVal nShowCmd As Long) As Long
    10. Const SW_HIDE = 0
    11. Const SW_MAXIMIZE = 3
    12. Const SW_MINIMIZE = 6
    13. Const SW_SHOW = 5
    14. Const SW_SHOWMAXIMIZED = 3
    15. Const SW_SHOWMINIMIZED = 2
    16. Const SW_SHOWMINNOACTIVE = 7
    17. Const SW_SHOWNOACTIVATE = 4
    18. Const SW_SHOWNORMAL = 1
    20. Private Sub Command1_Click()
    21. ShellExecute Me.hwnd, "open", "Acrobat.exe", "D:\DeineDatei.pdf", "C:\", SW_MAXIMIZE
    22. End Sub

Facebook
Telefonspende