在 Tcl/Tk 包装应用程序中实例化 VB6 ActiveX 控件的最常用方法是什么。
此设置是否存在性能问题,即围绕 GDI 句柄?
现在创建一个带有 .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;