字符串转换成枚举值

字符串转换成枚举值

public enum eOutputType
    {
        None=0,天才=1
    }

eOutputType tmp = (eOutputType)(Enum.Parse(typeof(eOutputType), "天才");

转载于:https://www.cnblogs.com/ClarkChan/archive/2007/08/26/870365.html

在VBA(Visual Basic for Applications)中,字符串转换为枚举通常涉及到将字符串枚举类型中定义的常量进行比较,以此来获取对应的枚举。不过,VBA本身并不直接支持字符串枚举类型的自动转换,因此,需要编写一些额外的代码来实现这一功能。 一个常见的方法是创建一个函数,该函数遍历枚举类型的所有,并将字符串枚举类型的名称或描述进行匹配。当找到匹配项时,函数返回相应的枚举。下面是一个简单的示例代码,展示了如何实现这样的功能: ```vba ' 假设有一个名为Color的枚举类型 Enum Color Red Green Blue End Enum ' 一个将字符串转换为枚举的函数 Function StringToEnum(ByVal str As String, ByRef enumType As VBA.Type) As Variant Dim member As Variant For Each member In enumType If LCase$(str) = LCase$(member.Name) Then StringToEnum = member.Value Exit Function End If Next member StringToEnum = CVErr(xlErrNA) ' 如果没有找到匹配项,返回错误 End Function ' 使用示例 Dim color As Color color = StringToEnum("Green", Color) Debug.Print color ' 输出 2,因为Green是枚举Color中的第二个 ``` 需要注意的是,上面的代码示例并不完整,因为它无法处理多个单词构成的枚举名称(例如“Bright Red”)。此外,VBA没有直接的方法来自动获取枚举类型,因此上面的函数需要枚举类型名称作为参数,这需要进一步的代码来处理。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值