知识大全在PB中用Flash制作Splash封面

Posted 2022-07-16 封面

篇首语：天才就是无止境刻苦勤奋的能力本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在PB中用Flash制作Splash封面相关的知识，希望对你有一定的参考价值。

在PB中用Flash制作Splash封面 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　我们常用的软件如Word Excel PhotoShop等在运行时都有一个Splash封面该封面既显示软件的名称版本开发人员以及使用者等信息又可以在后台初始化数据库和软件需要调用的文件但这些Splash封面文件通常只包含静态的图片和文本对象常常显得比较单调我们是否可以将Splash封面文件做成动态的呢？答案当然是可以的笔者在用PowerBuilder 为单位开发工资软件时通过调用Flash文件制作出新颖漂亮的Spalsh封面　　以下详细介绍制作过程　　先将Swflash Ocx文件复制到Windows\\system （若为Windows 系统则为System目录）下然后单击开始运行在运行框中输入Regsvr c:\\windows\\system \\swflash ocx 单击确定即可注册swflash ocx控件

　　在Flash中制作一大小为 px× px的Flash文件splash fla 并输出为splash swf 保存在开发目录下　　在PowerBuilder中新建一应用Splash pbl 在应用的Open事件中添加如下代码 Open(w_splash) //打开Splash封面窗口　　在Powerbuilder中新建一函数wf_get_Curr_dir Access为Public Return Type 为String 函数名为wf_get_Curr_dir 在该函数中添加如下代码 //获得当前应用所在的目录 string ls_Buffer

ls_Buffer=Space( )

IF GetCurrentDirectoryA( ls_Buffer)= THEN SetNull(ls_Buffer)

RETURN ls_Buffer

　　代码中的GetCurrentDirectoryA为WindowsAPI函数在应用的Globa External Functions中声明 Function ulong GetCurrentDirectoryA(ulong nBufferLength ref string lpBuffer) Library kernel dll 　　新建一窗口w_Splash 其属性如下表

窗口/控件名值 WindowType Popup! WindowState Normal! Visible True Enabled True ClientEdge True Center True Width Height

　　将窗口的Titlebar ControlMenu MaxBox MinBox PaletteWindow RightToLeft Border等全部取消选择　　在窗口中插入一Ole控件打开对话框单击Insert Control页面在Control Type下的列表框中选择Shockwave Flash Object 然后单击OK按钮即可在窗口中插入flash控件其属性设置如下表

窗口/控件名值 Name Ole_ Visible True Enabled True BorderStyle StyleLowered! 　　其它属性保持不变　　在窗口的Open事件 Close事件 Timer事件中分别加入如下代码　　Open事件 String ls_path ls_swffile ls_path=wf_get_curr_dir() //获得当前应用的路径 ls_swffile=ls_path+ \\splash swf ole_ move( ) ole_ width=this workspacewidth( ) ole_ height=this workspaceheight( ) ole_ object movie(ls_swffile) ole_ object play() timer( this)

　　Close事件 timer( this) //open(w_logon) //打开登陆窗口

　　Timer事件 Close(this)

　　至此本应用的Splash封面窗口建立完毕单击运行按钮即可运行

cha138/Article/program/SQL/201311/16433

知识大全 在PB中用Flash制作Splash封面

知识大全在PB中用Flash制作Splash封面