主题：条形码的类型及方向为何不能用变量?

BarCodeType 是一个枚举
c31是一个字符串。
这肯定是不能赋值的嘛。

Dim c31 As BarCodeEnum
Select Case c1.Value
   Case "Code39"
        c31= BarCodeEnum.Code39
   Case "Codabar"
        c31 = BarCodeEnum.Codabar
   '.....
End Select

设置列表项目或者输入的时候，直接用Code39就行，没必要BarCodeEnum.Code39