VBS 2D динамический массив не работает в VB6

Question

Я конвертирую VBS код на VB6. Большая часть упражнений является копирование и вставка дело, для этой функции, за исключением,

Public Function TestMe() 

    Dim RowCount: RowCount = -1 
    Dim FieldCount: FieldCount = -1 
    ReDim ANames(RowCount, FieldCount) 
    MsgBox UBound(ANames) 

End Function 

Код отлично компилируется в VBS. Однако я получаю другой результат, когда я использую эту функцию в VB6.

В VBS это показывает сообщение -1

В VB6 это показывает сообщение Подстрочный вне диапазона

Почему это и как я могу преобразовать это VB6?

Answer 1

В VBScript Redimming массив, чтобы его UBound равнялся -1, является способом пометить массив пустым массивом. В VB6 возможны отрицательные оценки, но верхние границы должны быть> = нижние границы. Рассмотрим следующий пример:

Public Function TestMe() 

    Dim RowCount: RowCount = -1 
    Dim FieldCount: FieldCount = -1 
    ReDim ANames(-2 To RowCount, -2 To FieldCount) 
    ANames(-1, -1) = "Hi" 
    MsgBox ANames(-1, -1) 

End Function 

В VB6, это работает без сучка и задоринки, выскакивают «Привет», как и ожидалось.

Насколько обходной путь, если ANames является переменной массива, вы можете просто использовать

Erase ANames 

Вместо вашего ReDim. Аналогично, если ANames является переменной варианта (но не переменной массива), просто назначьте ей Empty.