如何获得枚举的名称，比如adDouble

jamesfay 2005-11-01 08:52:12

我已知一个枚举类型的数值，如何反溯出它对应的名称，比如：
adDouble
adGUID
adInteger

目前能想到的就是select case去一个一个推出来

...全文

245 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

上官云峰 2005-11-02

打赏
举报

狂晕，都不知道到底想干什么，怎么帮你实现啊

faysky2 2005-11-01

打赏
举报

楼主想做什么呀

northwolves 2005-11-01

打赏
举报

Function gettype(ByVal index As Integer) As String
On Error Resume Next
gettype = "The God know it!"
Dim types As New Collection
types.Add "adBigInt", "x20"
types.Add "adEmpty", "x0"
types.Add "adSmallInt", "x2"
types.Add "adInteger", "x3"
types.Add "adSingle", "x4"
types.Add "adDouble", "x5"
types.Add "adCurrency", "x6"
types.Add "adDate", "x7"
types.Add "adBSTR", "x8"
types.Add "adIDispatch", "x9"
types.Add "adError", "x10"
types.Add "adBoolean", "x11"
types.Add "adVariant", "x12"
types.Add "adIUnknown", "x13"
types.Add "adDecimal", "x14"
types.Add "adTinyInt", "x16"
types.Add "adUnsignedTinyInt", "x17"
types.Add "adUnsignedSmallInt", "x18"
types.Add "adUnsignedInt", "x19"
types.Add "adUnsignedBigInt", "x21"
types.Add "adFileTime", "x64"
types.Add "adGUID", "x72"
types.Add "adBinary", "x128"
types.Add "adChar", "x129"
types.Add "adWChar", "x130"
types.Add "adNumeric", "x131"
types.Add "adUserDefined", "x132"
types.Add "adDBDate", "x133"
types.Add "adDBTime", "x134"
types.Add "adDBTimeStamp", "x135"
types.Add "adChapter", "x136"
types.Add "adDBFileTime", "x137"
types.Add "adPropVariant", "x138"
types.Add "adVarNumeric", "x139"
types.Add "adVarChar", "x200"
types.Add "adLongVarChar", "x201"
types.Add "adVarWChar", "x202"
types.Add "adLongVarWChar", "x203"
types.Add "adVarBinary", "x204"
types.Add "adLongVarBinary", "x205"

If types("x" & index) > "" Then gettype = types("x" & index)

End Function