投稿日 | : 2005/09/18(Sun) 13:27 |
投稿者 | : 金次朗 |
Eメール | : gangin_gingan_1270@mail.goo.ne.jp |
URL | : |
タイトル | : VBで作成したDLLを別アプリから呼ぶときのエラーについて |
環境
WinXP
VB6
お世話になります。
VBでActivXDLLを作成し、それを別のVBアプリから実行しようとして
いるのですが、以下のエラーがは発生してしまいます。
実行時エラー 453
エントリ foo がDLLファイル Test_DLL.dll 内に見つかりません。
ActivXDLL側のコード記述は以下です。
Class1
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
Option Explicit
Public Function foo(ByVal iString As String) As Boolean
foo = MsgBox(iString, vbYesNo) = vbYes
End Function
↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
呼び出しソフトの記述
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
Option Explicit
Private Declare Function foo Lib "Test_DLL.dll" (ByVal iString As String) As Bool
ean
Private Sub Command1_Click()
Dim ret As Boolean
ret = foo("あああああああ")
End Sub
↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
DLL側のプロジェクトのオブジェクト名「TEST_DLL」
DLLの登録処理「Regsvr32 /s Test_DLL.dll」を実行。
呼び出し側のプロジェクトの参照設定に「TEST_DLL」を設定。
呼び出しソフトとDLLを同一フォルダに格納して実行しました。
この状態で、先にあげたメッセージが表示されてしまいます。
以上よろしくお願いします。