RunTestFunction

RunTestFunction ( Function )

Метод: RunTestFunction - Тестовая функция, инкрементирущая значение. Данная функция не может быть вызвана в VBScript.

Синтаксис:

objectvariable.RunTestFunction( InValue )

где

objectvariable - IScriptHelper

InValue: Long -

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

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

Sub Test
 A = 1
  'The code below raise Error : "Несоответствие типа: 'ScriptHelper.RunTestFunction'Ошибка выполнения Microsoft VBScript"
 'A = ScriptHelper.RunTestFunction( A )
 A = ScriptHelper.CallRefFunction( ScriptHelper, "RunTestFunction", Array(A), 0 ) 
 Call TCSApp.ShowMessageBox(  "", "A = " + CStr(A) )
End Sub