Visual Basic 中的自定义的类.docVIP

Visual Basic 中的自定义的类 认识类: VB中的类：打开VB6.0(视图(对象浏览器(选择所要库下拉框下的你新建的工程1(此时可以查看VB6.0自动帮你生成的窗体类如图：提高 类的事件：如窗体的加载事件（Load） 生活中的类：如 人类：很显然人类这个概念没有指某一个人，世界有很多人，但人类这个抽象概念只有一个。属性对于人类来说如，年龄，姓名等等；方法对于人类来说如，走，打，踢等等；事件对于人来说如，你去上学，你偷吃东西（事件往往是用来描述一件事发生了）等等 自定义类： 新建类： （不要奇怪，我把编辑器的背景的白色换成黑色而已） 人类的第一个人对象（类对象） 此时的人类，我们没有说明有什么属性，方法，会触发什么事件等等 属性的认识： 添加年龄属性 这里有两条，一条为Let，一条为Get， 他们在不同的情况下被调用， 调用Let 时，输入的值会被保存到”mvar年龄” (这个变量当然可以自定义)，调用 Get 会把”mvar年龄”作为返回值，如果删除Get 这一条，该属性变为只写属性，如果删除Let 保留Get 就变成只读属性，比如人的血型从出生之后就不会改变，这样的属性应定义为只读属性 公开变量（特殊的属性） 如添加 “考试成绩” 公开变量(这里用考试成绩描述人类是不恰当的，这里只是用来与属性做一下比较) 它与Let 与 Get 组成的属性的区别：属性可以可以设置成只读或只写，除此之外，它可以在被调用时做一些处理 如： 方法： 平时定义的函数，过程 放到类里面就是这个类的方法，方法就好想人的一个动作，如 人类的吃东西 事件： 事件是对一件事情的描述，所有它并不对这件事直接处理，只是告诉外部调用者用这件事情发生了 如 吃饱了 这件事 简单实用类对象完成几个学生跑步： 添加一个类（clsStudent） 在此类代码中写入下面的代码 Option Explicit Public Name As String 名字 Public RunV As Single 跑步的速度 Public RunL As Single 已经跑的距离 Public Event RunOk() 跑完事件 Private RunOkFlag As Boolean 跑完标记 Public Sub Run() 跑步 If RunOkFlag = True Then Exit Sub 跑完不用再跑了 RunL = RunL + RunV If RunL = 300 Then 如果跑了超过这个值，表示跑完了，触发跑完事件，并做标记（不用再跑了) RunOkFlag = True RaiseEvent RunOk End If End Sub 设计Form1窗体 在 Form1中写入这些代码 Option Explicit Dim WithEvents XiaoMing As clsStudent Dim WithEvents XiaoHong As clsStudent Dim WithEvents XiaoFang As clsStudent Private Sub Command1_Click() Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Form_Load() Set XiaoMing = New clsStudent Set XiaoHong = New clsStudent Set XiaoFang = New clsStudent XiaoMing.Name = 小明 XiaoMing.RunV = 20 XiaoHong.Name = 小红 XiaoHong.RunV = 30 XiaoFang.Name = 小芳 XiaoFang.RunV = 40 End Sub Private Sub Timer1_Timer() XiaoMing.Run XiaoHong.Run XiaoFang.Run End Sub Private Sub XiaoFang_RunOk() Text1.Text = Text1.Text XiaoFang.Name End Sub Private Sub XiaoHong_RunOk() Text1.Text = Text1.Text XiaoHong.Name End Sub Private Sub XiaoMing_RunOk()