怎样编写DLL文件@张志晨vs2012实例教程

1、新建项目，决定类名。如图：

补充说明：因为要进行计算，所以名称定为数学类“Math”。

2、决定库名。此例从实际意义上，决定库名定为计算器库“calcLib”。

3、引入服务。

弹出如下对话框，添加自己需要的服务。在com组件中选择。

下图是我选用成功后的样子。

4、功能代码：

Imports VBScript_RegExp_55‘导入正则类

Imports MSScriptControl　’导入微软的脚本控件　可对“标准的字符串算式”进行解析并求值

 Public Class calcLib‘规范算式    Function repl(str As String) As String

        str = str.Replace(" ", "")
        str = str.Replace("　", "")
        str = str.Replace("（", "(")
        str = str.Replace("）", ")")
        str = str.Replace("×", "*")
        str = str.Replace("÷", "/")
        str = str.Replace("=", "")　　　　　　　'要想实现更多规在此添加，示例只添加这几个可能出现的不规范的书写        Dim reg As New RegExp
        reg.Global = True‘对整个字符串进行查询
        reg.IgnoreCase = True　’是否查询多个匹配
        reg.Pattern = "/\s/g"　’去掉所有类型的空格，如回车符……等五种空格
        Return reg.Replace(str, "")
    End Function ’进行求值计算    Function calc(str As String) As String
        str = repl(str)
        Dim caculor As New ScriptControl
        caculor.Language = "VBScript"　‘指定脚本语言
        Return caculor.Eval(str)　’返回计算结果
    End FunctionEnd Class

5、配置文件属性。　　目的让其通用，在所有的window系统上可运行。

6、生成dll文件

菜单---生成---生成Math。

7、dll文件位置：我的系统是win7的，路径如下： 复制到自己方便的位置，就可以被需要的程序引用了。

复制到自己方便的位置，就可以被需要的程序引用了。