Microsoft Script Control

[Wolf4D]

Когда-то давно и где-то не здесь я уже создавал тему по этому компоненту. Меня тогда послали в поиск, указав на нужную информацию. Ну так вот, я вернулся, но там мне не помогли. Решил прийти сюда
*Это было вроде как приветствие новичка всем обитателям форума*
Пытаюсь разобраться с этим мудрёным компонентом - Microsoft Script Control - возникает проблема:
Имеется форма, на ней - несколько объектов (присутствуют массивы). Пытаюсь через Microsoft Script Control повлиять на один из них - он мне ошибку.
Что я делаю не так, мне вроде как понятно, поэтому я спрашиваю: как сделать правильно?
Заранее спасибо!
P.S. Visual Basic 6

[dr.MIG]

Массивы чего? Что значит повлиять? Какая ошибка? Что вообще требуется сделать? И желательно с кодом, с кодом

[Хакер]

Wolf4D
Ошибку, говоришь, он тебе выдаёт. Это ведь замечательно, ведь 90% решения проблемы - описания ошибки. Ты предпочёл скрыть его (описание ошибки, текст) от нас? Что-ж, мы скроем от тебя решение проблемы.

[Andrey Fedorov]

Чтобы повлиять на объекты формы через VBS надо иметь ссылку на них. Ты ее передал?

[Wolf4D]

Так, с описанием ошибки я действительно ступил...
Ошибка такая: "Требуется объект <имя объекта>"

Чтобы повлиять на объекты формы через VBS надо иметь ссылку на них. Ты ее передал?

Упс... Я ньюб... Это не отговорка, это констатация факта
Не передал... Можете популярно послать в нужный FAQ (зачёркнуто) объяснить, как это делать?

[Atoman]

Может тебе вот это чем поможет.

[Wolf4D]

Спасибо огромное, Atoman!
То, что мне надо. Проблема решилась на 90%...
Вот только последние 10% упорно не хотят сдаваться...
------------------------
Получил вот такой код:

Код: Выделить всё

Private Sub Form_Load()
a = Initial("Command1", "Command1")
End Sub

Function Initial(sControl As String, sCtlName As String)
ScriptControl1.AddObject sCtlName, Me.Controls(sControl)
End Function


Private Sub Command1_Click()
ScriptControl1.ExecuteStatement "command1.visible = false"
End Sub


На форме, соответственно, кнопка command1 и ScriptControl1... Но вот что делать, если мне надо работать с массивом объектов? (предположим, на форме - массив элементов с названием "Command1", а новые добавляются через метод Load - "Load Command1(mcount)"). Возможно, надо как-то изменить систему?

[Antonariy]

Если Command1 - массив, то

Код: Выделить всё

ScriptControl1.ExecuteStatement "command1(x).visible = false"

Это во-первых, а во-вторых повторю, если с первого раза не понятно:

Ошибку, говоришь, он тебе выдаёт. Это ведь замечательно, ведь 90% решения проблемы - описания ошибки. Ты предпочёл скрыть его (описание ошибки, текст) от нас? Что-ж, мы скроем от тебя решение проблемы.

[Wolf4D]

Если Command1 - массив, то

Код: Выделить всё

ScriptControl1.ExecuteStatement "command1(x).visible = false"

Это во-первых, а во-вторых повторю, если с первого раза не понятно:

Ошибку, говоришь, он тебе выдаёт. Это ведь замечательно, ведь 90% решения проблемы - описания ошибки. Ты предпочёл скрыть его (описание ошибки, текст) от нас? Что-ж, мы скроем от тебя решение проблемы.

Ошибка для пердыдущего кода была написана выше. Теперь выдаёт такую ошибку "Управление <имя элемента> не найдено". Возникает в строчке

Код: Выделить всё

ScriptControl1.AddObject sCtlName, Me.Controls(sControl)

при попытке загнать через

Код: Выделить всё

a = Initial("Command1", "Command1")

массив.

[Atoman]

Вот держи, работает с массивами кнопок.

Код: Выделить всё

Private Sub Command2_Click()
    ScriptControl1.ExecuteStatement "Command(1).visible = False"
    ScriptControl1.ExecuteStatement "Command(0).visible = False"
End Sub

Private Sub Form_Load()
    ScriptControl1.AddObject "Command", Command1()
End Sub

---------------------------------------------------------------------------------

Вот так тоже работает.

Код: Выделить всё

Private Sub Form_Load()
    ScriptControl1.AddObject "Command", Me.Controls("Command1")
End Sub

[Wolf4D]

Вот держи, работает с массивами кнопок.

Код: Выделить всё

Private Sub Command2_Click()
    ScriptControl1.ExecuteStatement "Command(1).visible = False"
    ScriptControl1.ExecuteStatement "Command(0).visible = False"
End Sub

Private Sub Form_Load()
    ScriptControl1.AddObject "Command", Command1()
End Sub

Огромное спасибо! Всё работает! Тему пока не закрывайте, плиз, вдруг у меня и этого строптивого компонента опять возникнут разногласия

[Хакер]

Wolf4D
Ты видел чтобы здесь где-нибудь кто-нибудь закрывал темы (не в порядке наказания)?

[Zenitchik]

Как корректно передать в в скрипт массив?

Проблема такая: в скрипт передан объект, реализующий метод
AnalisURL
Этот метод принимает строку в качестве аргумента, а возвращать должен массив строк.
И аргумент и массив описаны как Variant. Когда я в скрипте пытаюсь использовать этот метод, возникает ошибка "Несоответствие типов".

Чего я не учитываю? Как коректно передать массив?

[Antonariy]

Того, что передавать в SC можно только объекты (AddObject ни о чем не говорит?). Передай объект, который свойством возвращает массив, и работай с этим свойством.

[Zenitchik]

Тогда уж проще Collection передать...
Ладно, черт с ним. Пусть будет.

[Zenitchik]

Другой вопрос:

За что в ScriptControl отвечают модули?
Как из одного модуля воспользоваться процедурой, содержещейся в другом?

[Vi]

Как корректно передать в в скрипт массив?

Проблема такая: в скрипт передан объект, реализующий метод AnalisURL
Этот метод принимает строку в качестве аргумента, а возвращать должен массив строк.
И аргумент и массив описаны как Variant. Когда я в скрипте пытаюсь использовать этот метод, возникает ошибка "Несоответствие типов".

Чего я не учитываю? Как корректно передать массив?

Нужно учитывать, что все массивы в скриптах есть массивы вариантов (Variant). Никакие другие типы (например, String, Long etc) в качестве типов элементов не допускаются.

[Zenitchik]

Нужно учитывать, что все массивы в скриптах есть массивы вариантов (Variant).

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

Без модулей я, по большому счету, тоже обошелся, но все же хотелось бы разобраться в вопросе:

Для чего модули служат и как юзать один модуль из другого? Кстати, где бы по нему мануал найти? У меня был раньше в виде отдельного chm - так я его куда-то пролюбил...