初めて質問させていただきます。
よろしくお願いします。
VB6.0からPDFファイルの起動をしたいと思っています。
色々とWEBを探しては見たのですが出来ずに困っています。
WEBで見つけたソースでエラーがでてしまうので
そこの対処方を教えていただけませんでしょうか。
Dim bok As Boolean
Dim AcroApp As Object, AVDoc As Object
Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")
bok = AVDoc.Open(PDFFile, "") 'Text1.Text = "c:\test.pdf"
AcroApp.Show '
３行目のSet AcroApp = CreateObject("AcroExch.App")の所で
実行時エラー429
ActiveXコンポーネントはオブジェクトを作成できませんと言われてしまいます。
何か他に必要な事があるのか探して見ましたが、わかりませんでした。
助言をお願いします。
ActiveXコントロール「ActiveX用 Acrobat コントロール」というのが提供されていると思いますのでこれを使用したほうがいいのではないでしょうか？
編集 削除> Set AcroApp = CreateObject("AcroExch.App")
などは、 Adobe Acrobat が
インストールされていないと使用できませんよ。
Acrobat Reader で表示させるならば、
ShellExecute API で十分だと思いますけど。
VB フォーム上に PDF ファイルを表示させたい場合は、
Acrobat Reader の親ウィンドウをフォームにしちゃうとか、
あるいは、 Acrobat Reader がインストールされていれば、
pdf.ocx があるはずなので、それをコンポーネントで追加して、
それを使用するとか。
ｋｋさん、とろさん、ありがとうございます。
Acrobat Reader は入れてあります。Readerだけでは駄目でしょうか？
バージョンは6.0です。
Shellexecuteは試してみたのですが、クライアントのAcrobat Reader のバージョンが違いインストールされているフォルダが違うためエラーになってしまいました。
PDF.OCXも試しては見たのですが、VBのフォーム上に表示のため
没になってしまいました。
そのため違う方法を探していたらWEBでソースを見つけたしだいです。
これまでの過程を書かずにしまってすみませんでした。
> Shellexecute は試してみたのですが、
> クライアントの Acrobat Reader のバージョンが違い
> インストールされているフォルダが違うためエラーになってしまいました。
インストールされているフォルダとかバージョンは関係ないと思いますけど．．．
ShellExecute API は、簡単に言うと
エクスプローラでファイル（アイコン）を
ダブルクリックした時の処理を行うようなものですよ。
エラーになったＰＣでは、エクスプローラからでも
PDF ファイルを開くことができないのでしょうか？
# 拡張子 PDF に関連付けされたアプリケーションは
# 普通 Acrobat Reader だと思いますけど。
とろさんありがとうございます。
とっても、大きな勘違いをしておりました。
以前使っていたのはShell関数でした。
ShellExecute を使う事で解決しました。
お手数をおかけしました。
ありがとうございました。