| 首先，我们建立一个“项目”，依次选择“项目/部件”，然后添加microsoft activemoviecontrol (amovie.ocx)、microsoft commandialog control(comdlg32.ocx)，控件即出现在“工具箱”中。将上述两个控件加进窗体，再单击“菜单”工具栏，建立一个主菜单项：“文件”(file)及其子菜单项：“打开a画面”(opena)。 在opena中加入如下代码： private sub opena-click () on error resume next commondialog1.filter ="video file (*.dat)∣*.dat∣wave file (*.wav)∣avi file (*.avi)∣(*.avi)∣movie file (*.mov)∣(*.mov)∣media file (*.mmm)∣(*.mmm)∣mid file (*.mid;*.rmi)∣(*.mid;*.rmi)∣mpeg file (*.mpeg)∣(*.mpeg)∣all file (*.*)∣*.*" commondialog1.filterindex =1 commondialog1.showopen activemove1.filename = commondialog1. filename activemove1.height = form1.height activemove1.width =form1.width activemove1.run end sub 这是对单个的activemovie1进行控制。还可以在“文件”(file)中依次加入子菜单：“打开b画面”(openb)、“打开c画面”(openc)，并相应地加入activemovie2、 activemovie3等多个画面，将上述程序代码略为改动后加入。这样，当您按下f5键即运行程序，打开您想要播放的vcd文件就可以欣赏vcd了。在屏幕上单击右键，还可以控制画面呢！ 现在是否就满足了呢？不行！我们再增加一个用鼠标任意拖动屏幕的功能： private sub activemovie1-mousedown (button as integer ,shift as integer ,x as single ,y as single) activemovie1.drag 1 x1=x y1=y end sub |
正在阅读：用Visual Basic实现多画面播放功能之一用Visual Basic实现多画面播放功能之一
2004-02-14 09:34
出处：eNet学院
责任编辑：zwg
键盘也能翻页，试试“← →”键
