PB经典代码



PB经典代码

上传: 邱兴国     更新时间：2014-2-3 10:24:54

1.RGB函数计算公式: 颜色值 ＝ (65536 * Blue) + (256 * Green) + (Red) 

2.控件可拖动： 
send(handle(this),274,61458,0) 

3.如何用程序控制下拉子数据窗口的下拉和收起 
用modify或者直接用dw_1.object.col1.dddw.showlist = true 

4.检索参数有些不需要传入则传%. 

5.如何屏蔽鼠标滚轮触发 
在控件的other事件写 
if message.number = 522 then return 1 

6.得到数据窗口的语法： 
string ls_dwsyntax 
ls_dwsyntax=dw_1.describe("datawindow.syntax") 

7.得到数据窗口中各列及标题： 
long ll_count,i 
string ls_value,ls_colname 

ll_colnum = Long(dw_1.object.datawindow.column.count) 

for i = 1 to ll_colnum 
//得到标题头的名字 
ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t" 
ls_value = dw_1.describe(ls_colname + ".text") 
next 

8.在程序中动态设置初始值: 
ex:dw_contro.object.columnName.initial = 'xxxx' 

9.如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行 

---- 起先对你要显示唯一值的列进行排序："city A"，然后增加如下过滤字符串：" city < > city [-1] or GetRow () = 1" 

10.如何改变列的字体颜色，提醒用户此列已做修改 

---- 在列的Color属性中，输入如下表达式IF (column_name < >column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))。在这个条件中，如果此列已改变，则显示红色字体，否则显示黑色字体。这个表达式主要用column_name < > column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。 

11.在数据窗口的clicked或doubleclicked事件中写上注释//可解决一些意外的bug! 

12.如何屏蔽上下鍵触发 
新建一个事件：id为pbm_dwnkey 
IF KeyDown(KeyDownArrow!) OR KeyDown(KeyUpArrow!) Then 
Return 1 
End IF 

13.你注意到没有，数据窗口画板里面，在写表达式的时候，试着用一些用户自定义的全局变量和全局函数，你会发现在某些特殊的场合，这个小窍门还是很有用的。 

14.有些程序员在窗口的右键pop菜单里面写了很多代码，在菜单里面有很多w_windowname.controlname等等引用，如果这个窗口被继承，很容易就会出毛病，别忘了在菜单里面可以引用parentwindow哦，有了它我的pop菜单里面的代码和具体窗口无关，随便继承。当然强烈建议最好还是把所有和窗口相关的逻辑都转移到窗口的函数和事件中去，在pop菜单中触发调用。 

15.whichdw.describe("evaluate('lookupdisplay("+colname+")',"+string(row)+")")

这个表达式可以得到指定列的显示值。（这个知识点有滥竽充数之嫌，但是一时间我真是想不起来太多的东西） 

16.在数据窗口画板里面我们如果想要比较当前行和上一行或者下一行的值，怎么比较呢，哈哈，看这个就知道了 

if ( yw_bc_circuit_dlcode = yw_bc_circuit_dlcode [-1] and yw_bc_circuit_dlname = yw_bc_circuit_dlname [-1] and yw_bc_circuit_xtno = yw_bc_circuit_xtno [-1] ,0,1) 

这个表达式就是比较当前行和上一行是否相同的。其他的依此类推就行了。 

17.两个结构相同的数据窗口之间快速复制数据 

dw_1.object.data = dw_2.object.data 

18.根据条件改变记录颜色 
if ( Mod(getrow(),2)=0,rgb(0,255,255),rgb(255,255,255)) //奇偶行不同色 
if (currentRow()=getrow(),rgb(0,255,255),rgb(255,255,255)) //当前行不同色 

19.使窗口总位于所有打开窗口的最上面 
w_main.SetPosition(Topmost!) 

20.取数据窗口中列的总数 
string ls_count 
ls_count = dw_1.describe("datawindow.column.count") 

21.取数据窗口中可列新的表名。
string ls_table
ls_table = dw_1.describe("datawindow.updatetable.table")

22.取数据窗口对象中列的名称及类型
string ls_cols[],ls_types[]
int li_count,i
li_count = integer(ls_count)
for i = 1 to li_count

