 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
如何使用属性 打开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 返回类别: 教程 上一教程: 用ASP创建日志文件(附源程序) 下一教程: ASP会话功能具体解释 您可以阅读与"ASP组件初级入门与精通系列之三"相关的教程: · ASP组件初级入门与精通系列之六 · ASP组件初级入门与精通系列之五 · ASP组件初级入门与精通系列之四 · ASP组件初级入门与精通系列之七 · Asp组件初级入门与精通系列之二 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
