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控件，右边的下拉框里会显示出该控件所有的事件。