如何得到一个枚举型变量的成员名?有难度

Question

比如说定义一个变量Dim xx As AlignConstants ,如何得到xx中的成员名:vbAlignBottom、vbAlignLeft、vbAlignNone、vbAlignRight、vbAlignTop
而且把这些成员名以字段串形式显示出来，形如Debug.Print "vbAlignTop"的效果。

Answer 1

自己定义select case解释。因为编译后将不再已这种方式展现，都是0,1的状态，
看不出它的源编码模式。

Answer 2

看一看你的定义：
AlignConstants

Answer 3

如果没对你的要求理解错误，那么我和zhujiechang(小朱)的观点相同。也就是说，如果你相固定的显示某个枚举，那么只能使用select这类语句，如果想得到任何一个枚举的值，那么应该是不可能的。

Answer 4

方案1：
    根据你所感兴趣的所有枚举常量，创建一个数据库表：字段（对应参量，常量名称，值）。然后：
    Set rs = cn.Execute("Select 常量名称,值 From 表1 Where 对应参量='AlignConstants'")
    Do Until rs.EOF
        Debug.Print rs!常量名称 & " = " & rs!值
    Loop方案2：
    在模块中写一个足够长的函数，返回值是一个数组，包含你所需要的名称。函数中用 Select Case
判断输入参数，决定 Redim 数组的大小和填充的内容。

Answer 5

定义一个字符串
private Const bcstrFlag As String = "vbAlignLeft、vbAlignNone、vbAlignRight、vbAlignTop"private Function pvChkEnum(Optional Byval lngIndex As Long ) As  String
   Dim strTemp() As string 
   
   strTemp=Split(bcstrFlag,"、" )   pvChkEnum=strTemp(lngIndex)end Function