社本様
社本様
ご返答ありがとうございます。
> Appウィザードで作成したままのオブジェクトであれば、
> ファイルモニカが使えると思います。
> GetObject()をする時に、ファイル名を渡せばよいかと思います。
GetObjectメソッドは以前から気になってはいるのですが、いつも
以下のようなアラートが表示されてしまいます。
'System.Exception' のハンドルされていない例外がmicrosoft.visualbasic.dll で発生しました。
追加情報 : ActiveX コンポーネントを作成できません。
次のような流れでアプリを作っているのですが、何か問題があるのでしょうか。
1.VC7のMFCでAMTestというプロジェクトを作成する。
2.ウィザードで拡張子を例えば、 mat (MFC Automation Test)とする。
3.ProgIDを”AMTest”に変える
4.オートメーションにチェックを入れる。
5.クラスビューのIAMTestインターフォースに引数BSTRの
GetMessageメソッドを追加する
6.AMTestDoc.cppを開いて、GetMessageメソッド内に
『strResult = "HelloWorld";』と追加する
7.プロジェクトをビルドする
(FilePathはc:\AMTest\AMTest\Debug\AMTest.exe とする)
8.AMTest.exeを立ち上げ ファイル/名前をつけて保存 で
c:\Sample.matとして保存
9.VB.NETでAMCliantTestというプロジェクトを作る
10.次のようなプログラムを作り、VBから呼び出せるかを確かめる
(動作確認済み)
Dim obj As Object
obj = CreateObject("AMTest")
Dim msg As String = obj.GetMessage()
11.GetObjectメソッドのためのサンプルを2つ作成
(A,Bともに上記のアラートが表示される)
A.
Dim obj As Object
obj = GetObject("c:\AMTest\AMTest\Debug\AMTest.exe")
Dim msg As String = obj.GetMessage()
B.
Dim obj As Object
obj = GetObject("c:\Sample.mat")
Dim msg As String = obj.GetMessage()
社本様
ご返答ありがとうございます。
> Appウィザードで作成したままのオブジェクトであれば、
> ファイルモニカが使えると思います。
> GetObject()をする時に、ファイル名を渡せばよいかと思います。
GetObjectメソッドは以前から気になってはいるのですが、いつも
以下のようなアラートが表示されてしまいます。
'System.Exception' のハンドルされていない例外がmicrosoft.visualbasic.dll で発生しました。
追加情報 : ActiveX コンポーネントを作成できません。
次のような流れでアプリを作っているのですが、何か問題があるのでしょうか。
1.VC7のMFCでAMTestというプロジェクトを作成する。
2.ウィザードで拡張子を例えば、 mat (MFC Automation Test)とする。
3.ProgIDを”AMTest”に変える
4.オートメーションにチェックを入れる。
5.クラスビューのIAMTestインターフォースに引数BSTRの
GetMessageメソッドを追加する
6.AMTestDoc.cppを開いて、GetMessageメソッド内に
『strResult = "HelloWorld";』と追加する
7.プロジェクトをビルドする
(FilePathはc:\AMTest\AMTest\Debug\AMTest.exe とする)
8.AMTest.exeを立ち上げ ファイル/名前をつけて保存 で
c:\Sample.matとして保存
9.VB.NETでAMCliantTestというプロジェクトを作る
10.次のようなプログラムを作り、VBから呼び出せるかを確かめる
(動作確認済み)
Dim obj As Object
obj = CreateObject("AMTest")
Dim msg As String = obj.GetMessage()
11.GetObjectメソッドのためのサンプルを2つ作成
(A,Bともに上記のアラートが表示される)
A.
Dim obj As Object
obj = GetObject("c:\AMTest\AMTest\Debug\AMTest.exe")
Dim msg As String = obj.GetMessage()
B.
Dim obj As Object
obj = GetObject("c:\Sample.mat")
Dim msg As String = obj.GetMessage()