• Nik
  • Восстановленный участник
  • На форуме с 14 ноября 2002г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Передача данных из AutoLISPa в OCX (ActiveX)

Есть OCX-файл, созданный на VB. Внутри него объявлена функция:
   Public Function FuncName(Arg1 As String, Arg2 As String) As Integer
Результат - отображается некое диалоговое окно с текстовыми полями (Arg1 и Arg2)
Из Екселя я к этому OCX-у обращаюсь так:
   Set Obj = CreateObject("OcxName.ControlName")
   Result = Obj.FuncName(Arg1, Arg2)
  - все работает как надо.
из AutoLispa пытаюсь обратиться так:
   (setq Obj (vlax-create-object "OcxName.ControlName"))
   (setq Result (vlax-invoke-method Obj 'FuncName Arg1 Arg2))
-диалоговое окно отображается, но все поля - пустые (значения Arg1 и Arg2 в OCX не передаются). С типами переменных вроде поигрался (Variant, String) - все равно не катит.
Внимание - вопрос: как его, собаку, работать заставить?

  • kas
  • Восстановленный участник
  • На форуме с 6 июня 2002г.
  • Сообщений: 116
  • Спасибо: 0

Re: Передача данных из AutoLISPa в OCX (ActiveX)

Тоже возникли проблемы при решении этой задачи.
Решение такое: в описании аргументов функции надо явно указать, что аргументы передаются по значению ByVal.
Public Function FuncName(ByVal Arg1 As String, ByVal Arg2 As String) As Integer
Тогда все работает.

  • Nik
  • Восстановленный участник
  • На форуме с 14 ноября 2002г.
  • Сообщений: 3
  • Спасибо: 0

Re: Передача данных из AutoLISPa в OCX (ActiveX)

Сенкс, так работает