VB6 ActiveX控件进入TCL / Tk应用程序

Question

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

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

Answer 1

1. Download the ActiveTcl distribution并安装它。
2. 参考The TclTk wiki Download the tcom library for tcl
3. tcom README指示将zip文件中\ lib文件夹中找到的tcom文件夹复制到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”a.k.a. optcl，这显然不像tcom支持在基于Tk的应用程序中嵌入可视ActiveX组件。安装类似于tcom（将optcl文件夹复制到C：\ tcl \ lib文件夹中。

以下是代码的optcl版本：

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