如何使用属性
打开 vb6, 新建 Activex Dll 工程。工程名修改为 fCom, 类名修改为 fC2
点击菜单 -> 工具 -> 添加过程
我们在名称内输入 myName, 类型选择属性,范围选择公有,然后确定
再次操作 : 在名称内输入 Age, 类型选择属性,范围选择公有,然后确定
再次操作 : 在名称内输入 peopleInfo, 类型选择函数,范围选择公有,然后确定即可
代码如下 :
Option Explicit
' 保持属性值的局部变量 , 只能在类中使用
Private mvarmyName As String
Private mvarAge As Integer
‘Let 写属性 (Let 属性 : 该过程给一个属性赋值。 )
Public Property Let Age(ByVal vData As Integer)
mvarAge = vData
End Property
‘Get 读属性 ( 该过程获取一个属性的值。 )
Public Property Get Age() As Integer
Age = mvarAge
End Property
Public Property Let myName(ByVal vData As String)
mvarmyName = vData
End Property
Public Property Get myName() As String
myName = mvarmyName
End Property
Public Function peopleInfo() As String
peopleInfo = " 姓名 : " & mvarmyName & " 年龄 :" & mvarAge
End Function
Ok, 一个简单的组件就写好了,点击菜单 -> 文件 -> 生成 fCom.dll 文件
确定,在目录下就会有 fCom.dll 文件
测试
打开 visual interdev6.0, 生成一个 asp 文件,为什么要使用 interdev, 因为它有代码提示功能,与 vb 的 ide 环境一致,方便书写
1@ Language=VBScript
1<html>
2<body>
set obj=server.CreateObject("fCom.fC2")
dim c
' 这里调用的是组件的 Let 属性
obj.myName =" 龙卷风 "
obj.Age =20
c=obj.peopleInfo()
Response.Write c
' 这里调用的是组件的 Get 属性
Response.Write "<br/>"
Response.Write obj.myName
Response.Write "<br/>"
Response.Write obj.Age
1
2</body>
3</html>
配置好虚拟目录,在 ie 中执行此 asp 文件,得到结果如下 :
姓名 : 龙卷风 年龄 :20
龙卷风
20
未完待续