vb6 - TCL/TkアプリケーションへのVB6ActiveXコントロール

Question

Tcl/Tkラッパーアプリケーション内でVB6ActiveXコントロールをインスタンス化する最も一般的な方法は何ですか。

このセットアップ、つまり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 を使用して開きます。

もう 1 つのオプションは、「Open Tcl」別名 optcl を使用することです。これは明らかに tcom とは異なり、ビジュアル ActiveX コンポーネントを Tk ベースのアプリケーションに埋め込むことをサポートしています。インストールは tcom に似ています (optcl フォルダーを C:\tcl\lib フォルダーにコピーします。

コードの optcl バージョンは次のとおりです。

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