|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时. 若何利用属性
翻开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
未完待续
</p> 问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时. |
|