<![CDATA[静怡家园]]> http://www.zhanghaijun.com/index.php zh-cn http://www.zhanghaijun.com/post// <![CDATA[Asp组件初级入门与精通系列之三]]> 碟舞飞扬 <webmaster@zhanghaijun.com> Fri, 29 Jun 2007 18:42:50 +0000 http://www.zhanghaijun.com/post//

打开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 %>

<HTML>

<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

%>


</BODY>

</HTML>


配置好虚拟目录，在ie中执行此asp文件，得到结果如下:

姓名: 龙卷风 年龄:20
龙卷风
20


未完待续
]]> http://www.zhanghaijun.com/post//#blogcomment <![CDATA[[评论] Asp组件初级入门与精通系列之三]]> <user@domain.com> Thu, 01 Jan 1970 00:00:00 +0000 http://www.zhanghaijun.com/post//#blogcomment