[分享]根据 ldhyob 版主的作品模仿了一个窗体界面，请大家批评!

foshan · 发表于 2005-8-17 08:50

以下是引用ldhyob在2005-8-13 20:13:43的发言：
要求在设计时不需要布置标签控件,在代码运行时,由类动态增加或删除.即只要指定图片及文字还有位置即可.想一想,该如何完成?

第二条题目，我的做法见上传的文档，希望 ldhyob 版主指正错误，谢谢!我上传的文档中，存在一个很大的问题：当打开窗体，任意单击一个标签控件，然后关闭窗体，再关闭 Excel ,却不能退出 Excel，查看Windows 任务管理器，显示CPU使用率为100%，如何解决这个问题，请大家帮助解决，谢谢!

Ezj5TN2w.rar (19.96 KB, 下载次数: 11)

[此贴子已经被作者于2005-8-17 8:51:38编辑过]

asdf1001 · 发表于 2005-8-17 09:27

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Erase Mylbl End Sub

foshan · 发表于 2005-8-17 09:51

以下是引用asdf1001在2005-8-17 9:27:30的发言： Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Erase Mylbl End Sub

asdf1001 兄的代码可行。有个问题不明白：为什么我销毁类不能解决不能关闭Excel的问题，而您销毁对象数组就解决这个问题，能说明一下原因吗？谢谢 asdf1001 兄 !

asdf1001 · 发表于 2005-8-17 10:32

在下面的事件中 lbl只是某一个标签,而不是一个集合

Private Sub Class_Terminate() ActLabel = "" Set Lbl = Nothing End Sub

试着注释掉 Erase Mylbl 这一句 mylbl定义大小为1,再看看就清楚了

Dim Mylbl(1 To 1) As New LblClass

Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To 1 Mylbl(i).Attach Me.Controls.Add("Forms.Label.1") Next End Sub

foshan · 发表于 2005-8-17 10:52

明白了，谢谢 asdf1001 兄。Set Lbl = Nothing 只是销毁一个标签控件对象，还有两个标签控件对象未销毁(未释放所占用的内存)。

但是，您在 http://club.excelhome.net/viewthread.php?tid=116291 第4楼给我的文件中，退出窗体时并没有销毁对象数组，为何又能正常关闭 Excel ?

OVMVpPGx.rar (29.45 KB, 下载次数: 37)

[此贴子已经被作者于2005-8-17 11:05:33编辑过]

asdf1001 · 发表于 2005-8-17 15:48

因为在 http://club.excelhome.net/viewthread.php?tid=116291 第4楼的文件中标签控件是窗体设计时添加的，而不是在窗体加载之后通过类添加的。

zhou_yc · 发表于 2005-10-6 10:07

EXCEL的精华呀，学无止境！

york888 · 发表于 2005-10-6 12:48

不错,支持一下!

goldhawk10 · 发表于 2005-12-22 18:19

挺好看的

yinxidu · 发表于 2006-3-27 19:58

一流高手,[em17]

		自动登录	找回密码
密码			免费注册