PB 各种小技巧(五)

1.pb9应用xp风格
将PB9升级到7119后,编译时有一个 New Visual Style Controls 选项,选中后,编译出来的文件在XP下就可以应用XP风格了
2.Yield()函数的作用
Yield()是一个不常用到的PowerBuilder函数。可是，在一个大的循环过程中，如果用户想在执行到一半时通过单击按钮或菜单来退出的话，就一定要用到Yield()函数了，否则程序只会在执行完成整个循环后才会响应按钮或菜单的Click事件。将Yield()函数放在循环体的中间。那么在循环执行的过程中发现有新的事件消息在消息队列中就回立即去响应。

Yield()
功能将控制权转移给其它图形对象，包括非PowerBuilder对象。该函数检测消息队列，如果有消息，就把消息取出。利用该函数可以在执行耗时较长的操作时把控制权转让给其它应用。
语法Yield()
返回值Boolean。如果在消息队列中提取到了消息，那么函数返回TRUE，否则返回FALSE。用法正常情况下，PowerBuilder应用程序在执行一段代码（比如函数或事件处理程序）的过程中不响应用户的操作。对耗时短暂的代码段来说，这种处理方式没有什么不妥的地方，但是，如果某个代码段的执行耗时较长，应用程序又希望为用户提供更多的控制权，那么需要在这段代码中插入Yield()函数，让用户能够进行其它操作，特别在循环执行的代码中更应该如此。应用程序执行Yield()函数后，如果发现消息队列中存在消息，它将允许对象处理这些消息，处理之后，继续Yield()函数后面代码的执行。因此，代码中插入Yield()函数将降低应用程序的运行效率。
3.sqlca.SQLCode 与update()
在利用Embedded SQL 的时候,每运行一次SQL指令就应该检查一次交易对象中的属性SQLCode,而不是等到
所有的SQL指令运行完毕后再去运行检查交易对象中的SQLCode属性.当我们使用数据窗口所提供的函数时,
要记住不要检查SQLCode来判断是否运行成功.而是要依照每一个函数运行后所返回的值来判断是否运行
成功.
update tab_test set col1 = 'test'
if sqlca.sqlCode = -1 then
rollback using sqlca;
if sqlca.sqlCode = -1 then
messageBox('错误','连接失败!')
end if
messageBox('错误','连接失败!')
else
commit using sqlca;
end if
//确保数据保存的成功
if dw_1.update() = -1 then
RollBack Using SQLCA;
MessageBox("警告!","数据保存失败!")
else
Commit Using SQLCA;
End if

4.读取网页内容：
sle_1.text=ole_1.object.Document.body.outertext
ole_1.object.Document.body.scroll="no"
mle_1.text=ole_1.object.document.body.outerhtml

5. tab_1.createondemand 在需要时创建：
tab_1.createondemand:在需要时创建。提高在open事件时的效率，tab_1的某一tabpage里的内容在open时不创建，仅当选择该页时或selecttab才创建，不过，在未创建时，不能对其中的控件及属性引用。


6.如何在程序中对BLOB数据库进行写入
和后台数据库有关：以SQLANYWAY为例:
一般用 UPDATEBLOB 和 SELECTBLOB　两个SQL语句来实现。
建一个表TABLE1，一个字段是ID,另一个是BLOB，
SELECTBLOB BLOB FROM TABLE1 WHERE ID='xx';
UPDATEBLOB SET BLOB = :BLB_X FROM TABLE1 WHERE ID='yy';
删除时删除ID为'mm'的记录即可，新增是先插入一条ID为'mm'的记录，然后 用UPDATEBLOB将数据写入
表内。 其他的数据库可参照手册进行，其命令与上述差别不大！

7．API、系统消息及其它dll调用
1.控件可拖动：
send(handle(this),274,61458,0)
2.如何屏蔽鼠标滚轮触发
在控件的other事件写
if message.number = 522 then return 1

3.隐藏任务栏的方法,
在OnCreate事件里利用Window API函数SetWindowLong：SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
PB使用时首先声明函数FUNCTION long SetWindowLong(ulong hWnd, integer nIndex, ulong dwNewLong) library "user32.dll" ALIAS FOR "SetWindowLongA"，
然后调用：SetWindowLong(Handle(this),-20,128)；

4.在PB中调用屏幕保护的方法：
send(handle(This),274,61760,0)

5.得到一个应用程序如Outlook的路径
RegistryGet("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionApp PathsMSIMN.EXE", &
"Path",ls_outlook_path)
//Outlook的路径将保存在string型变量ls_outlook_path中。

6.得到程序运行时的路径
//在global external functions声明：
Function uLong GetModuleFileNameA(long hinstModule, Ref String lpszPath, uLong cchPath) Library ″kernel32.dll″
//程序路径保存在变量ls_AppPath中
string ls_AppPath
int li_ret
ls_AppPath = Space(128)
li_ret = GetModuleFileNameA(Handle(GetApplication()),ls_apppath,128)
//要编译成可执行文件.exe才可用，否则得到的是Powerbuilder的pb60.exe或PB050.exe的路径。

7.屏蔽窗口的ALT+F4键
//方法一：
1.在窗口的systemkey事件中增加以下代码：
IF KeyDown(KeyF4!) THEN
Message.Processed = TRUE
END IF
2.在窗口的closequery事件中增加如下代码:
Long ll_ret
IF KeyDown(keyF4!) THEN
ll_ret = 1
END IF
return ll_ret
//方法二：
建一实例变量,在你的关闭程序上赋一个True然后在closequery中判断该值, 如为False则Return 1

8.当程序中用到了动态加入的对象，如BMP资源文件、数据窗口对象，PB编译时是扫描不到的，解决方法：
1．将此对象写入到资源文件中：
用记事本创建资源文件dw_object.pbr,写入：c:myprogram.pbl(dw_sj)
编译时将此文件选入Resource File Name处。
2．将应用编译成PBD、DLL文件。
9.如何在PB中实现延时：
subroutine Sleep(long dwMilliseconds) library "kernel32.dll"
延时1秒则调用： Sleep(1000) //单位是毫秒。

10.调用API函数步骤：
1、在适当的位置声明函数，如窗口内，Application内，UserObject内，
定义在Local External Function或Global External Function中，如播放声音的：
Function boolean sndPlaySoundA(string SoundName, uint Flags) Library "WINMM.DLL"
Function uint waveOutGetNumDevs() Library "WINMM.DLL"
也可以创建一个UserObject,集中声明常用的API及函数本地化，如定义用户对象 u_external_function：
Declare Local External Function(定义外部函数):
Function boolean sndPlaySoundA(string SoundName, uint Flags) Library "WINMM.DLL"
Function uint waveOutGetNumDevs() Library "WINMM.DLL"
Declare User Object Function(定义用户对象函数):
uf_play_sound(string as_wave_name, integer ai_option)
函数内容如下：
//参数：as_wave_name ：wav文件名 ai_option ：同步或异步(1/0)
uint lui_numdevs
lui_numdevs = WaveOutGetNumDevs()
If lui_numdevs > 0 Then
sndPlaySoundA(as_wave_name,ai_option)
return 1
Else
return -1
End If
2、调用时在程序中定义一个实体并调用其函数：
u_external_function iu_external_function
iu_external_function = create u_external_function
iu_external_function.uf_play_sound('c:windowsmediading.wav',1)
试试看，如果有声卡，就会听到"叮”的一声。其它API函数也是如此处理。