Excel VBA中类模块编程简单例子

mqcwl

真的很好！！！

小便签

请问哪里有VBA的入门教程啊，想学一起找不到门儿

shumutang

谢谢 清风 我正想学习 类

qinsandai

谢谢，又学了一手。

51082481

清风又奉献了！顶！

收藏下了！

棋士无痕

谢谢,太好了

TGB

想学习的时候终于将它搜到,多谢道长!

ifhwfu

以“清风_II”版主现在的功力，应该可以把代码添加上注释，并写明代码的“意图作用”。否则，（类的）初学者还是很难理解吃透。

附件中的代码并没有什么特殊难懂的地方，只是很难理解“为什么要这样写”？所以，清风_II版主有时间把  “注释” 不上吧。

ifhwfu

QUOTE:

以下是引用清风_ll在2005-3-25 10:49:00的发言：

没想到啊,还能加精华,不过我知道这仅仅是为我鼓励,多谢版主! [em04](不知怎么好象有点压力).因为我也只是刚刚学习类,要写出编写思路和过程还真有点困难(误导大家就不好了)[em12]

添加注释吧。谢谢版主的实例！

ifhwfu

Option Explicit
Private WithEvents Lbl As MSForms.Label
Public Sub Attach(IsLabel As MSForms.Label)
    Set Lbl = IsLabel
End Sub
Private Sub Lbl_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Lbl.ForeColor = RGB(128, 0, 128)
    Lbl.Font.Bold = True
    ActLabel = Lbl.Name
End Sub

 

请问“清风_II”版主：

MSForms  怎么查  “F1”、“F2” 都找不到  MSForms 的说明。

虽然看意思，能猜到是“Microsot 的窗体们” 集合。