投稿時間：2006/01/06(Fri) 17:38
投稿者名：moss
Ｅメール：
ＵＲＬ ：
タイトル：VBからダイアログを持つDLLの呼び出し
ＶＢの問題かＶＣの問題かわかりませんでしたので、こちらで質問
させていただきます。
ＶＣで作成したダイアログを持つDLLがVCで作成したアプリからは
呼び出せる(ダイアログが表示される)のに、ＶＢから呼び出すと
アプリケーションエラーで終了します。
ＶＢから呼び出すＤＬＬは何度か作成したことはあるのですが、
ダイアログを表示するＤＬＬは作成したことがありません。
ＤＬＬの作成に問題があるのか、ＶＢでの呼び出しに問題があるのか
どちらなのでしょうか？
表示されるエラーの内容は以下のとおりです。
For infomation on how your program can cause an assertion
failure, see the Visual C++ documentation asserts.
１．作成するDLLの種類を「MFCの拡張DLL(MFCの共有DLL使用)」で作成開始
２．リソースから「Dialog」を挿入
３．エクスポートした関数に以下を記述
DATA型はユーザー定義
--------------------------------------------------------------------
static AFX_EXTENSION_MODULE hogeDLL = { NULL, NULL };
extern "C" int APIENTRY
DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID lpReserved)
{
ウィザードが作成したソースのまま
}
//以下エクスポートした関数
int WINAPI hoge(DATA *pData)
{
int rtn;
TRY
{
HINSTANCE hInstResClient = AfxGetResourceHandle();
AfxSetResourceHandle( hogeDLL.hModule );
int rc;
ChogeDlg dlg; // ダイアログクラス
//ウィンドウ表示
rc = dlg.DoModal();
AfxSetResourceHandle( hInstResClient );
if ( rc != IDOK ) return( -1 );
return( 0 );
}
CATCH_ALL( e )
{
// a failure caused an exception.
return( -1 );
}
END_CATCH_ALL
return( 0 );
}
--------------------------------------------------------------------
４．呼び出し元ＶＢを作成
標準モジュール
Option Explicit
''データを受け取る際の構造体
Public Type DATA
aaa As String * 256
bbb As String * 256
ccc As String * 256
End Type
Declare Function hoge Lib "hoge.dll" (ByRef pData As DATA) As Long
Form1
Private Sub CmdSearch_Click()
Dim rtn As Long
Dim pData As DATA
rtn = hoge(pData)
MsgBox rtn
End Sub
|