首 页 | 精品电影 | 音乐天堂 | 在线游戏 | Flash MTV | 三湘书屋 | 幽默笑话 | 三湘图库 | 美女写真 | IT知识库 | QQ贴图 | 加入书签

｜网页制作｜网络编程｜图形图象｜操作系统｜冲浪宝典｜软件教学｜网络安全｜认证考试｜通信技术｜电子商务｜业内动态｜书籍教程｜原码｜

最近更新 文章分类 多媒体类 精品软件

 本站搜索：
您的位置：三湘时空 -> IT知识库 -> 文章分类 -> VB -> 使用Cleanup方法避免循环引用
使用Cleanup方法避免循环引用


文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真
为了能看看这一方面的范例，可以建立一个标准的EXEVB工程。添加两个类模块，Class1和Class2，在Class1中添加如下的代码：

DimobjClass2AsClass2

PrivateSubClass_Initialize()
Debug.PrintTypeName(Me)&".Initialize"

SetobjClass2=NewClass2
SetobjClass2.Class1=Me
EndSub

PrivateSubClass_Terminate()
SetobjClass2=Nothing
Debug.PrintTypeName(Me)&".Terminate"
EndSub

　　在Class2中添加如下的代码：

DimobjClass1AsClass1

PublicPropertySetClass1(ByRefNewValueAsClass1)
SetobjClass1=NewValue
EndProperty

PrivateSubClass_Initialize()
Debug.PrintTypeName(Me)&".Initialize"
EndSub

PrivateSubClass_Terminate()
SetobjClass1=Nothing
Debug.PrintTypeName(Me)&".Terminate"
EndSub

->

上一篇:用VB测定可移动驱动器是否准备好 下一篇:利用Internet传输控件来使用FTP
本栏目热门文章
·用VB实现象Windows记事本的一些功能 2006-2-28
·DataGrid控件的使用 2006-2-28
·DataCombo和DataList控件的使用二 2006-2-28
·DataGrid控件的使用二 2006-2-28
·利用timeGetTime函数更精准地计算差 2006-2-28
·自己的IE——用VB制作浏览器 2006-2-28
·利用VBScript实现倒计时 2006-2-28
·用Winsock制作一套聊天室和对话系统 2006-2-28
·使用ADO來压缩或修复MicrosoftAccess文件 2006-2-28
·用VB尝试新的界面风格 2006-2-28
新近更新文章
·用VB实现象Windows记事本的一些功能 2006-2-28
·FLIC动画文件的播放程序设计 2006-2-28
·用VB实现浮动按钮 2006-2-28
·利用VB三维面板控件设计流动条 2006-2-28
·用VB制作即时动态按钮 2006-2-28
·用VB尝试新的界面风格 2006-2-28
·VB5.0中实现字体闪烁效果 2006-2-28
·VB5.0应用程序的启动与退出设计 2006-2-28
·用VB5.0创建Windows快捷方式 2006-2-28
·在VB中如何创建闪烁(标语)屏 2006-2-28
首 页 | 软件发布 | 广告联系 | 下载帮助 | 意见反馈 | 网站地图
　 CopyRight? 2002-2004 WWW.SXSKY.NET? All Rights Reserved
三湘时空 站长QQ：82675303 Email: