如何使用属性
　　
　　打开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环境一致，方便书写
　　
　　
　　<%@ Language=VBScript %>
　　
　　
　　
　　
　　
　　<%
　　
　　set obj=server.CreateObject("fCom.fC2")
　　
　　dim c
　　
　　'这里调用的是组件的Let属性
　　
　　obj.myName ="龙卷风"
　　
　　obj.Age =20
　　
　　c=obj.peopleInfo()
　　
　　Response.Write c
　　
　　'这里调用的是组件的Get属性
　　
　　Response.Write "
"
　　
　　Response.Write obj.myName
　　
　　Response.Write "
"
　　
　　Response.Write obj.Age
　　
　　%>
　　
　　
　　
　　
　　
　　配置好虚拟目录，在ie中执行此asp文件，得到结果如下:
　　姓名: 龙卷风 年龄:20
　　龙卷风
　　20