vb 调用c#做的com 组件
2：将 AssemblyInfo.cs 里的 [assembly: ComVisible(false)] 改为 true
3：项目-属性-生成里将：为com interop 注册 选种
4：生成后就可以在其他语言中引用或该组件。
一般代码如下：
using System;
using System.Collections.Generic;
using System.Text;
namespace UseMethod
{
public interface IField
{
void SetField(UseMethod.Fields f);
UseMethod.Fields GetField();
UseMethod.Fields GetSetField(UseMethod.Fields f);
int Add(int i, int 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;
}
public int Add(int i, int 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
