搞不懂vb里 的类模块 ？

Question

本帖最后由 a67580276996 于 2011-07-29 20:09:54 编辑

Answer 1

你是一个小作坊主，手下有十来号人帮你干活，如果某天你想要你的员工做一件事，你会喊：“XXX，过来";由于你的经营得当，慢慢地你的小作坊变成了大工厂，手下几千甚至上万人，你还能知道你的哪个员工擅长哪件事吗？或许可以！但你得有多好的记忆力？
怎么办？分类！几个人成一组，几组成一个班，几班成一个部门，这样一来，你是不是轻松多了？至少现在你首先可以知道哪个部门可以干这件事了。
你的员工其实就是函数（过程），如果函数少的话，你咋弄都行，多了？你看着办吧！

Answer 2

其实这只说明了使用类（面向对象）进行程序设计的一个好处，面向对象的程序设计还有其它很多好处，比如代码重用等等。VB6还不是真正地面向对象，所以其它一些好处很难体会，在C++等其它面向对象的语言中，这种体会会更深刻。

Answer 3

楼主，直接搞VB.NET，真正的面向对象，自己去体会吧。

Answer 4

楼上的人都是半身不遂的或是脑残吗？（因为只有废人才说废话）
楼主，我告诉你什么叫类模块，看好了：
    类模块与模块是截然不同的，并不是因为它类似于模块才叫类模块，而是因为每一个类模块都能产生一个类，就是一个对象，他和一个控件很相似，他同样可以有属性，方法，事件，只是他没有图形界面罢了。下面是一个例子。
    新建一个类模块，名称是AAA，在当中加入如下代码：
    
    Dim gKS As Variant    Public Property Get KS() As Variant
    'KS是类对象AAA的一个属性
    '当读取这个属性时就会引发这句注释所在的过程
     KS = gKS
    End Property    Public Property Let KS(ByVal vNewValue As Variant)
    '当通过代码设置这个属性时
     '就会引发这句注释所在的过程。
     'vNewValue是新的属性值
     gKS = vNewValue'通过gKSI变量临时储存新的属性值
    End Property
    
    然后在一个名称为Form1的窗体里加入如下代码：
    
    Private Sub Form_Load()
      Dim A As AAA'声明A是一个AAA对象（类对象）
      Set A = New AAA'将A设定为一个新的AAA对象
       A.KS = 1'写入KS属性
      b = A.KS'读取KS属性
      MsgBox b
    End Sub
    
这就是一个简单的示例，其实类模块多用于设计DLL。他能更规范的管理代码，而且因为他能生成对象，那么我们可以生成多个AAA对象，从而具有不同的KS属性。

Answer 5

你这么激动,你们是准备开战?
认识不同,也没必要NC,NC的吧..这么上火,伤肝哦