[转帖]PowerBuilder实现FLASH动画播放

ehxz

免费乐捐，感谢支持

PowerBuilder数据库编程中利用Flash控件进行动画播放和控制播放的方法。 
关键词  OLE控件 动画  Flash   B 
1. 前言
PowerBuilder(以下简称PB)是一种面向对象、快速开发数据库的开发平台，常用于数据库的开发，FLASH动画不仅包含动画，还可有声音等形成非常形象的动感画面，在PB开发的程序中加入FLASH动画，使得程序更具活力，为用户创造一个更加友好的交互式界面。下面介绍在PB8.0数据库编程中用Flash 5提供的OLE控件“SwFLASH.ocx”实现动画播放的一种方法。
2. B中OLE控件的使用
在PB8.0环境下使用“SwFLASH.ocx”控件，首先创建一个窗口，然后在窗体上添加一个OLE控件，用OLE连接 FLASH 5的控件“SwFLASH.ocx”其具体作法如下：
（1）选菜单"Cotrols | OLE"，显示窗口"Insert object"，选"Insert Control"，在Control Tyle栏里找出"Shockware FLASH Object"（若该控件尚未注册,可先选"Register Now"对该控件进行注册）；回到PB窗口，用鼠标点击安放此控件在窗口上并调整大小。
（2）在编程中使用FLASH5.0的控件“SwFLASH.ocx”提供的主要属性：
    Movie属性：存放FLASH动画文件的URL's：在本机磁盘时写全目录名，或Internet上按浏览网页的地址，例如：f:\touch\start.swf。
Quality（分辨率）属性：播放的分辨率，有0（low），1（AutoLow），2（Hight），
3（AutoHight），4（Best）五个值 。
Scale属性：播放的屏幕，有0（ShowAll）, 1（NoBorder）, 2（ExactFit）三个值 。
    Loop（循环播放）属性：true, false 。
menu（菜单）属性：true, false 。
（3）根据应用的需要进行编程，如在窗口的“open”事件中，设置“SwFLASH.ocx”控件的属性值，录入下述代码即可（或者在属性页填写）：
ole_1.Object.movie=“f:\ \touch\start.swf” 
ole_1.Object.loop=true 
ole_1.Object.Quality=4 
ole_1.Object.Scale=2 
ole_1.Object.menu=true
3. B控制动画播放
以上设置了控件的属性，在程序中只能单一播放已生成的动画文件（“*.swf”）,PB不能对动画进行控制，若要PB控制FLASH动画播放，就需要使用“SwFLASH.ocx”控件的方法和事件。
（1）利用控件的“Setvariable”方法可实现动态文本的显示,（例如在动画中播放一段文本“我爱FLASH”，更改为“我爱“PB”）。其作法如下：
a) 在FLASH动画中设置文本字段变量。
在FLASH中选择动态显示的文本对象，在TextOptions面板中选择动态文本（Dynamic Text ）,设置成文本字段类型。然后在Variable输入字段变量名称为：“DispText”。在文本框中输入“我爱FLASH””
b) 在PB中运用方法。
  “Setvariable”方法的格式：setvariable(name as string ,value as string )
根据应用的需要编程，如窗体中放置一个按钮，在按钮的“Click”事件中编写
        string  ls_disp
        ls_disp=“我爱PB”
        ole_1.Object.Setvariabel(“DispText”,ls_disp)
c) 运行程序，点击按钮，Flash动画中的“我爱FLASH”，就会变为“我爱“PB”。
（2）利用“fscommand”事件，实现PB与FLASH动画的交互。（如用户在PB程序的一个窗体”w_start”中点击FLASH动画按钮，打开PB的另外一个窗口”w_Picture”），方法如下：
a) 在FLASH中设置按钮动作
在FLASH中定义一个按钮，打开对象动作面板，点击Fscommand动作，Fscommand动作自动加入在on(release{}之中。Fscommand动作可用于传递信息给PB，其参数设定为：
command(命令)：picture
Arguments(参数) ：可根据需要选择，在此不设置
在编辑窗口显示如下：
on(release){
fscomman(“picture”);
}
b) 在PB中OLE控件的“fscommand(string command ,string args)”事件中编程
if command=”picture” then
  open(w_picture)
end if 
c) 运行程序，点击FLASH动画中的按钮，显示w_picture窗口
以上只是简单的介绍了PB如何使用OLE控件"SwFLASH.ocx"控制动画播放的方法，在实际运用中，应根据实际需要，灵活使用控件实现PB与Flash动画的完美结合。

zheng551

[em64]就想学这个~~~~

等装上了 就好好研究。。。谢谢楼主啊 咋没人顶内