---- 下面是具体作法:
建立应用对象
---- 运行PB选菜单"File | New"建立个应用对象将它起名为app_flash并将其应用对象库起名为flash.pbl存盘;选工具栏图标"Window"放入个窗口起名为w_flash在这个窗口中放下述Control控件:个单行文本编辑框(SingleLineEdit)sle_1用来输入要提取进行演播Flash动画文件(*.sws)所在URL's(存放在本机磁盘或存放在Internet远程Web服务器Flash动画文件);两个命令按钮(CommandButton)cb_1用来执行提取并演播键入文本框sle_1中Flash文件命令按钮cb_2用来退出软件Software运行
用OLE连接 Flash 4Control控件Swflash.ocx
---- 选菜单"Cotrols | OLE"出现窗口"Insert object"选"Insert Control"在Control Tyle栏里找出"Shockware Flash Object"(若该Control控件尚未注册,可先选"Register Now"对该Control控件进行注册);回到PB窗口用鼠标点击安放此Control控件在窗口上并调整大小(再用鼠标右击出现浮动菜单选"OCX Property"设置Control控件属性)
对Flash 4Control控件主要属性
---- Flash 4Control控件Swflash.ocx主要提供了下列属性在编程中使用:
---- Movie属性:存放Flash动画文件URL's:在本机磁盘时写全目录名例如: d:\lxrj\lixiang\lxpaper\2000\t04\bol.swf 在Internet上按浏览网页方式:例如(下面是实际存放在贵州大学Web服务器上个Flash文件) http://www.gzu.edu.cn/~lixiang/bol.swf
---- Quality(分辨率)属性:播放分辨率有0(low)1(AutoLow)2(Hight)3(AutoHight)4(Best) 5个值
---- Scale属性:播放屏幕有0(ShowAll), 1(NoBorder), 2(ExactFit) 3个值
---- Loop(循环播放)属性:true, false
---- menu(菜单)属性:true, false
对Flash 4Control控件Swflash.ocx进行编程
---- 明白了FlashControl控件主要属性后即可根据应用需要进行编程在我们上面对窗口安排中仅需对"播放"按钮cb_1clicked事件录入下述代码即可(不愿编代码读者可以用鼠标右击窗口OLEControl控件界面打开属性页填写):
ole_1.Object.movie=sle_1.text
ole_1.Object.scale=0
ole_1.Object.loop=true
ole_1.Object.Quality=4
ole_1.Object.Scale=2
ole_1.Object.menu=true
---- 为方便退出在另个命令按钮cb_2clicked事件中录入代码:close(parent)
运行测试:
---- 关闭窗口w_flash回到应用对象app_flash选菜单"Entry | Script"在open事件中录入代码: open(w_flash) 后选图标"Run"运行(URL's:http://www.gzu.edu.cn/~lixiang/bol.swf是贵州大学站点24小时开放有兴趣读者可用来调试这个)
最新评论