Pb的Yield()函数使用浅谈
来源:互联网 发布:淘宝毛毛熊代购 编辑:程序博客网 时间:2024/05/05 08:43
Yield()函数的功能是将控制权转移给其它图形对象,包括非 PowerBuilder对象。该函数检测消息队列,如果有消息,就把消息取出。
该函数返回布尔型值,如果在消息队列中提取到了消息,那么函数返回 TRUE,否则返回 FALSE。。利用该函数可以在执行耗时较长的操作时把控制权转让给其它应用。
用法正常情况下, PowerBuilder应用程序在执行一段代码(比如正在检索数据或者执行一段循环程序)的过程中不响应用户的操作。对耗时短暂的代码段来说,这种处理方式没有什么不妥的地方,但是,如果某个代码段的执行耗时较长(比如在大量数据检索或循环执行的代码中),应用程序又希望为用户提供更多的控制权,那么需要在这段代码中插入 Yield()函数,让用户能够进行其它操作,比如,允许用户按下其他窗口的“取消”按扭,而该按扭又改变了某个全局(共享)变量,在 Yield()函数接下来的代码中便可判断该全局(共享)变量的值,以决定下一步的操作。应用程序执行 Yield()函数后,如果发现消息队列中存在消息,它将允许对象处理这些消息,处理之后,继续 Yield()函数后面代码的执行。
虽然用户在检索时不能做其他的事情,但是当你将 Yield()函数放在 RetrieveRow事件中时,用户能够同时运行其他的应用程序。当然,代码中插入 Yield()函数将降低应用程序的运行效率。
示例 1.
下面的代码执行一段耗时较长的过程,在其中我们插入了 Yield()函数,当用户单击窗口上的“取消”按钮时,终止这段代码的执行,其中使用共享变量 sb_interrupt来指示用户是否单击了“取消”按钮:
integer n
// sb_interrupt是共享变量
sb_interrupt = FALSE
FOR n = 1 to 3000
Yield()
IF sb_interrupt THEN
// sb_interrupt的值在“取消”按钮的 Clicked事件处理程序中修改
MessageBox("调试 ","用户中断 !")
sb_interrupt = FALSE
EXIT
ELSE
... // 其它处理
END IF
NEXT
“取消”按钮的 Clicked事件处理程序可以写为: sb_interrupt = TRUE
示例 2.
在本例当中,程序在交互 频诙龃翱谕笨梢源淼谝桓龃翱诘氖录H绻挥衁ield()函数,用户也可以控制第二个窗口,但在循环完成之前不能看到窗口焦点的变化。
integer n
FOR n = 1 to 3000
Yield()
... // Some processing
NEXT
示例 3.
In this example, a script wants to open a DDE channel with Lotus Notes, whose executable name is stored in the variable mailprogram. If the program isnt running, the script starts it and loops, waiting until the programs startup is finished and it can establish a DDE channel. The loop includes Yield, so that the computer can spend time actually starting the other program:
time starttime
long hndl
SetPointer(HourGlass!)
//Try to establish a handle; SendMail is the topic.
hndl = OpenChannel("Notes","SendMail")
//If the program is not running, start it
IF hndl $#@60; 1 then
Run(mailprogram, Minimized!)
starttime = Now()
// Wait up to 2 minutes for Notes to load
// and the user to log on.
DO
//Yield control occasionally.
Yield()
//Is Notes active yet?
hndl = OpenChannel("Notes","SendMail")
// If Notes is active.
IF hndl $#@62; 0 THEN EXIT
LOOP Until SecondsAfter(StartTime,Now()) $#@62; 120
// If 2 minutes pass without opening a channel
IF hndl $#@60; 1 THEN
MessageBox("Error", &
"Cant start Notes.", StopSign!)
SetPointer(Arrow!)
RETURN
END IF
END IF
- Pb的Yield()函数使用浅谈
- Pb中Yield()函数的使用
- yield()函数的使用
- 浅谈PB使用心得
- python当中的yield函数具体如何使用
- python的yield使用
- python的yield使用
- pb的opensheet函数
- PB函数的调用
- pb的find函数
- 浅谈PB中使用ole控件
- 浅谈如何查阅PB利用OLE操作WORD、EXCEL的函数?(原创)
- PB的FIND函数的使用中的一个常犯错误
- PB的使用
- pb文件的使用
- [PB]pb控件的使用样例
- Python生成器:yield的使用
- java yield的简单使用
- oracle权限与角色
- 【转载】C++ string详解
- 小评《卓有成效的程序员》—《The Productive Programmer》
- 为右键增加菜单项目
- Visual Studio 2010 和 .NET FX 4 Beta 1 发布了!
- Pb的Yield()函数使用浅谈
- 程序员手中的利器(1)--工欲善其事必先利其器
- VB中感叹号“!”与圆点“.”的用法差异
- Get System Drives Information
- RAID0、RAID1、RAID0+1、RAID5原理介绍
- CSS white-space 属性
- 用户权限管理
- 爱
- MS-sql 2005拒绝了对对象 ''xxx'' (数据库 ''xxx'',架构 ''dbo'')的 SELECT 权限的解决方法