投稿日	： 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

★ - VBからダイアログを持つDLLの呼び出し - moss 01/06-17:38No.5382
• Re: VBからダイアログを持つDLLの呼び出し - Blue 01/06-18:00 No.5383
  • Re^2: VBからダイアログを持つDLLの呼び出.. - Blue 01/06-18:09 No.5384
    • Re^3: VBからダイアログを持つDLLの呼び出.. - moss 01/07-10:40 No.5385