tkvideo 是一个为 Tcl/Tk 程序提供视频播放功能的扩展，这里介绍在 Visual Tcl Binary 中如何方便地使用 tkvideo 部件。
  1. 新建一个 Toplevel 窗体部件。
  2. 向 Toplevel 窗体部件添加一个 tkvideo 部件，在 Attribute Editor 窗口中设置 tkvideo 部件的 Alias（别名）为 Video。
  3. 添加一个按钮部件，双击后添加以下代码：
set filename [tk_getOpenFile]

if {$filename != ""} {
    Video configure -source $filename -stretch 1
    Video start
}

需要注意的是：tkvideo 部件的 -stretch 参数通常应该设置为 1 （新版本将默认设置为 1，不用手工再加。），这样打开的视频就会自动缩放到窗体中 tkvideo 部件相同的大小，否则如果视频画面太大的话就只能看到一部分图像。另外，准确的说 tkvideo 只能播放 WMP 支持的视频，这需要你为 WMP 安装相应的解码器，而不是安装暴风影音就万事大吉。

附：2008/6/14（也就是四天前）发布的 Visual Tcl Binary 中的 tkvideo 有问题，今天已经修正了这个小 BUG。新版本将上传到项目主页 http://vtcl.tcltk.cn，请重新下载。