文档库

最新最全的文档下载
当前位置:文档库 > PB编程经验谈

PB编程经验谈

PB编程经验谈

1.添加启动声音

对Win 98的启动声音一定不陌生吧,那么有没有想过为你的PB应用程序添加启动声音呢?使用Win32 API函数PlaySound很容易实现。方法是在“Global External Functions...”中添加如下函数声明:

Function long PlaySound (String Filename,Int Mod,Int Flags ) Library ″winmm.dll″

获得这个函数声明的最好的方法是使用Visual Basic中的“API Viewer”,只需把得到的结果改写成PB的格式,然后在Application的Open事件中添加如下代码:

iRet=PlaySound(″C:\Program Files\Joint tart.wav″,1,1)

参数1指定启动声音文件,参数2指定播放模式,参数3指定播放标记。播放成功返回1,否则返回0。若因声音文件不存在等原因导致播放失败也不会产生错误提示,因此没有必要对返回值进行捕捉处理。

2.使PB窗口居中

在窗口属性的Position页中可以粗略地设置窗口的弹出位置。然而,你并不知道客户机的屏幕分辨率是多少(800×600还是1024×786),不如在Open事件中加入下列代码使其居中:

GetEnvironment(Env)//获取客户机环境信息

dy=(Pixelstounits(Env.ScreenHeight,YPixelsToUnits!)-this.Height)/2

dx=(Pixelstounits(Env.ScreenWidth, XPixelsToUnits!)-this.Width)/2

this.Move(dx,dy)

//Env为Environment类型,dx,dy为Long类型3.使用ActiveX控件

VB可以直接引用ActiveX控件,而PB只能通过“控件嵌套”的方法来引用。这种方法需要借助OLE容器。下面以Animation控件为例说明引用过程及约定。

窗体设计时,选择OLE,在弹出的“Insert Object”对话框中选择“Insert Control”页,在Control Type下列出了系统中所有注册过的ActiveX控件,选择“Microsoft Animation Control”。对ActiveX控件的属性和方法的引用必须遵循“OLE控件.Object.属性(或方法)”的规则。如下代码通过调用Animation控件的属性和方法来自动播放一个视频剪辑:

ole—1.Object.AutoPlay =True

PB编程经验谈

(共3页)
江苏快3一定牛 传奇私服 江苏快三开奖结果今天江苏快3走势图