PB中消息对话框的居中显示
2024-07-21 02:10:20
供稿：网友
pb中消息对话框的居中显示
上海大学 孙渊磊
sharedobject系列函数和共享对象有关的函数包括：sharedobjectregister、sharedobjectget、sharedobjectunregister和sharedobjectdirectory函数。首先，用sharedobjectregister函数初始化共享对象，并建立一个单独的线程。如：sharedobjectregister (“ccuo_thread” ,“thread1” )其中ccuo_thread是一个共享的自定义类用户对象的类名，thread1是共享对象实例的共享名。如果sharedobjectregister函数返回success，则新线程创建成功。然后，执行指定代码。有两种方法让新线程执行指定的代码：一种是在自定义类用户对象的constructor事件中编写脚本，新线程创建后就会自动执行该事件脚本；另一种方法是使用sharedobjectget函数。该函数实现共享对象实例的引用，如：sharedobjectget ( “thread1” ,inv_thread ) 其中inv_thread是用来存储共享对象实例的一个对象变量，要求与ccuo_thread具有同一个类名。最后，通过使用post语句，即以inv_thread.post of_function(agrs)的形式，异步调用共享对象的函数of_function。在完成任务后，可以用sharedobjectunregister函数中止线程，也可用sharedobjectdirectory函数列出所有有效的共享对象。函数调用部分本文所用win32 api函数原型为：function ulong findwindowa ( string lpclassname ,string lpwindowname ) library “user32.dll”function ulong gettickcount ( ) library “kernel32.dll” function ulong getdesktopwindow ( ) library “user32.dll” function boolean getwindowrect ( ulong hwnd ,ref stc_rect lprect ) library “user32.dll”function boolean movewindow ( ulong hwnd ,int x ,int y ,int nwidth ,int nheight ,boolean brepaint ) library “user32.dll” 下面具体讨论如何实现消息对话框的居中显示：//声明对象变量ccuo_thread lccuo_thread //创建新线程sharedobjectregister (‘ccuo_thread’ ,‘thread_center’ )//引用实例sharedobjectget (‘thread_center’ ,lccuo_thread ) //调用窗口居中函数lccuo_thread.post of_center (‘＃32770’ ,‘demostration’ ,2000 ) //创建消息对话框messagebox ( ‘demostration’ ,‘copyright(c) 2001 by y.l.sun’ ) //中止线程sharedobjectunregister ( ‘thread_center’ ) 函数实现部分实现窗口居中显示的函数是自定义类用户对象ccuo_thread的对象函数of_center，其实现代码如下：ccuo_thread.of_center ( string lpclassname ,string lpwindowname , ulong dwtimeout ) return boolean//lpclassname： 消息对话框的类名（＃32770）//lpwindowname： 消息对话框的标题//dwtimeout： 超时计数ulong lul_hwnd //存放消息对话框的句柄ulong lul_start //计时开始时刻的值lul_start = gettickcount ( ) //计时开始do//查找顶层窗口lul_hwnd=findwindowa ( lpclassname ,lpwindowname )//找到顶层窗口后，跳出循环if lul_hwnd <> 0 then exit//判断是否已超时loop while gettickcount( )－lul_start< dwtimeout //没有找到消息对话框if lul_hwnd = 0 then return false else//对话框居中return of_center ( 0 ,lul_hwnd ) end ifof_center的重载函数代码如下：ccuo_thread.of_center ( ulong hwndp ,ulong hwndc ) return boolean//hwndp：父窗口的句柄，值为0时认为是桌面//hwndc：子窗口的句柄 int li_x //窗口的x坐标int li_y //窗口的y坐标stc_rect lstc_parent //父窗口的4边坐标stc_rect lstc_child //子窗口的4边坐标//值为0时认为是桌面if hwndp = 0 then hwndparent = getdesktopwindow ( ) //获得窗口的4边坐标if not getwindowrect ( hwndcurrent ,lstc_child ) then return false if not getwindowrect ( hwndparent ,lstc_parent ) then return falseli_x = (( lstc_parent.right － lstc_parent.left ) － ( lstc_child.right －lstc_child.left )) /2li_y = (( lstc_parent.bottom － lstc_parent.top ) － ( lstc_child.bottom －lstc_child.top )) /2//计算子窗口的x、y坐标if li_x < 0 or li_y < 0 then return false //移动子窗口if not movewindow ( hwndcurrent ,li_x ,li_y ,lstc_child.right －lstc_child.left ,lstc_child.bottom － lstc_child.top ,false ) then return false return true本文代码在pb 7.0下通过。国内最大的酷站演示中心!
