使PB窗口居中
2024-07-21 02:10:04
供稿：网友
在窗口属性的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
//设置为自动播放 ole—1.object.open(″c:/program files/joint/firework.avi″) //打开一个avi文件
若你的pb程序中使用了activex控件，最好把相应的ocx文件与你的程序一起发布，并在安装程序中进行注册，因为客户机不一定注册了相应控件。注册的方法是用regsvr32，若采用installshield来制作安装程序，也可以把所有要注册的ocx文件放到一个file group中，然后将它的“self－registered”设置成yes来自动注册。
4．操纵lob
大对象(large object)通常指大文本和大二进制对象，几乎每一种数据库都支持它。在pb中可以用updateblob和selectblob语句来对它们进行处理。
(1)用updateblob来把大对象数据写入数据库
在编写管理软件时，要求把员工的照片(bmp文件)和工作经历(doc文件)保存在数据库中，而不是像以前一样保存它们的文mpno=′9925′; //把图像数据写入数据库
if sqlca.sqlnrows〉0 then commit;
end if
注意，fileread一次只能读取32k，若文件大于32k应分多次读取；updateblob执行成功与否不能用sqlcode或sqldbcode来判断，而要用sqlnrows是否大于0来判断。
(2)用selectblob从数据库中读取大对象数据
要查看员工的照片或工作经历，就应把相关信息从数据库中读出来。主要代码如下：
blob pic //把pic定义为二进制大对象（binary large object）
selectblob photo into :pic from emp where empno=′9925′;//把图像数据读到变量pic中
p_1.setpicture(pic) //用图像控件显示图像
5．编译技巧
(1)没有必要将pbl编译成机器码dll，即不要选择“machine code”。那样做意味着你至少要等待半个小时。编译成伪码pbd就行了。
(2)把程序中用到的ico、bmp等文件打包到目标代码中。方法是：用记事本创建一个扩展名为pbr的资源文件，它的每一行是一个带完整路径的文件名，用于告诉编译器到何处去找用到的资源。
(3)pb应用程序要独立运行，必须把sybase hared下的几个共享库与你的程序一起发布，它们是：pbvm60.dll、pbodb60.dll、pbdwe60.dll。后台若使用ms sql server，还得带上pbmss60.dll；若使用sybase sql anywhere，要带上pbo7360.dll；若使用informix v7.x，要带上pbin760.dll。
