从VB6

Question

我定义了一些全局常量：

'Reason Codes'
 Global Const MQRC_NONE = 0
 Global Const MQRC_APPL_FIRST = 900
 Global Const MQRC_APPL_LAST = 999

现在我想从VB6的值中获取常量名称。

是否可能，我知道它可以在.Net和Java中完成。不确定vb6。

Answer 1

使用select语句。我不喜欢这个解决方案，但至少你可以用它完成任务。

    Select Case constantValue
            Case MQRC_NONE 
                 result = "MQRC_NONE"
            Case MQRC_APPL_FIRST
                 result = "MQRC_APPL_FIRST"
            Case MQRC_APPL_LAST
                 result = "MQRC_APPL_LAST"
            Case Else
                 result = "N/A"
    End Select

如果您可以控制常量值，则使它们的范围为0,1,2。然后，您可以根据此常量索引索引另一个等效常量字符串数组。