一直以来想写一些组件方面的应用这段时间终于可以写一点自己喜欢的东西
希望大家通过这些教程学习后可以随心所欲的写出自己的组件
每篇文章可能没有关联只是写一些组件编写过程中出现的问题
欢迎大家批评指正
环境:winxp+vb+sp+visual interdev
作为第一篇我们先来写一个比较简单的组件
完成的功能是:输入两个数相加返回相加的结果
打开vb新建Activex Dll工程工程名修改为fCom类名修改为fC
点击菜单>工具>添加过程
我们在名称内输入Add类型选择函数范围选择公有然后确定即可
生成如下代码我们继续完善
Option Explicit
Public Function Add(ByVal a As Long ByVal b As Long) As Long
Add = a + b
End Function
Ok一个简单的组件就写好了点击菜单>文件>生成fComdll文件
确定在目录下就会有fComdll文件
测试
打开visual interdev生成一个asp文件为什么要使用interdev因为它有代码提示功能与vb的ide环境一致方便书写
<%@ Language=VBScript %>
GENERATOR Content=Microsoft Visual Studio >
<%
set obj=serverCreateObject(fComfC)
下面这句注意了因为函数有返回值的不能按下面的方法写否则ie中会报错
objAdd()
错误类型
Microsoft VBScript 编译器错误 (xA)
调用子程序时不能使用括号
/xml/fcasp line column
objAdd()
下面是正确写法
dim c
c=objAdd()
ResponseWrite c
%>
配置好虚拟目录在ie中执行此asp文件得到结果
