CreateTestArray

CreateTestArray ( Function )

Метод: CreateTestArray - Создать тестовый массив данных. VARTYPE аналочина SafeArrayCreate из Win32 API.

Синтаксис:

objectvariable.CreateTestArray( VarType, Bounds )

где

objectvariable - IScriptHelper

VarType: Long - Тип значений. Описание аналогично вызову SafeArrayCreate из Win32 API.

Bounds: Variant - Массив границ тестового массива.

Возвращает: Variant

Пример на скриптах:

Sub Test1
  A = ScriptHelper.CreateTestArray( 3, Array( 10, 10 ) )
  Call TCSApp.ShowMessageBox( "", "LBound=" + CStr(LBound(A)) + " UBound=" + CStr(UBound(A) ) )
  'The code below raise Error : "Несоответствие типа: 'A'  Ошибка выполнения Microsoft VBScript"
  'B = A(5,5) 
  AA = ScriptHelper.ConvertArray( A )
  B = AA( 5, 5 )
  Call TCSApp.ShowMessageBox( "", "Value=" + CStr( B ) )
End Sub