7486
社区成员
- 全部
set引用一个自定义变量出错：需要对象（错误 424）
代码如下：
Private Type AnimSurf
.....
End Type
Private Type Script
abc() as AnimSurf
.....
End Type
Dim a() as Script
Static NowAnimSurf as AnimSurf
Set NowAnimSurf = a(i).abc(j)
这句set出错，有什么办法解决么？
我想直接用一个变量引用abc(j)，这样增加可读性。
我可不想写a(xxxxxx).abc(xxxx).xxxxx这种超长代码啊。。。
谢谢各位了。
Private Type AnimSurf
.....
End Type
Private Type Script
abc() as AnimSurf
.....
End Type
Dim a() as Script
Static NowAnimSurf as AnimSurf
Set NowAnimSurf = a(i).abc(j)
这句set出错，有什么办法解决么？
我想直接用一个变量引用abc(j)，这样增加可读性。
我可不想写a(xxxxxx).abc(xxxx).xxxxx这种超长代码啊。。。
谢谢各位了。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
Herro 2003-12-21
我想要引用这个自定义类型变量，就像指针一样，这样以后方便许多。。
看来没办法，只能用with了。。-.-
看来没办法，只能用with了。。-.-
rainstormmaster 2003-12-21
先看看set语句的说明：
Set 语句
描述
将对象引用赋给变量或属性。
语法
Set objectvar = {objectexpression | Nothing}
Set 语句的语法包含以下部分：
部分 描述
objectvar 变量或属性的名称，遵循标准变量命名约定。
objectexpression 由对象名称、另一个已声明为相同对象类型的变量或返回相同对象类型的对象的函数或方法组成的表达式。
Nothing 停止 objectvar 与任何指定对象的关联。当没有其他变量引用 objectvar 原来所引用的对象时，如将其赋为 Nothing 会释放与该对象所关联的所有系统和内存资源。
说明
为确保有效，objectvar 必须与所赋对象的类型一致。
Dim、Private、Public 或 ReDim 语句只声明了引用对象的变量。只有使用 Set 语句将指定对象赋予该变量后，才能引用实际的对象。
通常，当使用 Set 将一个对象引用赋给变量时，并不是为变量创建对象的副本，而是创建对象的引用。可有多个对象变量引用同一个对象。因为这些变量是对象引用（不是副本），所以对对象所作的任何改动都会影响所有引用该对象的变量。
而很明显，你使用的是自定义类型的变量（数组），不是对象，不应该使用set语句
把你代码中的set去掉，或者使用let代替set应该就可以了
另外
Private Type Script
abc() as AnimSurf
.....
End Type
你的Type Script定义的abc是个动态数组，在初始化时要小心一些，最好定义成静态数组，像这样：
Private Type Script
abc(10) as AnimSurf
.....
End Type
Set 语句
描述
将对象引用赋给变量或属性。
语法
Set objectvar = {objectexpression | Nothing}
Set 语句的语法包含以下部分：
部分 描述
objectvar 变量或属性的名称，遵循标准变量命名约定。
objectexpression 由对象名称、另一个已声明为相同对象类型的变量或返回相同对象类型的对象的函数或方法组成的表达式。
Nothing 停止 objectvar 与任何指定对象的关联。当没有其他变量引用 objectvar 原来所引用的对象时，如将其赋为 Nothing 会释放与该对象所关联的所有系统和内存资源。
说明
为确保有效，objectvar 必须与所赋对象的类型一致。
Dim、Private、Public 或 ReDim 语句只声明了引用对象的变量。只有使用 Set 语句将指定对象赋予该变量后，才能引用实际的对象。
通常，当使用 Set 将一个对象引用赋给变量时，并不是为变量创建对象的副本，而是创建对象的引用。可有多个对象变量引用同一个对象。因为这些变量是对象引用（不是副本），所以对对象所作的任何改动都会影响所有引用该对象的变量。
而很明显，你使用的是自定义类型的变量（数组），不是对象，不应该使用set语句
把你代码中的set去掉，或者使用let代替set应该就可以了
另外
Private Type Script
abc() as AnimSurf
.....
End Type
你的Type Script定义的abc是个动态数组，在初始化时要小心一些，最好定义成静态数组，像这样：
Private Type Script
abc(10) as AnimSurf
.....
End Type
byj2001329 2003-12-21
我想你定义的不是类，只是自定义类型，
用NowAnimSurf = a(i).abc(j) 就可以了
用NowAnimSurf = a(i).abc(j) 就可以了
SoHo_Andy 2003-12-21
用
with
end with
语句即可
如
with a(xxxxxx).abc(xxxx)
.xxxxx=""
end with
with
end with
语句即可
如
with a(xxxxxx).abc(xxxx)
.xxxxx=""
end with
OpenGL 课程涵盖了OpenGL开发的方方面面,对开发中经常用到的开发知识点进行讲解,从实战的角度进行编码设计.
第1章-环境建立
第2章-基础图元
第3章-三维世界
第4章-纹理多彩世界
第5章-显存的分配-优化
第6章-场景控制
第7章-光照-真实世界
第8章-模型
第9章-UI制作
第10章-场景编辑器制作
第11章-地形
第12章-脚本引入-lua 教程从最最本的固定管线开始,一节课一个知识点,从实战的角度出发,结合项目开发中经常用到的知识点作深入的讲解,以面向对象的编成方式对知识点进行封装,可以直接引入到项目中使用.通过课程的学习,掌握OpenGL图形编程技巧,并能学以致用.
vue-devtools chrome 插件 chrome（谷歌浏览器）vue代码调试插件， 已打包。解压后，通过chrome扩展程序加载即可使用。
使用方法：
1、chrome浏览器输入地址“chrome://extensions/”进入扩展程序页面
2、勾选开发者模式
3、点击“加载已解压的扩展程序...”按钮，选择解压后的chrome文件夹，即可添加成功。
4、添加完vue-devtools扩展程序之后，我们在调试vue应用的时候，ch
rome开发者工具中会看一个vue的一栏，点击之后就可以看见当前页面vue对象的一些信息
Hibernate4视频教程_全面来袭 本Java视频教程基于 Hibernate4.x 录制。内容涵盖安装 Hibernatetools 插件、Session 核心方法、持久化对象生命周期、对象关系映射（1-n、1-1、n-n、继承映射）、检索策略、检索方式（对象导航图、OID 检索、HQL、QBC、本地SQL）、Hibernate 一\二级缓存、管理 Session、批量处理等 Hibernate 企业级开发的核心技术。 本Java视频教程将帮助掌握学习者编写出具有合理的软件架构，以及好的运行性能和并发性能的实用 Hibernate 应用。Java视频教程内容注重理论与实践相结合，列举大量具典型性和实用价值的 Hibernate应用实例，并提供详细的开发和部署步骤。
Surface Acoustic Wave Devices in Telecommunications Surface Acoustic Wave Devices in Telecommunications
掌握JQuery视频教程 JQuery是一个优秀的JavaScript库。它是轻量级的JS库 ，它兼容CSS3，还兼容各种浏览器（IE 6.0+, FF 1.5+, Safari 2.0+, Opera 9.0+）,是我们编写JavaScript的利器！
适合对象：
需要大量编写JavaScript的朋友
学习条件：
必须掌握HTML、CSS、JavaScript、dom
大规模病毒爆发预案(样稿090408) 病毒预案有很多，大多没有具体的方法和步骤，本人参考多篇预案，并结合实际进行的分类处理。希望能对有需求的同仁些许帮助
针对局域网内的可能的大规模病毒爆发，导致面积性故障的病毒，给出预案的样稿
1、arp
2、聊天软件
3、系统软件漏洞
