等待提示窗口
来源:互联网 发布:java代码审查工具 编辑:程序博客网 时间:2024/06/09 16:46
*// 使用:
*// WaitWindows("这是一个提示")
*// 可以反复调用,如WaitWindows("这是提示1")、WaitWindows("这是提示2")
*// 清除:
*// WaitWindows()
*//------------------------------
*// 登待窗口
*//------------------------------
FUNCTION WaitWindows
PARAMETERS PP_INFO
IF EMPTY(PP_INFO)
RELEASE Sys_Message_Wait
RETURN
ENDIF
PUBLIC LP_INIFO
LP_INFO = PP_INFO
PUBLIC Sys_Message_Wait
Sys_Message_Wait=CREATEOBJECT("mess_form")
Sys_Message_Wait.Show()
INKEY(0.1,"H")
RETURN
**************************************************
DEFINE CLASS mess_form AS form
Height = 64
Width = 480
DoCreate = .T.
Caption = ""
ControlBox = .F.
Closable = .F.
FontSize = 11
MaxButton = .F.
MinButton = .F.
Movable = .F.
BorderStyle = 2
BackColor = RGB(255,255,240)
Name = "MESS_FORM"
ADD OBJECT con AS container WITH ;
Top = 0, ;
Left = 0, ;
Width = 480, ;
Height = 64, ;
SpecialEffect = 1, ;
BackColor = RGB(255,255,240), ;
Name = "CON"
ADD OBJECT image1 AS image WITH ;
BackStyle = 0, ;
Height = 39, ;
Left = 31, ;
Top = 14, ;
Width = 47, ;
Name = "Image1"
ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
FontSize = 11, ;
BackStyle = 0, ;
BorderStyle = 0, ;
Caption = "", ;
Height = 19, ;
Left = 104, ;
Top = 24, ;
Width = 322, ;
Name = "Label1"
PROCEDURE Init
LC_INFO = "提示信息!"
IF !EMPTY(LP_INFO)
LC_INFO = LP_INFO
ENDIF
THISFORM.CON.WIDTH = THISFORM.TEXTWIDTH(LC_INFO)+140
THISFORM.WIDTH = THISFORM.TEXTWIDTH(LC_INFO)+140
THISFORM.AUTOCENTER = .T.
THISFORM.LABEL1.CAPTION = LC_INFO
THISFORM.IMAGE1.PICTURE = "WAIT.BMP"
THISFORM.REFRESH()
ENDPROC
ENDDEFINE
- 等待提示窗口
- 等待提示窗口
- 等待提示窗口
- 窗口等待
- winform启动等待窗口
- 简单的等待窗口
- 等待窗口线程关闭
- android(5) 等待窗口
- 页面等待窗口
- Ext 等待提示
- Winform 等待...提示
- 请等待提示
- 网络等待提示框......
- Dev 等待提示 WaitDialogForm
- 提示窗口
- 提示窗口
- 小东西WinForm的等待窗口
- C#_WinForm的等待窗口
- 软件版本号的研究
- Web-Based Enterprise Management (WBEM) Initiative
- BT848电视卡复活
- 利用ATL实现QuickTime多媒体文件播放
- 数字转换为大写(vfp)
- 等待提示窗口
- 用VBScript制作个人网站搜索引擎
- 视图切换
- The Ultimate (DLL) Header File
- JOIN
- CREATE TABLE – SQL Command
- ATL接口映射宏详解
- 像qq一样变换图标
- 消息与消息队列