Константы перечисления как индексы массива в VB6

Question

Я определяю перечисление, которое может в конечном итоге использоваться в качестве нижнего индекса массива, как это ...

Public Enum MY_ENUM
    THIS_ENUM_VALUE = 1
    THAT_ENUM_VALUE
    THE_OTHER_ENUM_VALUE
    MAXIMUM_ENUM_VALUE = THE_OTHER_ENUM_VALUE
End Enum

Теория состоит в том, что любой, добавляющий другое перечисление, исправит максимальное значение перечисления и любой массив, определенный как

Dim my_array(MAXIMUM_ENUM_VALUE) As Integer

будет увеличено по мере необходимости.

Мой вопрос: должен ли я это делать, а если нет, что бы вы предложили?

Answer 1

Обратите внимание, что в VB6 также довольно типично использовать "скрытые значения перечисления", например:

Public Enum MY_ENUM
    THIS_ENUM_VALUE = 1
    THAT_ENUM_VALUE
    THE_OTHER_ENUM_VALUE
    [_first] = THIS_ENUM_VALUE 
    [_last] = THE_OTHER_ENUM_VALUE
End Enum

Вы можете комбинировать это с другими предложениями:

Public Enum MY_ENUM
    [_first]
    THIS_ENUM_VALUE
    THAT_ENUM_VALUE
    THE_OTHER_ENUM_VALUE
    [_last]
End Enum

Dim MyArray(MY_ENUM.[_first] To MY_ENUM.[_last]) As MY_ENUM

Answer 2

Я думаю, что это путь.Если вы делаете так, как вы наметили, перечисление может быть расширено без нарушения кода.

Единственное, что я вижу, что нужно сделать, это сообщить другим, кто использует ваш код, для объявления массивов на основе перечисленияиспользуйте MAXIMUM_ENUM_VALUE вместо добавленного ими значения перечисления (в данном случае THE_OTHER_ENUM_VALUE).

Answer 3

Практика заключается в том, что мы используем декларации, такие как

Public Enum MY_ENUM
    THIS_ENUM_VALUE = 1
    THAT_ENUM_VALUE
    THE_OTHER_ENUM_VALUE
    MAXIMUM_ENUM_VALUE
End Enum

и вам даже не нужно редактировать последнюю декларацию :) Конечно, у вас есть массивы на один элемент длиннее, чем нужно, но имхо, это не большая проблема.