您的位置：首页 > 编程语言 > ASP

Asp组件初级入门与精通系列之三

2008-04-24 08:25 555 查看

如何使用属性打开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 = vDataEnd Property‘Get读属性(该过程获取一个属性的值。)Public Property Get Age() As Integer Age = mvarAgeEnd Property Public Property Let myName(ByVal vData As String) mvarmyName = vDataEnd Property Public Property Get myName() As String myName = mvarmyNameEnd Property Public Function peopleInfo() As StringpeopleInfo = "姓名: " & mvarmyName & " 年龄:" & mvarAgeEnd 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 =20c=obj.peopleInfo() Response.Write c'这里调用的是组件的Get属性Response.Write "<br>"Response.Write obj.myNameResponse.Write "<br>"Response.Write obj.Age %> </BODY></HTML> 配置好虚拟目录，在ie中执行此Asp文件，得到结果如下:姓名: 龙卷风年龄:20
龙卷风
20 未完待续

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航