[分享]类和枚举应用一例

三戒

类和枚举应用一例 40MF2uqc.rar (9.37 KB, 下载次数: 200)

2007-10-20 12:59 上传

点击文件名下载附件
[分享]类和枚举

Option Explicit

Enum clsColor
  黄色
  绿色
  蓝色
  红色
End Enum
 
Private 颜色值 As clsColor

Public Property Get 气球的颜色() As clsColor
  气球的颜色 = 颜色值
End Property

Public Property Let 气球的颜色(你设置的颜色 As clsColor)
  颜色值 = 你设置的颜色
End Property

Sub 扎破气球()
  Beep
  MsgBox "气球已经被扎破", vbInformation, "类和枚举的例子"
End Sub

[此贴子已经被作者于2007-10-20 13:02:02编辑过]

中原一布衣

有意思！对初学者还是有帮助的。