Visual Basic 中的自定义的类

在 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 & \End Sub

Private Sub XiaoHong_RunOk()

Text1.Text = Text1.Text & \End Sub

Private Sub XiaoMing_RunOk()

Text1.Text = Text1.Text & \End Sub

运行，改变他们的跑步速度再运行看看效果

使用类的特点：

单独享用各自的属性，方法，事件

归类明确 如

工程?引用?选择Microsoft Scripting Runtime

然后在 视图?对象浏览器?所有库下拉列表中的Scripting 可以查询此库下的所有类及它的方法，属性（它是一个文件系统库，它之下有文件系统对象，文件夹对象，文件对象等，各司其职，分工明确，方便使用）

为类在对象浏览器中的说明: