[兰色原创]枚举(Enum)语句应用小示例

兰色幻想

你了解下面的语句的含义和作用吗?

Public Enum 窗体背景色
    浅绿 = &HC0FFC0
    草绿 = &H80FF80
    深绿 = &H8000&
    墨绿 = &H4000&
    浅黄 = &HC0FFFF
    土黄 = &HC0C0&
End Enum

其实,上面是一个枚举语句。是设置不同的颜色值，它有什么用处呢？

    假若我的一个程序中，需要在多处引用固定颜色值，可以使用的颜色有浅绿、草绿、深绿、墨绿、浅黄、和土黄六种颜色。由于颜色的代码很难记住，对引用颜色带来了麻烦。另外我还想达到另一个效果，当需要设置颜色值时，输入=就可以得到一个由“颜色”文字构成的信息列表。通过上面的枚举语句就可以产生如下图所示的颜色信息列表。

[兰色原创]枚举(Enum)语句应用小示例

设置变量的颜色后，就可以引用它作为窗体的背景色。如下图所示。

[兰色原创]枚举(Enum)语句应用小示例

hhzjxss

沙发！兰版新年快乐！

 

Enum 语句倒是第一次看过，学习中......

[此贴子已经被作者于2008-2-10 21:51:16编辑过]

hhzjxss

照着做了了一个示例，传上来看看！

 

dbNqABeI.rar (56.23 KB, 下载次数: 20)

2008-2-10 22:11 上传

点击文件名下载附件
[兰色原创]枚举(Enum)语句应用小示例

兰色幻想

改进一下，　设置模块级变量就可以了．   

 Dim yaishe As 窗体背景色
Private Sub UserForm_Initialize()
    yaishe = 草绿
    Me.BackColor = yaishe
End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    yaishe = 深绿
    Me.BackColor = yaishe
End Sub

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    yaishe = 草绿
    Me.BackColor = yaishe
End Sub

lllllllll

大家新年好！！！！！！！！！！！！！！！

学习学习[em01]

lllllllll

这么说汉字"窗体背景色'也是一种变量类型？

lllllllll

哦 Enum 是这么个意思[em01]

uranus1997

哇，兰版发帖子了，来学习了[em23]

hhzjxss

QUOTE:

以下是引用兰色幻想在2008-2-10 22:19:00的发言：

改进一下，　设置模块级变量就可以了．   

 Dim yaishe As 窗体背景色

谢谢兰版，又省了两句，为节约型社会贡献一点点！

hhzjxss

QUOTE:

以下是引用lllllllll在2008-2-10 22:27:00的发言：
这么说汉字"窗体背景色'也是一种变量类型？

大概是自定义是意思吧，你要设置成“lllllllll”应该也行的吧！