Question

请大家提供一个简单的带有类模块的例子！

一直不会用类模块，请给详细的代码可以么？非常感谢大家！谢谢
不太明白类模块有什么用，给个特别简单的例子吧，就想看看类模块是怎么个意思。谢谢各位了！
给下类模块中的代码，谢谢

Answer 1

vb6中的类模块没怎么特别的，窗体模块不就是个类模块吗。

你可以从外接程序中加载类生存器，通过它来建立类，生存的代码自己可以看看。

类模块中除了过程，函数外，还会用到属性过程和事件

这是我用类生成器生存的类成员

Public Event click() '这是事件名，

Private mvarcolor As Variant 

Public Property Let color(ByVal vData As Variant) '这是属性过程写入

RaiseEvent click  '这是击活click事件

    mvarcolor = vData

End Property

Public Property Set color(ByVal vData As Variant) '这是属性过程读取

'Syntax: Set x.color = Form1

    Set mvarcolor = vData

End Property

属性过程使用的时候就是用等号对其赋值，就像窗体中的属性使方法一样。

如在外部定义该类的实例（假定该类名是Class1)

dim obj1 as new Class1

Dim WithEvents obj2 As Class1 '这个声明加了WithEvents，表示带事件的，这个对象的就会在编辑窗口右上角的下拉列表框列出它的事件click

Private Sub Form_Load()

Set obj2 = New Class1 '带WithEvents的不能声明时用 new

End Sub

三言两语，说不完，还是看看帮助吧。

Answer 2

不要这么麻烦 直接进拉拉助手 它会教你