VB6 中如何访问C# Dll 中的方法、属性以及事件

VB6 中如何访问C# Dll 中的方法、属性以及事件

一个简单的例子实现VB6中访问C# dll中的方法、属性以及事件。

C# DLL

1) 要使得C# dll中的方法、属性以及事件在VB6中暴露出来，以便写代码方便，需要加入相应的接口

- 方法和属性的接口，本例中为IComInterOpClass

[Guid("12A7D9AE-B42F-4a91-9EEE-5E0951A552E2")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface IComInterOpClass
{
//Method
string SayHello();
//Property
string Name { get; set; }
}

- 事件的接口，本例中为IComInterOpEvent

[Guid("868FD423-2504-4f5c-AB47-9F2B7DB8ED2C")]
[InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)]
public interface IComInterOpEvent
{
void EventTest(string msg);
}

2) 实现部分，注意事件的接口不需要继承，它是以Attribute的方式加入的。本例中的事件是用timer实现5秒钟触发一次。

namespace ComInterOpLibrary
{
public delegate void EventTestHandler(string message);

[Guid("BA6DF62E-D59E-4e46-B2E6-F1CD990A1E18")]
[ClassInterface(ClassInterfaceType.None)]
[ComSourceInterfacesAttribute("ComInterOpLibrary.IComInterOpEvent")]
[ProgId("ComInterOpClass")]
public class ComInterOpClass : IComInterOpClass
{
private Timer myTimer = null;
//Event
public event EventTestHandler EventTest;

//Property
public string Name { get; set; }

public ComInterOpClass()
{
myTimer = new Timer(5000);
myTimer.AutoReset = true;
myTimer.Enabled = true;
myTimer.Elapsed += new ElapsedEventHandler(myTimer_Elapsed);
}

void myTimer_Elapsed(object sender, ElapsedEventArgs e)
{
if (EventTest != null)
{
EventTest("Good day!");
}
}

#region IComInterOpClass Members
//Method
public string SayHello()
{
return "Hello " + Name;
}

#endregion
}
}

3) 至此，C# dll部分就完成了，最后记得将项目的Register for COM InterOp选上。

VB部分

1) 首先声明两个变量，一个是类的，一个是事件的。

Public obj As ComInterOpLibrary.ComInterOpClass
Public WithEvents objEvent As ComInterOpLibrary.ComInterOpClass  '定义事件

2) 然后进行初始化，本例是放在Form Load的时候进行的。

Private Sub Form_Load()

Set obj = New ComInterOpLibrary.ComInterOpClass
Set objEvent = obj

End Sub

3) 调用属性和方法

Dim ret As String

"Call property
obj.Name = txtName.Text

"Call Method
ret = obj.SayHello()

lblShow.Caption = ret

4) 访问事件

Private Sub objEvent_EventTest(ByVal msg As String)

"Call event
List1.AddItem msg

End Sub 以上代码摘自：http://www.sunnybtoc.com/page/M0/S228/228420.html 注意：方法的名称 _前面的objEvent就是程序开始部分定义的 public WithEvents 的变量名称，_后面EnevtTest就是事件的名称。     所有COM的事件都可以这样调用。     其实如果是控件的话，在VB代码编辑上方的左下拉列表里，选择该COM控件，右边的下拉框里会显示出该控件所有的事件。