CoolButton_类模块学习范例

button

近期论坛中研究界面美化的帖子不少，其中基本上都涉及到了个性化按钮的这个共同问题，于是写了一个通用一点的CCoolButton类，是对Label+Image模拟不同类型的个性化按钮的一个总结，对于ldhyob斑竹的超酷圆形按钮和foshan近期热衷研究的个性化按钮都可以适用（见上传示例）。

另外，由于本论坛关于类模块的方面的帖子和文章比较少，我也在摸索学习，写的这个类着重让大家理解类的构成和封装的特点（一个独立的类与外部是如何接口的），公开的代码中加了些重要的注释，便于大家理解。

由于我对类模块的理解也是一知半解，难免有错误和疏漏之处，希望大家能多提出宝贵意见。

（已更新）

fzHIYqrw.rar (28.88 KB, 下载次数: 1982)

2005-8-17 14:39 上传

点击文件名下载附件
CoolButton_类模块学习范例

[此贴子已经被作者于2005-8-17 14:39:34编辑过]

ykk

button版主又出精品，收下了，谢谢。

来生缘

呵呵,最近ldhyob版版和button版版这两个超级大国开始开展军备竞赛了嘛,只可益了我们这些弹丸小国了,哈哈,玩笑玩笑

收藏先,再建议加精华

plxmm

好东东。先瞧瞧呢。

stanleypan

Button兄，好代码，建议加精。 最近对VBE的编程有没有什么研究呀。

button

VBE编程方面还要向Stanleypan兄学习，我是长进不多呀。

想过做VBE环境里的代码库，只是时间和精力有限，如果Stanleypan兄感兴趣并且又时间充裕，不妨给大家做个这方面的精品工具如何！

foshan

Button 兄：上午从 asdf1001 兄 学习到的一个方法，在 UserForm1 窗体的代码中，将退出窗体时释放动态数组 CoolButtons() 所使用的内存的代码修改一下，是否会更好一点？

Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To UBound(CoolButtons) Set CoolButtons(i) = Nothing Next Unload Me End Sub

改成

Private Sub CommandButton1_Click() Erase CoolButtons '释放动态数组 CoolButtons() 所使用的内存 Unload Me End Sub

[此贴子已经被作者于2005-8-17 14:29:20编辑过]

button

的确如此，谢谢提示，楼已更新！

[此贴子已经被作者于2005-8-17 14:40:04编辑过]

foshan

Public WithEvents CoolButton As MSForms.Label '定义触发事件CoolButton变量 Public WithEvents Parent As MSForms.UserForm '定义触发事件的父窗体变量

上述两句代码的作用，也可参考一下 slhenry 以前的一个解释。

以下是引用slhenry在2003-8-27 15:27:00的发言： 以下是引述高人的解释 Public WithEvents ButtonGroup As MSForms.TextBox '宣告物件變數 ButtonGroup 用來對應 ActiveX 物件所引發的事件,而MSForms.TextBox就是表示是ActiveX物件中的TextBox物件 '意思也就是說 ButtonGroup 會對應 Form中的TextBox所引發的所有事件

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

jobubu

好东西,心喜,下载先~~~