|
p>使用PowerBuilder另外500个函数(上)
乍一看到这个题目,我们可能会觉得很玄。PowerBuilder系统自身提供的函数大约只有200多个(不考虑多态函数),我们何从得到另外500多个函数呢? 我们在以前讨论过如何使用Windows API标准调用外部函数的问题。而使用过WindowsSD K编程的开发人员都知道,在USER.EXE、GDI.EXE等可执行文件和动态连接库中,Windows本身提供了大量函数。这些函数在PowerBuilder中都是可以直接调用的。这样我们的函数库就一下子又扩充了500多个。在这些API函数中,相当一部分是非常有用的,我们将分类向大家介绍。本期介绍一些在处理自动卷滚条时用到的函数。自动卷滚条缺省情况下,MDI表单是可以重新设定大小的。这样用户就可以将窗口设成比原先的小。这种情况下,必须对窗口设置卷滚条的属性,以访问窗口上的一些控件。而另一方面,除非窗口确实小到不足以显示所有的控件,否则没有必要提供卷滚条。 许多Windows的MDI应用在处理这一问题时是这样做的:当窗口小到无法显示所有控件时, 打开卷滚条;而窗口大小合适时,关闭卷滚条。PowerBuilder系统本身并没有提供自动处理上述操作的功能,但是我们自己加上这一功能是很容易的,而且实现上述自动卷滚条的功能也用不到Windows API调用,只需在MDI表单窗口的resize事件中触发另一个事件,以判断在当前窗口尺寸小于某一阈值时显示卷滚条(后面将介绍为什么要另外触发一个事件 ,而不在resize事件中直接做)。此后用户在滚动卷滚条时,窗口会自动随之滚动;当用户再次改变窗口大小并大于该阈值时,我们应该关闭卷滚条,我们仍然可以不调用Windows API而做到这一点。然而在整个例子中,真正有难度的是在关闭卷滚条之前,我们需要检查用户是否滚动了卷滚条。如果用户滚动了卷滚条,我们则应当首先将窗口移回原始状态, 这就要用到WindowsAPI函数了。因为我们需要确定:卷滚条的滚动范围、滚动块在卷滚 条上的当前位置。为了做到这一点,我们需要使用两个Windows API调用:GetScrollPos和 GetScrollRange。为了使用这两个API函数,首先在需要使用它们的窗口中将它们声明为local external函数。在Local external函数对话框中,加入如下语句:
Function int GetScrollPos(uint Handle,int Bar)Library"USER.EXE"
SubRoutine GetScrollRange(uint Handle,int Bar,Ref int MinPos,RefintMaxPos)Library"USER.EXE"
同时在该窗口中声明如下实例变量: >//判断用户是否要最小化窗口
Boolean ib_minimized=FALSE
//判断是否显示卷滚框
int ii_desired_height=1000
int ii_desired_width=2000
其中的两个整形变量ii_desired_height和ii_desired_width是用来决定什么时候打开或移去卷滚条的阈值。当然,每个窗口中都必须设置这两个变量。为了使窗口更为通用,我们也可以定义一个窗口级的函数,该函数在窗口的open事件中能分析窗口的control属性,也就是窗口内所有控件的最大值,以决定应将以上两个整形变量设置为多少。布尔型实例变量ib_minimized是用来确定用户是否正要将窗口最小化。如果是,则我们处理卷滚条时会有些不同,稍后我们将讨论这种情况。
在open事件中,加入如下语句:
this.LinesPerPage=10
this.ColumnsPerPage=10
this.UnitsPerLine=this.ii_desired_height*.009
this.UnitsPerColumn=this.ii_desired_width*.009
监视resize 接下来要监视resize事件,根据用户改变窗口大小的不同方式,改变卷滚条的状态。这里的问题是,在移去或加上卷滚条时会引起另一个resize事件。因此,在resize事件中直接改变卷滚条的状态会引起递归调用resize事件,这是我们不希望发生的。为了防止递归调用,我们要定义一些用户自定义事件,在这些事件中处理卷滚条的移去或 加入。在用户事件对话框中,输入如下值:
EventName EventID
addhscroll pbm_custom01
addvscroll pbm_custom02
removehscroll pbm_custom03
removevscroll pbm_custom04
syscommand pbm_syscommand
加入前4个自定义用户事件的语句如下:
ADDHSCROLL事件:
//加入卷滚条
this.hscrollbar=TRUE
ADDVSCROLL事件:
//加入卷滚条
this.vscrollbar=TRUE
REMOVEHSCROLL事件:
uint WinHandle
integer ScrollPos,MinPos,MaxPos
//得到窗口句柄
WinHandle=Handle(this)
//得到滚动块在卷滚条上的当前位置
ScrollPos=GetScrollPos(WinHandle,0)
//得到卷滚条的滚动范围
GetScrollRange(WinHandle,0,MinPos,MaxPos)
//滚动窗口
IF ScrollPos ＞MinPos THEN
Send(WinHandle,276,5,0)
ScrollPos = GetScrollPos ( WinHandle, 0 )
//消除滚动条
this.hscrollbar=FALSE
REMOVEVSCROLL事件:
uint WinHandle
integer ScrollPos,MinPos,MaxPos
WinHandle = Handle ( this )
ScrollPos = GetScrollPos ( WinHandle, 1 )
GetScrollRange ( WinHandle, 1, MinPos, MaxPos )
IF ScrollPos ＞ MinPos THEN
Send ( WinHandle, 277, 6, 0 )
this.vscrollbar = FALSE
我们还需要在resize事件中增加下列代码以决定什么时候调用这些自定义用户事件。
RESIZE事件:
//如用户进行的是最小化窗口的操作则返回
IF ib_minimized THEN
Return
ELSE
//否则考察是否需要卷滚条
IF this.width ＜ ii_desired_width AND NOT this.hscrollbar THEN
PostEvent (this, "AddHScroll" )
IF this.height ＜ ii_desired_height AND NOT this.vscrollbar THEN
PostEvent( this, "AddVScroll" )
IF this.width ＞ ii_desired_width AND this.hscrollbar THEN
PostEvent ( this,"RemoveHScroll" )
IF this.height ＞ ii_desired_height AND this.vscrollbar THEN
PostEvent ( this, "RemoveVScroll" )
END IF
SYSCOMMAND事件:
//如用户试图最小化窗口,则立即取消卷滚条
IF message.wordparm = 61472 THEN
ib_minimized = TRUE
this.vscrollbar = FALSE
this.hscrollbar = FALSE
ELSE
ib_minimized = FALSE
END IF
[办公软件]在sybase中插入图片、PDF、文本文件 [办公软件]安装Sybase ASE
[办公软件]linux指令大全(完整篇) [办公软件]Linux新手入门常用命令大全
[办公软件]在RedHat Linux 9里安装gaim0.80 [办公软件]浅谈Linux 下Java 1.5 汉字方块问题解决方法
[办公软件]Linux程序员必读：中文化与GB18030标准 [办公软件]linux指令大全
[办公软件]制作Linux启动盘的四种方法 [办公软件]Linux文件系统的反删除方法
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
