Ошибка выполнения скрипта Intelisense

20.08.10

✎

12:19

Пользуюсь телепатом давно, недавно начала появлятся ошибка.

Ошибка выполнения скрипта Intelisense
Файл ...Intelisense.vbs
Строка 413
Позиция 2
Код 0

псмотрел код, ошщибка возникает при вызове функции.

Private Function SelectFromList(strList, InitialText)

ExtParamsVal = ""
FontParam = GetIniParam("FONT")
if FontParam <> "default" then
ExtParamsVal = ExtParamsVal + ";Font=" + FontParam
end if
FontSizeParam = GetIniParam("FONTSIZE")
if FontSizeParam <> "default" then
ExtParamsVal = ExtParamsVal + ";FontSize=" + FontSizeParam
end if
if ExtParamsVal <> "" then
ExtParamsVal = Mid(ExtParamsVal, 2)
end if

DLLKIND = GetIniParam("CHOICELIST_KIND")
Select Case DLLKIND

Case "2": ' "Svcsvc.Service"
' Arr = Split(strList, vbCrLf)
' for i = 0 to UBound(Arr)
' Arr(i) = Mid(Arr(i), 4)
' Next
' strList = Join(Arr, vbCrLf)

Set SelObjSvc = CreateObject("Svcsvc.Service")
SelectFromList = SelObjSvc.FilterValue(strList, 1 + 4 + 16 + 256 + 512)

Case "3": ' "SelectDialog.Selection"
Set SelObj = CreateObject("SelectDialog.Selection")
SelObj.ListToChoose = strList
On Error Resume Next
SelObj.InitialText = "" & InitialText
On Error Goto 0
ModuleWnd_HWnd = Windows.ActiveWnd.HWnd

t = SelObj.WndDescrsSet(0, ModuleWnd_HWnd)
SelectFromList = SelObj.DoSelection

Case else: ' "SelectValue.SelectVal"
Set SelObj = CreateObject("SelectValue.SelectVal")
ModuleWnd_HWnd = Windows.ActiveWnd.HWnd

SelectFromList = SelObj.SelectPopUpImg(strList, ModuleWnd_HWnd, vbCrLf, ExtParamsVal)

End Select

End Function ' SelectFromList

Выглядит это так, пишешь... ставишь точку, должен появлятся список, а вместо него появляется ошибка.

Платформа 7.7.027
Использую
SciColorer 1.0.1.1
Telepat 2.0.0

Как устранить ошибку?

1 Ёпрст

гуру

20.08.10

✎

12:35

(0) какой способ выбора прописан в intell.ini ?

запусти еще Update1CppInts из скрипта Intelensis.vbs в пофигураторе.

2 YHVVH

20.08.10

✎

12:37

3 - SelectDialog.dll

3 YHVVH