PB中消息對(duì)話框的居中顯示方法是什么

本篇內(nèi)容介紹了“PB中消息對(duì)話框的居中顯示方法是什么”的有關(guān)知識(shí)，在實(shí)際案例的操作過程中，不少人都會(huì)遇到這樣的困境，接下來就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)的開發(fā)，更需要了解用戶，從用戶角度來建設(shè)網(wǎng)站，獲得較好的用戶體驗(yàn)。創(chuàng)新互聯(lián)建站多年互聯(lián)網(wǎng)經(jīng)驗(yàn)，見的多，溝通容易、能幫助客戶提出的運(yùn)營建議。作為成都一家網(wǎng)絡(luò)公司，打造的就是網(wǎng)站建設(shè)產(chǎn)品直銷的概念。選擇創(chuàng)新互聯(lián)建站，不只是建站，我們把建站作為產(chǎn)品，不斷的更新、完善，讓每位來訪用戶感受到浩方產(chǎn)品的價(jià)值服務(wù)。

SharedObject系列函數(shù)
和共享對(duì)象有關(guān)的函數(shù)包括：SharedObjectRegister、SharedObjectGet、SharedObjectUnregister和SharedObjectDirectory函數(shù)。
首先，用SharedObjectRegister函數(shù)初始化共享對(duì)象，并建立一個(gè)單獨(dú)的線程。如：
SharedObjectRegister (“ccuo_thread” ,“thread1” )
其中ccuo_thread是一個(gè)共享的自定義類用戶對(duì)象的類名，thread1是共享對(duì)象實(shí)例的共享名。如果SharedObjectRegister函數(shù)返回Success，則新線程創(chuàng)建成功。
然后，執(zhí)行指定代碼。有兩種方法讓新線程執(zhí)行指定的代碼：一種是在自定義類用戶對(duì)象的constructor事件中編寫腳本，新線程創(chuàng)建后就會(huì)自動(dòng)執(zhí)行該事件腳本；另一種方法是使用SharedObjectGet函數(shù)。該函數(shù)實(shí)現(xiàn)共享對(duì)象實(shí)例的引用，如：
SharedObjectGet ( “thread1” ,inv_thread )
其中inv_thread是用來存儲(chǔ)共享對(duì)象實(shí)例的一個(gè)對(duì)象變量，要求與ccuo_thread具有同一個(gè)類名。
最后，通過使用Post語句，即以inv_thread.Post of_function(agrs)的形式，異步調(diào)用共享對(duì)象的函數(shù)of_function。
在完成任務(wù)后，可以用SharedObjectUnregister函數(shù)中止線程，也可用SharedObjectDirectory函數(shù)列出所有有效的共享對(duì)象。
函數(shù)調(diào)用部分
本文所用Win32 API函數(shù)原型為：
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”
下面具體討論如何實(shí)現(xiàn)消息對(duì)話框的居中顯示：
//聲明對(duì)象變量
ccuo_thread lccuo_thread
//創(chuàng)建新線程
SharedObjectRegister (‘ccuo_thread’ ,‘thread_center’ )
//引用實(shí)例
SharedObjectGet (‘thread_center’ ,lccuo_thread )
//調(diào)用窗口居中函數(shù)
lccuo_thread.Post of_center (‘＃32770’ ,‘Demostration’ ,2000 )
//創(chuàng)建消息對(duì)話框
MessageBox ( ‘Demostration’ ,‘Copyright(c) 2001 by Y.L.Sun’ )
//中止線程
SharedObjectunRegister ( ‘thread_center’ )
函數(shù)實(shí)現(xiàn)部分
實(shí)現(xiàn)窗口居中顯示的函數(shù)是自定義類用戶對(duì)象ccuo_thread的對(duì)象函數(shù)of_center，其實(shí)現(xiàn)代碼如下：
ccuo_thread.of_center ( String lpclassname ,String
lpwindowname , Ulong dwtimeout ) return Boolean
//lpclassname： 消息對(duì)話框的類名（＃32770）
//lpwindowname： 消息對(duì)話框的標(biāo)題
//dwtimeout： 超時(shí)計(jì)數(shù)
Ulong lul_hwnd //存放消息對(duì)話框的句柄
Ulong lul_start //計(jì)時(shí)開始時(shí)刻的值
lul_start = GetTickCount ( ) //計(jì)時(shí)開始
do
//查找頂層窗口
lul_hwnd=FindWindowA ( lpclassname ,lpwindowname )
//找到頂層窗口后，跳出循環(huán)
if lul_hwnd <> 0 then exit
//判斷是否已超時(shí)
loop while GetTickCount( )－lul_start< dwtimeout
//沒有找到消息對(duì)話框
if lul_hwnd = 0 then
return false
else
//對(duì)話框居中
return of_center ( 0 ,lul_hwnd )
end if
of_center的重載函數(shù)代碼如下：
ccuo_thread.of_center ( Ulong hwndp ,Ulong hwndc ) return Boolean
//hwndp：父窗口的句柄，值為0時(shí)認(rèn)為是桌面
//hwndc：子窗口的句柄
int li_x //窗口的X坐標(biāo)
int li_y //窗口的Y坐標(biāo)
stc_rect lstc_parent //父窗口的4邊坐標(biāo)
stc_rect lstc_child //子窗口的4邊坐標(biāo)
//值為0時(shí)認(rèn)為是桌面
if hwndp = 0 then hwndparent =
GetDesktopWindow ( )
//獲得窗口的4邊坐標(biāo)
if not GetWindowRect ( hwndcurrent ,lstc_child ) then return false
if not GetWindowRect ( hwndparent ,lstc_parent ) then return false
li_x = (( lstc_parent.right － lstc_parent.left ) －
( lstc_child.right －lstc_child.left )) /2
li_y = (( lstc_parent.bottom － lstc_parent.top ) －
( lstc_child.bottom －lstc_child.top )) /2
//計(jì)算子窗口的X、Y坐標(biāo)
if li_x < 0 or li_y < 0 then return false
//移動(dòng)子窗口
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下通過。

“PB中消息對(duì)話框的居中顯示方法是什么”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識(shí)可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！

文章標(biāo)題：PB中消息對(duì)話框的居中顯示方法是什么
網(wǎng)址分享：http://muchs.cn/article8/jepdop.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、域名注冊(cè)、標(biāo)簽優(yōu)化、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站策劃、自適應(yīng)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)