閺€鎯版 (0) +1 鐠э拷 (0) +1 闊拷 (0) +1

正在阅读：用Visual Basic实现多画面播放功能之一用Visual Basic实现多画面播放功能之一

2004-02-14 09:34 出处：eNet学院作者：何发武责任编辑：zwg

为了让vcd播放时交替“显示帧”(showframe)或“显示时间”(showtime)，可在displaymode 中进行设置： private sub showframe -click () on error resume next activemovie1. displaymode =amvframes end sub private sub showtime -click () on error resume next activemovie1. displaymode =amvtimes end sub 　　经过上面的设计，功能也凑合了。行了吗？别急！我们还想将界面搞得漂亮一点。例如，增加工具栏，加强鼠标右键的功能和画面中的双击功能等。　　如果我们想在vcd画面中单击右键弹出菜单，则可添加如下代码： private sub activemovie1-mousedown (button as integer,shift as integer ,x as single ,y as single) if button = 2 then popupmenu menuok end sub 　　其中，menuok是我们在菜单中额外增加的，子菜单内容可自定义(但要记住在设计时将名为“menuok”的菜单设置成不可见)。例如：(1)控制vcd“暂停”： activemovie1.parse； (2)控制vcd“运行”： activemovie1.run；(3)控制vcd“停止”： activemovie1.stop；(4)控制vcd“自动播放”： activemovie1.autostart=true。