WAIT信息屏幕居中 函数

其它问题 | 2015-04-01 00:35:09 | 阅读 997 次 | 评论(0)



** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
* 名称:WAIT信息屏幕居中 函数
* 作者:宋**
* 公司:SYRSOFT(R) 上海 中国
* 声明:版权所有(C)宋** 保留所有权利
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
* 语法 MsgCent(cExpression [,nModel])
* 参数 
* cExpression
* 指定要显示的自定义信息。若省略cExpression参数,则显示“按任
* 意键继续...”默认信息。若cExpression参数为空字符串,则不显示
* 信息,直到按某个键才结束等待,继续执行程序。
* nModel
* 指定显示框模式。若省略nModel参数,则为默认模式;1 指定在显示
* 信息后,立即继续执行程序,且WAIT信息窗口保留在VisualFox\0Pro主
* 窗口中,直到发布WAIT CLEAR或另一条命令WAIT WINDOW。
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
Function MsgCent
Parameters cMessageText,nModel
if type('cMessageText')#'C'
    cMessageText='按任意键继续...'
endif
if type('nModel')#'N'
    nModel=0
else
    if between(nModel,0,1)=.F.
        nModel=0
    endif
endif
do case
    case nModel=0
        wait window cMessageText at srow()/2,(scols()-len(cMessageText))/2
    case nModel=1
        wait window cMessageText at srow()/2,(scols()-len(cMessageText))/2 noclear nowait
endcase
EndFunc

来源:http://www.mzvfp.com/read.php?tid=47001

文章评论,共0条
游客请输入验证码
浏览240615次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...