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

Question

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

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

Answer 1

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;