まず、ＶＢ(AvtiveXDll)から作成しましょう。
１）新しいプロジェクトの新規作成タブで、ＡｃｔｉｖｅＸ ＤＬＬを開きましょう。
すると、プロジェクト(Project1)とクラス(Class1)ができていますね。
２）プロジェクトのオブジェクト名をとりあえずここでは、TESTVBとしましょう。また、クラスのオブジェクト名は今回はそのままできましょう。
３）今回の課題は、ＶＢのフォームを表示することなので、フォームを追加しましょう。
フォーム(Form1)ができていますね。このオブジェクト名もこのままにしておきましょう。
４）クラス(Class1)にSub FormShowを作成しましょう。
Sub FormShow()
Dim frm As New Form1
frm.Show vbModal
End Sub
５）ＶＢ側は完成です。コンパイルして、TESTVB.DLLを作成しましょう。
では、次にＶＣ
１）新規作成でＭＦＣ ＡｐｐＷｉｚａｒｄ（ｅｘｅ）で作成します。プロジェクト名 をとりあえず TESTVC にしましょう
２）テストなのでアプリケーションの種類をダイアログベースにしましょう。
３）テストなので、組み込む機能はなしでいきましょう。
４）
５）
６）
７）スケルトンの作業は終わりです。ワークスペースは次のようになっていますね。
８）ＣｌａｓｓＷｉｚａｒｄでクラスの追加をします。
９）タイプライブラリから、ＶＢで作成したTESTVB.DLLを開きます。
１０）クラスの確認
１１）ワークスペースはこんな感じになります。
１２）クラス(CTESTVCDlg)にメンバ変数を追加
１２）ソースを修正しましょう。
BOOL CTESTVCApp::InitInstance()の先頭に４行記述
BOOL CTESTVCApp::InitInstance()
{
if (!AfxOleInit()){
AfxMessageBox("OLE初期化失敗");
return FALSE;
}
BOOL CTESTVCDlg::OnInitDialog()の最後のreturnの前に次のソースを記述
COleException e;
CLSID clsid;
if (CLSIDFromProgID(OLESTR("TESTVB.Class1"), &clsid) != NOERROR){
EndDialog(IDABORT);
return FALSE;
}
LPUNKNOWN lpUnk;
LPDISPATCH lpDispatch;
if (GetActiveObject(clsid, NULL, &lpUnk) == NOERROR){
HRESULT hr = lpUnk->QueryInterface(IID_IDispatch,(LPVOID*)&lpDispatch);
lpUnk->Release();
if (hr == NOERROR)
m_vb.AttachDispatch(lpDispatch, TRUE);
}
if (m_vb.m_lpDispatch == NULL && !m_vb.CreateDispatch(clsid, &e)){
EndDialog(IDABORT);
return FALSE;
}
m_vb.FormShow();