ls_cols[i] = dw_1.describe("#"+string(i)+".name")

ls_types[i] = dw_1.describe("#"+string(i)+".coltype")

next

23.Case( dealintype WHEN 0 THEN RGB(254,251,235) WHEN 2 THEN rgb(254,251,235) ELSE RGB(0,0,255))
写道字段的protect中不仅仅是颜色改变的问题看看

24.dw.Object.col[n] : 直接获得数据窗口的col列第n 行的数据。

25.在做数据窗口时，我们有时候希望能够多一些字段来作一些特殊的用处，但是在数据窗口中又不能乱加字段，因为已有的字段必须是数据库中有的或者是他们的组合，呵呵，大家不妨看看这个sql用产生什么样的数据窗口
select colname1,colname2,1,''
from tablename
是不是多出了两个字段阿，一个是字符串字段，一个是数字字段
别忘了要convert syntax 哦

26.清空数组
string a[],b[]
a[1] = '1';a[1] = '2';a[1] = '3'
a = b//即可以清空a

27.只允许修改第n行的name列：
dw_1.modify("name.protect = '1 ~t if((getrow()=n),0,1)'")

28.让run程序和主程序一起关闭：
function ulong findwindowA(...).."user32.dll"
function long setparent(..."user32.dll"
handle = findwindowA(nul,win_title)
setparent(handle,handle(w_main))

29.取得某一天以前或以后n天的函数RelativeDate(date, n)
例：
取得当天前10天的日期
RelativeDate(Today(),10)
取得当天后10天的日期
RelativeDate(Today(),-10)

30.不想做排序窗口？调用PB自身的好了。
string ls_null
SetNull(ls_null)
dw_1.SetSort(ls_null)
dw_1.Sort()

31.调用PB自身的过滤窗口：
dw_1.SetFilter(ls_null)
dw_1.Filter()

32.增量输入定位代码或名称记录位置：
定义一个窗口，放一个SLE_1，在它的MODIFY程序中写：
long ll_find
string value0
value0=sle_1.text
if not (isnull(sle_1.text) or sle_1.text='') then
if left(sle_1.text,1)='0' or integer(sle_1.text)<>0 then //输入的为代码
ll_find=jwl_dmxz.dw_1.find('dm like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//jwl_dmxz为主窗口，dm为查询的字段名，这里是代码。
else //输入的为名称
ll_find=jwl_dmxz.dw_1.find('mc like "'+value0+'%"',1,jwl_dmxz.dw_1.rowcount())//
end if
if ll_find>0 then
jwl_dmxz.dw_1.scrolltorow(ll_find)
//为了避免首次目标记录为第一条，无法选中。
if ll_find=ll_find0 then 
jwl_dmxz.dw_1.selectrow(ll_find,true)
elseif ll_find<>ll_find0 then
jwl_dmxz.dw_1.selectrow(ll_find,true)
jwl_dmxz.dw_1.selectrow(ll_find0,false)
ll_find0=ll_find
end if
end if
end if

33.然后在查询窗口中的TIMER事件中写：
timer(0.05)
sle_1.triggerevent(modified!)


34.判断计算器是否存在：
string is_fileExists
boolean is_Exists
is_fileExists='c:\windows\calc.exe'
is_Exists=fileExists(is_fileExists)
if is_Exists then
run("c:\windows\calc.exe")
else
messagebox("提示信息","本机的WINDOWS没有计算器！",stopsign!)
end if

35.得到硬盘序例号
String ls_Rootpath, ls_volumnename ,ls_return,softpath
GetCurrentDirectoryA(256,softpath)
softpath=left(softpath,2)
if softpath='C:' then
ls_Rootpath = 'D:' // 指定要得到序列号的硬盘， 
// 一般情况都是C盘，除非你能保证用户存在其它逻辑盘或物理盘 
else
ls_Rootpath = 'C:'
end if
ls_volumnename = Space(256) // 分配足够的空间，下同 
Ulong lul_VolumeNameSize 
lul_VolumeNameSize = 256 
Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags 
lul_MaximumComponentLength = 256 

String ls_FileSystemNameBuffer 
ls_FileSystemNameBuffer = space(256) 

Ulong lul_FileSystemNameSize 
lul_FileSystemNameSize = 256 

int i
long ls_num,ls_gnum,ls_dnum

i=GetVolumeInformation(ls_Rootpath, ls_volumnename, lul_VolumeNameSize, lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags, ls_FileSystemNameBuffer, lul_FileSystemNameSize) 

ls_return=string(lul_VolumeSerialNumber)

return ls_return


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函数也是如此处理。 

11.显示一个与Windows操作系统风格一致的About对话框。 
首先声明如下外部函数： 
function int ShellAboutA(ulong al_hWnd, string as_szApp, string as_szOtherStuff, ulong hIcon) library "shell32" 
ShellAboutA(handle(parent),"关于... ","欢迎",0) 

12.send用法:Send(handle,message#,lowword,long) 
数据窗口中按enter键实现tab功能(在数据窗口的Enter事件中) 
自定义事件ID:pbm_dwnprocessenter里写如下代码: 
Send(Handle(This),256,9,Long(0,0)) 

说明:This代表DW;Handle代表DW的句柄;256代表TAB键;9代表不加入shift键,7代表加入;Long(0,0)代表预留空位. 

send(handle(this),256,9,long(0,0)) 
return 1 
//This statement scrolls the window w_emp up one page: 
Send(Handle(w_emp), 277, 2, 0) 
//Both of the following statements click the CommandButton cb_OK: 
Send(Handle(Parent), 273, 0, Handle(cb_OK)) 
cb_OK.TriggerEvent(Clicked!) 
//minimizes the DataWindow: 
Send(Handle(dw_1), 274, 61472, 0) 
//maximizes the DataWindow: 
Send(Handle(dw_1), 274, 61488, 0) 
//returns the DataWindow to its normal, defined size: 
Send(Handle(dw_1), 274, 61728, 0) 

13．如何使PB窗口总在最上层(Always On Top) 
通过SetWindowPos函数把窗口的显示层次修改为HWND—TOPMOST，就可使指定窗口永远不会被其它窗口覆 
盖，该函数声明为： 
Function Long SetWindowPos(Long hwnd,Long ord,Long x,Long y,Long dx,Long dy,Long uflag) Library ″user32″ 
参数1为要顶层显示的窗口句柄，参数2指定显示的层次，参数7为附加选项，其余参数指定窗口位置和 
大小，均可忽略。在窗口的Open或Activate事件中加入如下函数调用： 
SetWindowPos(Handle(This),-1,0,0,0,0,3) 
参数2取-1表示在最顶层显示窗口，取1表示在最底层显示；最后一个参数若取1，表示窗口大小保持不 
变，取2表示保持位置不变，因此，取3(=1＋2)表示大小和位置均保持不变，取0表示将窗口的大小和 
位置改变为指定值。 

14．在PB中如何获得光盘盘符 
通过GetDriveType函数可以获取驱动器(如：软驱、硬盘、光驱、网络映射驱动器等)的信息，该函数 
声明为： 
Function Uint GetDriveTypeA(String drive) Library ″kernel32.dll″ 
参数为一个盘符(如"C:")，返回值：1表示未知，2表示软驱，3表示本地硬盘，4表示网络驱动器，
5表示光驱。因此如下代码可以获得光盘的盘符： 
For i=Asc(′D′) to Asc(′Z′) 
//列举所有可能的CDROM驱动器 
　　If GetDriveTypeA(Char(i)＋″:″)=5 Then 
//若找到CDROM 
MessageBox(″CDROM″,Char(i)＋″:″) 
//显示光盘盘符 
Exit //退出列举 
　　End If 
Next 

15．在PB中如何获取目录信息 
⑴获取当前目录。通过GetCurrentDirectory函数可以获取当前目录，该函数声明为： 
Function Ulong GetCurrentDirectoryA(Ulong buflen, ref String dir) Library ″kernel32.dll″ 
参数2为接收当前目录的字符缓冲区，前面必须加ref表示地址引用；参数1用来指定字符缓冲区的长度。 
调用过程为： 
String curdir 
curdir=Space(256) 
//为字符缓冲区开辟内存空间 
GetCurrentDirectoryA(256,curdir) 
MessageBox(″Current Directory″,curdir) 
⑵获取Windows及系统目录。要用到GetWindowsDirectory和GetSystemDirectory两个函数，须作如下声明： 
Function Uint GetWindowsDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″ 
Function Uint GetSystemDirectoryA(ref String dir,Uint buflen) Library ″kernel32.dll″ 

16．在PB中如何注销当前用户、关闭计算机、重启计算机 
通过ExitWindowsEx函数可实现这三个功能，首先作如下声明： 
Function Long ExitWindowsEx(Long uflag,Long nouse) Library ″user32.dll″ 
参数2保留不用，可取0；参数1取0可以注销当前用户，取1可以关闭计算机，取2可以重启计算机，其值 
再加4表示强制结束"未响应"的进程。 

17．控制由Run运行的程序(简称Run程序) 
在PB程序设计中，可以用Run()来运行一些程序。比如用户按了F1，就运行一个chm文件。但Run程序无法 
与PB主程序协调工作，若用户按了多次F1，就会启动Run程序的多个实例，主程序退出时，Run程序依然 
运行。可以用如下函数来使它们协调工作： 
Function Ulong FindWindowA(Ulong classname, String windowname) Library ″user32.dll″ 
Function Long SetParent(Long childwin,Long parentwin) Library ″user32.dll″ 
⑴使Run程序只运行一个实例 
handle=FindWindowA(nul,wtitle) 
//查找Run程序是否已经运行，wtitle为Run程序的标题 
IF handle〉0 Then Return 
//若已经在运行就返回 
Run(″C:Program FilesJointJoint.chm″) 
//否则运行Run程序 
⑵PB主程序退出时，Run程序也关闭 
handle=FindWindowA(nul,wtitle) 
SetParent(handle,Handle(w—main)) 
//使Run程序窗口成为PB主程序的子窗口 

18．映射网络驱动器 
若要在程序中把远程主机的资源映射到本地驱动器，可以用如下函数： 
Function long WNetAddConnectionA(String path,string pwd,String drv) Library ″mpr.dll″ 
19.在PB中如何打开一个文件(如.txt，.doc)，就像在资源管理器中双击打开文件一样？ 
答：可以通过API函数来实现。 
在应用程序的Global External Functions中定义： 
Function long ShellExecuteA(ulong hwnd, string lpOperation, string lpFile, ＆ string 
lpParameters, string lpDirectory, long nShowCmd) library "shell32.dll” 
调用如下： 
String ls_null 
SetNull(ls_null) 
ShellExecuteA(Handle(Parent), ls_null, "c:dochello.txt”, ls_null, ls_null, 1) 
20.PB中实现淡入淡出效果 
声明API： 
function Boolean AnimateWindow( ulong hwnd, long dwTime, long dwFlags) library 'user32.dll' 
窗口 open事件: 
////--------------------------------------------------------------- 
long ll_handle 
ll_handle = Handle ( this ) 
AnimateWindow ( ll_handle , 1000, 524288+16)//淡进 
//////-------------------------------- ------------------------ 
窗口close事件 
AnimateWindow ( Handle ( This ) , 300, 524288+ 65536 + 16)//淡隐 

21.SendMessage API函数在PowerBuilder中应用 
一、引言 
在Powerbulider巧妙地调用API函数SendMessage，可以完成Pb中的一些用常规的方法而很难实 
现的功能，特将对该api函数在Powerbuilder中的使用，例举几个方面的运用，以期起到抛砖引玉的效果(以下代码完全可以使用PowerBuilder中的Send函数替代SendMessage 这个Api函数，因起稿比较匆忙，代码未经测试) 
二、函数说明 
SendMessage函数说明: 
说明 
调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， SendMessageByString是该函数的"类型安全"声明形式 
返回值 
Long，由具体的消息决定 
参数表 
参数 类型及说明 
hwnd Long，要接收消息的那个窗口的句柄 
wMsg Long，消息的标识符 
wParam Long，具体取决于消息 
lParam Any，具体取决于消息 
Powerbuilder中已使用函数Send函数对其进行了封装 
函数原形：Send ( handle, message#, lowword, long ) 
Send函数说明: 
说明 
调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。 
返回值 
Long，由具体的消息决定 
参数表 
参数 类型及说明 
handle Long，要接收消息的那个窗口的句柄 
message# Long，消息的标识符 
lowword Long，具体取决于消息 
long long，具体取决于消息 
3、 应用举例 
定义外部函数引用声明： 
funcation long SendMessage (long hwnd As Long,long wMsg , long wParam,long lParam) Library "user32.dll" Alias for "SendMessageA" 
funcation long ReleaseCapture() Library "user32.dll" 
定义实例变量: 
Constant long LB_ITEMFROMPOINT = 425 
Constant long HTCAPTION = 2 
Constant long WM_NCLBUTTONDOWN = 161 
Constant long EM_GETLINE = 404 
Constant long EM_GETLINECOUNT = 399 
Constant long EM_GETLINECOUNT = 186 
Constant long EM_GETLINE = 196 
Constant long TVM_SETITEMHEIGHT = 4379 
Constant long EM_LINESCROLL = 182 
Constant long EM_LIMITTEXT=197 
1、列表框中鼠标移动时检测位置项 
Powerscript: 
在列表框的自定义事件ue_mousemove(pbm_mousemove)中写入如下代码： 
pos = unitstopixels(parent.pointerx(),XUnitsToPixels!)+ unitstopixels(parent.pointery(),yUnitsToPixels!) * 65536 
idx = SendMessage(handle(this), LB_ITEMFROMPOINT, 0, pos) If idx < 65536 Then sle_1.Text = lb_1.text(idx) 
2、在列表框中查找匹配的项目 
Powerscript: 
窗口的open事件： 
lb_1.AddItem ("软件") 
lb_1.AddItem("电脑游戏") 
lb_1.AddItem("电视机") 
lb_1.AddItem("电视台") 
lb_1.AddItem("电脑") 
lb_1.AddItem("电脑游戏软件") 
singlelineedit控件的modified事件： 
long li_index 
li_index= SendMessage(handle(this), EM_GETLINECOUNT, -1, sle_1.text) 
lb_1.selectitem(li_index) 
3、为ListBox添加水平滚动条 
Powerscript: 
窗口的open事件： 
lb_1.AddItem("软件") 
lb_1.AddItem("电脑游戏") 
lb_1.AddItem("电视机") 
lb_1.AddItem("电视台") 
lb_1.AddItem("电脑") 
lb_1.AddItem("电脑游戏软件") 
SendMessage (handle(this), EM_GETLINE, 250, 0) 
4、实现拖动无标题栏窗体 
Powerscript: 
在窗口的自定义事件ue_lbuttondown(pbm_lbuttondown) 
long ReturnVal 
x = ReleaseCapture() 
ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) 
5、获取多行文本框行数 
Powerscript: 
Commandbutton的clicked事件 
Messagebox("", SendMessage(handle(mle_1), EM_GETLINECOUNT, 0, 0)) 
6、设置树型列表控件标题行高度 
Powerscript: 
tv_1的constructor事件： 
SendMessage(handle(tv_1), TVM_SETITEMHEIGHT, 60, 0) 
7、突破Powerbuilder中的多行文本框32k的限制 
Powerscript: 
SendMessage(handle(mle_1), EM_LIMITTEXT, 65534, 0) 
8、用程序代码控制文本框的滚行与滚列 
Powerscript: 
SendMessage(handle(sle_1), EM_LINESCROLL, 0, 1)//下卷一行 
SendMessage(handle(sle_1), EM_LINESCROLL, 0, -1)//上卷一行 
SendMessage(handle(sle_1), EM_LINESCROLL, 1, 0)//右卷一列 
SendMessage(handle(sle_1), EM_LINESCROLL, -1, 0)//左卷一列 
三、结束语 
在编写Powerbuilder应用时，应该充分调用相关的api函数来扩充pb的一些不足。