将 VB6 ActiveX 控件集成到 TCL/Tk 应用程序中

Question

在 Tcl/Tk 包装应用程序中实例化 VB6 ActiveX 控件的最常见方法是什么。

此设置（即 GDI 句柄周围）是否存在性能问题？

Answer 1

1. 下载 ActiveTcl 发行版并安装它。
2. 参考TclTk wiki 下载 tcl 的 tcom 库
3. tcom README 指示将 \lib 文件夹中的 tcom 文件夹从 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 文件以使用 Wish 将其打开。

另一种选择是使用“Open Tcl”又名 optcl，它显然与 tcom 不同，它支持在基于 Tk 的应用程序中嵌入可视化 ActiveX 组件。安装方式与tcom类似（将optcl文件夹复制到C:\tcl\lib文件夹中。

以下是optcl版本的代码：

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