在Word 97中编制一个视频播放程序 徐东明 1997-01-01 　　只要你具备ＷＯＲＤ９７、ＡｃｔｉｖｅＭｏｖｉｅ１．０，你就可以自己编制一个视频播放小程序。 　　首先打开ＷＯＲＤ９７的ＶＩＳＵＡＬ　ＢＡＳＩＣ编辑器（ＡＬＴ＋Ｆ１１）。在“工程”窗口内插入用户窗体，在“属性”中修改窗口属性，将窗体命名为ＦＬＶＣＤ，ＣＡＰＴＩＯＮ值为“风流视霸９７”。 　　其次，打开“查看－工具栏”，在“工具－附加控件”中，选中“ＡＣＴＩＶＥ　ＣＯＮＴＲＯＬ　ＯＢＪＥＣＴ”项。这样工具栏中就增加了ＡＣＴＩＶＥ控件，并将这个控件增加到ＦＬＶＣＤ窗体中。同时，在窗体中增加一个按钮，命名为“打开文件”。 　　双击“打开文件”按钮，输入： 　　Ｐｒｉｖａｔｅ　Ｓｕｂ　ＣｏｍｍａｎｄＢｕｔｔｏｎｌＣｌｉｃｋ（） 　　ｆｌｖｃｄ．Ｈｅｉｇｈｔ＝２５６（使文件播放时窗体高度变大） 　　ＡｃｔｉｖｅＭｏｖｉｅｌ．ＦｉｌｅＮａｍｅ＝ＩｎｐｕｔＢｏｘ（“请输入视频文件名：”，“风流软件工作室”，“Ｃ：＼１＼ｍｕｓｉｃ０１．ｄａｔ”） 　　──注意这里的“Ｃ：＼ｌ＼ｍｕｓｉｃ０１．ｄａｔ”是存在硬盘上的视频文件 　　Ｅｎｄ　Ｓｕｂ 　　最后，试运行这个窗体，可以反复调整ＡＣＴＩＶＥ、及按钮的位置到最合适的位置，并加入一些美化窗体的文字。 　　如果想把这个程序加入到ＷＯＲＤ工具栏中，则可创建一个宏： 　　ｓｕｂ风流视霸 　　ｆｌｖｃｄ．ｓｈｏｗ 　　ｅｎｄ　ｓｕｂ 　　再将这个宏做成按钮加入ＷＯＲＤ工具栏中。