VB调用由C#开发的com组件

1:建立c# 项目 （注意项目必须含有接口，其他类应该实现该接口，才可以在其他语言中用该com组件）

2：将 AssemblyInfo.cs 里的 [assembly: ComVisible(false)] 改为 true

3：项目-属性-生成里将：为com erop 注册 选种

4：生成后就可以在其他语言中引用或该组件。

一般代码

using System;

using System.Collections.Generic;

using System.Text;

namespace UseMethod

{

public erface IField

{

void SetField(UseMethod.Fields f);

UseMethod.Fields GetField();

UseMethod.Fields GetSetField(UseMethod.Fields f);

Add( i，j);

}

public class FieldAction:IField

{

public FieldAction()

{

//如果使用设计的组件，请取消注释以下行
//InitializeComponent();

}

public void SetField(UseMethod.Fields f)
{

Fields f1 = new Fields();

f1.city = city;

f1.country = country;

f1.myCity = nycity;

f1.myName = myName;

}

public UseMethod.Fields GetField()

{

Fields f1 = new Fields();

f1.city = city;

f1.country = country;

f1.myCity = nycity;

f1.myName = myName;

return f1;

}

public UseMethod.Fields GetSetField(UseMethod.Fields f)

{

return f;
}

publicAdd( i，j)

{

return i + j;

}

}

public class Fields

{

public string city;

public string country;

public string myName;

public string myCity;

}

} 当然可以有其他复杂的类，但是在操作时，最好用强类型，以便于识别！

将生成的UseMethod.tlb 即.tlb文件引用到vb的项目中，然后

在vb6中调用：

Private Sub cmdObject_Click()

Dim meth As UseMethod.IField

Dim met As UseMethod.FieldAction

Dim result As UseMethod.Fields

Dim fi As UseMethod.Fields

Set fi = New UseMethod.Fields

Set met = New UseMethod.FieldAction

With fi

.city = city

.country = country

.myName = myName

.myCity = MYcITR

End With

Set meth = met

txtStr.Text = meth.Add(8， 9)

Set result = meth.GetSetField(fi)

txtInOut.Text = result.city result.country //注意这里的属性应和c#里定义的一样

MsgBox soapClient3.AddressName， vbDefaultButton1， 提示

End Sub