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