我们常用
软件Software如Word
ExcelPhotoShop等在运行时都有
个Splash封面该封面既显示软件Software名称、版本、开发人员以及使用者等信息又可以在后台
化数据库和软件Software需要
文件
但这些Splash封面文件通常只包含静态图片和文本对象常常显得比较单调我们是否可以将Splash封面文件做成动态呢？答案当然是可以笔者在用PowerBuilder 8.0为单位开发工资软件Software时通过Flash文件制作出新颖、漂亮Spalsh封面以下详细介绍制作过程 1.先将Swflash.Ocx文件复制到Windows\system32(若为Windows98系统则为
目录)下然后单击开始运行在运行框中输入Regsvr32 c:\windows\system32\swflash.ocx单击确定即可注册swflash.ocxControl控件 2.在Flash中制作
大小为550px×450pxFlash文件splash.fla并输出为splash.swf保存在开发目录下 3.在PowerBuilder中新建
应用Splash.pbl在应用Open事件中添加如下代码:Open(w_splash) //打开Splash封面窗口 4.在Powerbuilder中新建
wf_get_Curr_dirAccess为PublicReturn Type 为String名为wf_get_Curr_dir在该中添加如下代码 //获得当前应用所在
目录 
ls_Buffer ls_Buffer=Space(255)
IF GetCurrentDirectoryA(255,ls_Buffer)=0 THEN SetNull(ls_Buffer)
RETURN ls_Buffer
代码中
GetCurrentDirectoryA为WindowsAPI在应用Globa External Functions中声明: Function ulong GetCurrentDirectoryA(ulong nBufferLength,ref
lpBuffer) Library "kernel32.dll" 5.新建
窗口w_Splash其属性如下表: 窗口/Control控件名 值
WindowType Popup!
WindowState Normal!
Visible True
Enabled True
ClientEdge True
Center True
Width 1847
Height 1092
将窗口
Titlebar、ControlMenu、MaxBox、MinBox、PaletteWindow、RightToLeft、Border等全部取消选择 6.在窗口中插入
OleControl控件打开如下对话框: 单击Insert Control页面
在Control Type下
列表框中选择Shockwave Flash Object然后单击OK按钮即可在窗口中插入flashControl控件其属性设置如下表: 窗口/Control控件名 值
Name Ole_1
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_1.move(0,0)
ole_1.width=this.workspacewidth( )
ole_1.height=this.workspaceheight( )
ole_1.object.movie(ls_swffile)
ole_1.object.play
timer(5,this)
Close事件:
timer(0,this)
//open(w_logon) //打开登陆窗口
Timer事件
Close(this)
至此本应用
Splash封面窗口建立完毕单击运行按钮即可运行以上
在Windows98/2000/xp 和Powerbuilder 7.0/8.0下运行通过
最新评论