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的,路径如下:复制到自己方便的位置,就可以被需要的程序引用了。复制到自己方便的位置,就可以被需要的程序引用了。