Элементы управления VB6 ActiveX в приложении TCL / Tk - PullRequest
Новая
       15

Элементы управления VB6 ActiveX в приложении TCL / Tk

1 голос
/ 08 апреля 2010

Какой самый распространенный способ создания элементов управления ActiveX VB6 внутри приложения-оболочки Tcl / Tk.

Есть ли проблемы с производительностью при этой настройке, то есть вокруг дескрипторов GDI?

1 Ответ

3 голосов
/ 08 апреля 2010
  1. Загрузите дистрибутив ActiveTcl и установите его.
  2. Ссылаясь на Вики TclTk Загрузить библиотеку tcom для tcl
  3. tcom README дает команду скопировать папку tcom, находящуюся в папке \ lib, из zip-файла в C: \ Tcl \ lib для установки библиотеки tcom.

Теперь создайте текстовый файл с расширением .tcl, содержащий следующее: 

# This demo of calling the Fire method on the MyControl VB6 ActiveX control
puts "Hello World";
package require tcom;
set myinstance [::tcom::ref createobject "MyKit.MyControl"];
$myinstance Fire;

Дважды щелкните файл .tcl, чтобы открыть его по желанию.

Другим вариантом является использование "Open Tcl" a.k.a. optcl, который, в отличие от tcom, поддерживает встраивание визуального компонента ActiveX в приложение на основе Tk. Установка аналогична tcom (скопируйте папку optcl в папку C: \ tcl \ lib.

Вот версия кода optcl: 

#load optcl
package require optcl
set myinstance [optcl::new MyKit.MyControl];
$myinstance Fire;
...