| Asp组件初级入门与精通 |
|
作者：龙卷风.NET 文章来源：csdn.net 更新时间：2006-4-22 22:53:20  |
|
【声明：转载此信息在于传递更多信息，其内容表达的观点并不代表本站立场，由这些信息所产生的一切后果本站不负任何责任。如果您对本信息有什么意见，欢迎和本站联系，谢谢！】http://CiDu.Net
如何使用属性
打开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
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
声明：以上信息资料大都是网上搜集而来，版权归作者，如有版权问题请留言告知我将马上改正。
文中所提到的各种观点只是原文观点，各种说法未经一一确认。并不代表本站认可此观点！！
|
| 资讯录入：admin 责任编辑：admin |
|
上一篇资讯： 使用组件封装数据库操作
下一篇资讯： Asp组件中级入门与精通系列 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
登录 
注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
