PB中消息对话框的居中显示

转载 2012年03月31日 09:45:11

PB中消息对话框的居中显示

(加入日期:2001-4-12)

保存文章至硬盘】【打印文章】【字体:

分享到: 0
上海大学 孙渊磊

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 if
of_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 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
//计算子窗口的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下通过。 

PB中消息对话框的居中显示

PB中消息对话框的居中显示上海大学 孙渊磊 SharedObject系列函数和共享对象有关的函数包括:SharedObjectRegister、SharedObjectGet、SharedObject...
  • nthb2001
  • nthb2001
  • 2001年07月03日 16:23
  • 598

怎样让弹出对话框居中显示

方法一:function opW(){var ye=window.open(,yexj00,width=400,height=200); ye.moveTo((screen.availWidth-40...
  • Terry001
  • Terry001
  • 2007年06月26日 02:08
  • 1949

VC++对话框(CDialog)的全屏显示及控件居中显示

在编写一些软件时,我们会比较偏向于比较简洁、清新的用户界面,同时为了避免其它程序或者桌面等影响使用者的注意力等,我们通常习惯将软件界面全屏,布满整个显示屏幕,与此同时,我们也将对界面中的控件位置进行相...
  • margin1988
  • margin1988
  • 2015年01月07日 15:48
  • 1940

MFC对话框屏幕居中

// 对话框屏幕居中 ShowWindow(SW_NORMAL); CRect rtDesk; CRect rtDlg; ::GetWindowRect(::GetDesktopWindow(...
  • friendan
  • friendan
  • 2015年11月06日 21:53
  • 6062

pb 程序之间的消息传递

一、发送消息long   ll_handle,ll_rtnstring ls_msg,ls_lenBlob   lblob_sndll_handle = long(profilestring(guo_...
  • hsfeng75
  • hsfeng75
  • 2010年04月01日 11:45
  • 443

MFC在父对话框中嵌入子对话框

一、对话框中显示对话框的方法:   1、首先创建要在对话框里显示的那个对话框,命名为:IDD_Dialog_Status。   设置这个对话框的属性:   1)、“Style”选择“Child”...
  • liuyi1207164339
  • liuyi1207164339
  • 2015年07月02日 18:26
  • 2054

VC++ 对话框消息传递

声明:本人一个菜鸟,网上搜罗了很多关于VC++编程的资料,可每本资料都是涵盖面太广,难以细致。英语又太烂,所以不得意只得摸索,恐又忘记所以记在此处,若有不对的地方,烦劳指出,不胜感激。 author...
  • fym0121
  • fym0121
  • 2012年05月04日 22:55
  • 2088

Win32 SDK开发中对话框控件消息处理

LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam){ switch (message)...
  • wjt_bc
  • wjt_bc
  • 2010年05月28日 10:45
  • 1206

常用对话框:消息对话框

使用Windows系统的过程中经常会见到消息对话框,提示我们有异常发生或提出询问等。因为在软件开发中经常用到消息对话框,所以MFC提供了两个函数可以直接生成指定风格的消息对话框,而不需要我们在每次使用...
  • I_amKing
  • I_amKing
  • 2014年12月08日 07:16
  • 690

PB发送和接收消息send SendMessage

PB发送和接收消息send SendMessage1.用PB自带的SEND函数发送消息 传字符:Send(Handle(w_main),1600,0,'dfdfd') 传LONG:Send(Handl...
  • jeron12345
  • jeron12345
  • 2010年06月08日 12:25
  • 1858
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:PB中消息对话框的居中显示
举报原因:
原因补充:

(最多只允许输入30个字)