参照設定せずに呼び出すなら……こんな感じかな。
---- for C# ----
using System;
using System.Reflection;
using System.Runtime.InteropServices;
class Dobon12575 {
static void Main() {
Object mainClass = null;
Object childClass = null;
try {
Type classType = Type.GetTypeFromProgID("DLLTest.TestMainClass");
mainClass = Activator.CreateInstance(classType);
childClass = mainClass.GetType().InvokeMember(
"Sub1", BindingFlags.GetProperty, null, mainClass, null
);
childClass.GetType().InvokeMember(
"TestMethod", BindingFlags.InvokeMethod, null, childClass, null
);
} catch( Exception theException ) {
Console.WriteLine("Error: " + theException.Message );
} finally {
if(childClass != null && Marshal.IsComObject(childClass)) {
Marshal.ReleaseComObject(childClass);
}
if(mainClass != null && Marshal.IsComObject(mainClass )) {
Marshal.ReleaseComObject(mainClass );
}
}
}
}
---- for VB(Option Strict On) ----
Option Explicit On
Option Strict On
Imports System
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic
Module Dobon12575
Sub Main()
Dim mainClass, childClass As Object
Try
mainClass = CreateObject("DLLTest.TestMainClass")
childClass = CallByName(mainClass, "Sub1", CallType.Get)
CallByName(childClass, "TestMethod", CallType.Method)
Catch theException As Exception
Console.WriteLine("Error: " & theException.Message )
Finally
If Not childClass Is Nothing AndAlso Marshal.IsComObject(childClass)
Marshal.ReleaseComObject(childClass)
End If
If Not mainClass Is Nothing AndAlso Marshal.IsComObject(mainClass )
Marshal.ReleaseComObject(mainClass)
End If
End Try
End Sub
End Module
---- for VB(Option Strict Off) ----
Option Explicit On
Option Strict Off
Imports System
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic
Module Dobon12575
Sub Main()
Dim mainClass, childClass As Object
Try
mainClass = CreateObject("DLLTest.TestMainClass")
childClass = mainClass.Sub1
childClass.TestMethod()
Catch theException As Exception
Console.WriteLine("Error: " & theException.Message )
Finally
If Not childClass Is Nothing AndAlso Marshal.IsComObject(childClass)
Marshal.ReleaseComObject(childClass)
End If
If Not mainClass Is Nothing AndAlso Marshal.IsComObject(mainClass )
Marshal.ReleaseComObject(mainClass)
End If
End Try
End Sub
End Module
---- for JScript ----
import System;
import System.Reflection;
import System.Runtime.InteropServices;
var mainClass:Object;
var childClass:Object;
try {
mainClass = new ActiveXObject("DLLTest.TestMainClass");
childClass = mainClass.Sub1;
childClass.TestMethod();
} catch( theException : Exception ) {
Console.WriteLine("Error: " + theException.Message );
} finally {
if(childClass != null && Marshal.IsComObject(childClass)) {
Marshal.ReleaseComObject(childClass);
}
if(mainClass != null && Marshal.IsComObject(mainClass )) {
Marshal.ReleaseComObject(mainClass );
}
}
分類:[.NET]
いつもお世話になってます。すえぞーです。
以前にVB6.0で作成したActiveX DLLをC#で使用したいのですが、
参照設定の追加で作成したDLLを追加して試してみてもどうしても
うまく使用できないので投稿させてもらいました。
どうも私が使おうとしているDLLのクラスの階層が２つになっていなければ
動きそうなのですが、このあたりの書き方がよくわかりません。
VB6.0やVB.netだとCreateObject関数を使用してオブジェクトを作成し、
作成したオブジェクトに対してobjTest.Sub1.TestProperty = "てすと１"
のような感じで動いているのでC#でもなんらかのやり方で動くと思うのですが
どうすればよいのでしょうか？
下にテスト用のソースも貼り付けておきますのでわかる方がいらっしゃれば教えてください。
すみませんがよろしくお願いします。
VB6.0のDLLのつくりは単純に書くと以下のようになっています。
＜メインのクラス＞TestMainClass
------------------------------------------------------------
Private objSub1 As New clsSub1 '下の階層のクラスを宣言
Private ClassCollection As New Collection
Property Get Sub1() As Object
Set Sub1 = objSub1
End Property
Private Sub Class_Initialize()
ClassCollection.Add objSub1
End Sub
------------------------------------------------------------
＜下の階層のクラス＞clsSub1
命令が呼び出せればなんでもいいのですがいちおうこんな感じでテストしています。
------------------------------------------------------------
Dim sMessageData As String
'テスト用プロパティ
Property Let TestProperty(sData As String)
sMessageData = sData
End Property
Property Get TestProperty() As String
TestProperty = sMessageData
End Property
'テスト用メソッド
Public Function TestMethod()
Call MsgBox("Sub1 :" & vbCrLf & sMessageData, vbInformation)
End Function
------------------------------------------------------------
これでActiveX DLLを作成し、VB6.0やVB.netだとこのようにして使用できます。
------------------------------------------------------------
Private Sub Command1_Click()
Dim objTest As Object
Set objTest = CreateObject("DLLTest.TestMainClass") 'オブジェクト作成
objTest.Sub1.TestProperty = "てすと１" 'プロパティのテスト
Call objTest.Sub1.TestMethod 'メソッドのテスト
Set objTest = Nothing 'オブジェクト開放
End Sub
------------------------------------------------------------