Visual Basic 中的自定义的类

来源：用户分享时间：2025/6/4 18:59:15 本文由

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

在 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 可以查询此库下的所有类及它的方法，属性（它是一个文件系统库，它之下有文件系统对象，文件夹对象，文件对象等，各司其职，分工明确，方便使用）

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

搜索更多关于： Visual Basic 中的自定义的类的文档

Visual Basic 中的自定义的类.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c02atv7utwu9pg7y7h9xv_3.html（转载请注明文章来源）