| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 786 人关注过本帖
标题:关于":="符号问题
取消只看楼主 加入收藏
sclangman
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-7-23
收藏
 问题点数:0 回复次数:3 
关于":="符号问题
请问:在集合对象中的add方法中的before或after参数中,如果要 "before""after"关键字,为什么要写成before:=n或after:=n,而不能直接写成"before=n"或"after=n",那个":="是什么意思?


搜索更多相关主题的帖子: 符号 add 参数 对象 关键 
2007-08-25 12:41
sclangman
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-7-23
收藏
得分:0 

本示例使用 Add 方法将 Inst 对象(类 Class1 之示例,其中包含 Public 变量 InstanceName )加到 MyClasses 集合对象中。若要观察程序的运作,插入一个类模块,并在 Class1 的模块级中声明公用变量 InstanceName(键入 Public InstanceName)来保存每个示例的名称。类名就用缺省的 Class1。将下列代码复制与粘贴到某个窗体模块的 Form_Load 事件过程中。


Dim MyClasses As New Collection ' 建立集合对象。
Dim Num As Integer ' 定义计数变量。
Dim Msg
Dim TheName ' 用来保存用户指定的名称的变量。
Do
Dim Inst As New Class1 ' 建立 Class1 的新示例。
Num = Num + 1 ' 将计数变量加一,并让用户输入名称。
Msg = "Please enter a name for this object." & Chr(13) _
& "Press Cancel to see names in collection."
TheName = InputBox(Msg, "Name the Collection Items")
Inst.InstanceName = TheName ' 将输入的名称存到对象的示例中。
' 如果名称不是空字符串,则将该示例加到集合对象中。
If Inst.InstanceName <> "" Then
' 将该示例加到集合对象中。
MyClasses.Add item := Inst, key := CStr(Num)
End If
' 清除对当前示例的引用,以准备下一个。
Set Inst = Nothing
Loop Until TheName = ""
For Each x In MyClasses
MsgBox x.instancename, , "Instance Name"
Next

2007-08-25 14:58
sclangman
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-7-23
收藏
得分:0 
那个":="是什么意思?
2007-08-25 15:00
sclangman
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-7-23
收藏
得分:0 

多谢啦!

2007-08-25 18:47
快速回复:关于":="符号问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025376 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved