vb6 - VB6 ActiveX 控件到 TCL/Tk 应用程序中

Question

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

此设置是否存在性能问题，即围绕 GDI 句柄？

Answer 1

1. 下载 ActiveTcl 发行版并安装它。
2. 参考The 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;