等待提示窗口
来源:互联网 发布:纳粹飞碟 知乎 编辑:程序博客网 时间:2024/04/30 15:07
*// 使用:
*// 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的等待窗口
- com.joybase.DB的源代码(1)
- Microsoft SQL Server 7.0储存过程调试指南
- 使用 ECMA 标准:Miguel de Icaza 访谈
- 远程数据访问的解决方案
- ASP+ 学习笔记 4
- 等待提示窗口
- 在.net中轻松掌握Windows窗体间的数据交互(二)
- asp.net中用sqlclient访问数据库出错解决办法
- ASP+ 学习笔记 2
- 对话整理:关于namespace!
- 更改Oracle数据库表的表空间
- COM, COM+ and .NET 的区别(转)
- 数据库并发处理
- 什么是ASP+?(二)