【发布时间】：2010-11-20 03:11:16
【问题描述】：
我有一个用 c# 编写的 .net dll，它从数据源中读取数据并充当包装器，以允许其他应用程序调用其函数来检索这些数据。问题是我没有预料到 .net dll 将用于 .net 应用程序以外的其他应用程序，所以现在我被告知这一切都将用于 vba/powerpoint 宏，我认为它与 vb6 应用程序非常相似，所以这就是我现在计划对其进行测试的方式。
经过一番谷歌搜索，甚至在这里发布了一些问题，我设法让 dll 在 vb6 中被引用，但是当我尝试调用一个有任何参数的函数时，我会得到错误运行时错误消息 450 参数数量错误或属性分配无效。
问题
那么我做错了什么？有人可以提供一些资源或示例代码，我可以学习如何正确编写具有可从 vb6/vba 应用程序调用的参数的函数的 .net dll 吗？
如果我的代码有点太乱而无法阅读:)，那么也许你们可以帮助告诉我如何在this sample which i learn from codeproject 中使用参数，当我在那里包含一些参数时它会返回相同的错误消息。
更新：
i found another set of sample codes here，但不幸的是它只将参数作为整数传递，当我尝试执行一个将参数作为字符串传递的示例函数时，我得到了同样的错误。我在这里缺少一些基础知识吗？有人在乎烧一个菜鸟吗？
更新 2：
以防万一有其他人偶然发现这个问题，我并没有真正找出导致问题的原因或原因，但由于项目仍然相当小，我只是使用了一个工作示例 dll 能够正确返回字符串并开始将每个函数的函数移到它上面，现在它工作正常:)
谢谢！！！
.net dll代码如下：
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Configuration;
using System.Data.OleDb;
using System.Data;
using System.Xml;
using System.Xml.Linq;
using System.IO;
using System.Security;
using System.Security.Cryptography;
using System.Runtime.InteropServices;
//using System.Windows.Forms;
namespace DtasApiTool
{
[Guid("D6F88E95-8A27-4ae6-B6DE-0542A0FC7040")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface _Program
{
[DispId(1)]
string Get_All_Locales(string test);
[DispId(2)]
string Get_All_Levels(string locale);
[DispId(3)]
string Get_Subjects_ByLocaleLevelId(string locale, int levelId);
[DispId(4)]
string Get_Topic_ByLevelIdLocaleSubjectId(int levelId, string locale, int subjectId);
[DispId(5)]
string Get_Subtopic_ByLevelIdLocaleSubjectIdTopicId(int levelId, string locale, int subjectId, int topicId);
[DispId(6)]
string Get_Skill_ByLevelIdLocaleSubjectIdTopicIdSubtopicId(int levelId, string locale, int subjectId, int topicId, int subtopicId);
[DispId(7)]
string Get_All_Subjects(string locale);
[DispId(8)]
void Constructor(string directory);
}
[Guid("13FE32AD-4BF8-495f-AB4D-6C61BD463EA5")]
[ClassInterface(ClassInterfaceType.None)]
[ProgId("DtasApiTool.Program")]
public class Program : _Program
{
private string connStr = "";
private string xmlLocation = "";
public Program(){
}
public void Constructor(string directory)
{
...
}
#region This part contains all the internal functions
/// <summary>
/// return the component lesson given a locale and skill id
/// </summary>
/// <param name="locale"></param>
/// <param name="skillId"></param>
/// <returns></returns>
internal string Get_Component_Lesson(string locale, string skillId)
{
...
}
/// <summary>
/// return a xmlFile containing all the information from the Skill Analysis
/// </summary>
/// <param name="fileLocation">raw xml file location, i.e. C://datapath/raw_dato.xml</param>
/// <returns> the location of the output xml file.</returns>
internal string Process_Skill_Analysis_Report(string fileLocation)
{
...
}
#endregion
/// <summary>
/// Returns all the locale which is in the database currently.
/// </summary>
/// <returns></returns>
public string Get_All_Locales(string test)
{
...
}
}
这就是我从 vb6 中调用它的方式：
Option Explicit
Private Sub Form_Load()
Dim obj As DtasApiTool.Program
Set obj = New DtasApiTool.Program
Dim directory As String
directory = """" + "C:\Documents and Settings\melaos\My Documents\Visual Studio 2008\Projects\app\bin\Release\" + """"
'obj.Constructor directory
Dim func As String
func = obj.Get_All_Locales(directory)
End Sub
【问题讨论】：
标签： .net com vb6 interop parameter-passing