澳门二十一点游戏赌场 澳门二十一点游戏赌场
    您现在的位置:首页 >> 软件应用 >> SQL教程 >> 内容

    等待提示窗口

    时间:2012/7/23 20:07:50 点击:

      核心提示:*// 使用:*// WaitWindows('这是一个提示')*// 可以反复调用,如WaitWindows('这是提示1')、WaitWindows('这是提示2')*// 清除:*// Wait...

    *// 使用:
    *// 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

    作者:佚名 来源:不详

    共有评论 0相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 澳门二十一点游戏赌场(www.0769online.com) © 2018 版权所有 All Rights Reserved. 邮箱:103150@qq.com 业务QQ:103150 手机:13549753683

    Power By Laoy8 SQL 3.0SP1 粤ICP备10098668号
  •