浅谈VB6中的自定义类的使用.pdf

浅谈 VB6 中的自定义类的使用 PS:除非特别声明，本文所说 VB 指的是 VB6 ，而非 VB.NET 。 大家都知道， VB 是一种半面向对象（也有人 称之为“伪面向对象” ）的语言，他虽然可以写自定义的类， 但是由于种种原因，使得他在这方面的发育产生了一点问 题，比如说：VB 写出来的类是不能继承的 （不孕不育?!-_-#... 传说 VB 的偶像是东方不败……残念 -_-#! ），你无法像在 C++/C#/JAVA== 中一样自由的使用类。你很难想象类没有继 承会有啥用途。 还有， 在 VB 中，一个类模块只能写一个类， 这意味着如果你的 Project 中使用了 N 个类，你必须忍受它 带着 N 个类模块文件， 甚至其中有些只是小小小类。 这些都 造成 VB 的类的可用性和重用性不佳。 但是， VB 是否在类的方面就这么无能呢？答案是否定 的，在很多时候（特别是需要将很多功能封装，形成模块化 的时候），VB 的自定义类还是能派上用场的。 这里， 有人可 能会想到使用 ActiveX 控件，虽然在 VB 中，可以使用 ActiveX 控件做到上述功能， 但是写 ActiveX 控件要比写类麻烦得多， 而且 ActiveX 控件的资源占用也要比类大。当然，如果你只 想去往上搜搜 ActiveX 控件，然后拼成一个程序的话，我完 全可以对你说： “原谅我浪费了你的生命！ ” 那么接下来， 我们就已 Animal 为主题讲讲在 VB6 中写自定义类的方法 ~ 成员函数和成员变量 首先，我们需要添加一个类模块， 然后将它的名称改成 Animal ，那么，这个类的名字就是 Animal 。然后再写入下列代码： 引用 : Private m_strName As String, m_bytLegs As Byte, m_blnBark As BooleanPublic Sub SetAnimalName(ByVal strName As String) m_strName = strName /// 设置 Animal 的名字 End SubPublic Function GetAnimalName() As String GetAnimalName = m_strName /// 返回 Animal 的名 字 End FunctionPublic Sub SetLegs(ByVal bytLegs As Byte) m_bytLegs = bytLegs /// 设置 Animal 的腿数 End SubPublic Function GetLegs() As Byte GetLegs = m_bytLegs /// 返回 Animal 的腿数 End FunctionPublic Sub SetBark(ByVal blnBark As Boolean) m_blnBark = blnBark /// 设置 Animal 是否 会叫 End SubPublic Function GetBark() As Boolean GetBark = m_blnBark /// 返回 Animal 是否会叫 End Fun