通用对话框

一、最简单的信息提示框Dlg

格式：

Dlg(参数)

参数可以是字符串，如Dlg(“今天是星期天”)，也可以是数字，如Dlg(23.56)。这就是W语言的优点，很多地方不需要变量转换。

函数没有返回结果。

示例代码：

 ss=WeekStr()

 Dlg("今天是:"+ss)

结果如图所示：

 

二、条件提示框Dlgif

格式：

Dlgif(条件关系，提示内容)

当条件关系满足时，显示提示内容。如：Dlg(1<2,”1小于2条件正确”)

 

三、最实用的信息提示框Msg

使用函数Msg(按钮类型,"标题名","第1行提示"，"第2行提示","第n行提示")

提示行数可变。

按钮类型取值及说明如下：

ABORTRETRYIGNORE：终止、重试、忽略

OK:确定

OKCANCEL:确定、取消

RETRYCANCEL:重试、取消

YESNO：是、否

YESNOCANCEL：是、否、取消

 

返回值为字符串，描述如下：

"ABORT"：终止

"CANCEL"：取消

"IGNORE"：忽略

"NO"：否

"OK"：确定

"RETRY"：重试

"YES":是

 

如： 

bn=Msg("YesNo","提示","第一行","第三行","第三行","第四行")

Dlg("返回值="+bn)

 

显示结果为：

 

四、通用输入框DlgIn

通用输入框是一个常用的对象，主要有以下几个函数组成：

1、DlgIn.Init("Ed1","Ed2","EdN")

对话框初始化，定义输入框的数目及名称。

输入框的名称按定义的数目依次为：Edit1,Edit2,Edit3....，比如定义：

DlgIn.Init("编号","名称","班级")

要获取“编号”的输入值：

no=DlgIn.Edit1.V

要获取“班级”的输入值：

class=DlgIn.Edit3.V

//

2、Dlgin.EdWidth(wd)

设置输入框的宽度。

3、DlgIn.ShowModal()

显示对话框。

4、DlgIn.Title(caption)

设置对话框的标题名。

 

示例程序：

 Dlgin.Init("第一项","第二项","第三项","第四项")

 bn=Dlgin.ShowModal()

  ifbn="OK" then

   a1=Dlgin.EDIT1.N

   a2=Dlgin.EDIT2.N

   a3=Dlgin.EDIT3.N

   a4=Dlgin.EDIT4.N

   a5=a1+a2+a3+a4

   Dlg("四项之和等于"+a5)

  endif

 

显示结果：

 

五、日期对话框DateDlg

用于显示日期，选择日期

1、设置日期：

DateDlg.V='2012-12-21'

2、获取日期：

ss=DateDlg.V

3、显示对话框

DateDlg.Dlg()或DateDlg.ShowModal()

 

示例程序：

 bn=DateDlg.Dlg()

  ifbn="OK" then//确定

   ss=DateDlg.V

   Dlg("所选择的日期为："+ss)

  endif

显示结果：

 

六、打开文件对话框ODLG

打开文件对话框对象为ODLG,其属性及函数有：

1、ODLG.SHOWMODAL()或ODLG.Dlg()

显示对话框，返回结果为：

  OK：确定

 CANCEL：取消

 

2、ODLG.Ext(str)

设置扩展名。

 

3、ODLG.List或ODLG.Files

返回多选情况下的文件列表。

 

4、ODLG.File或ODLG.FileName

返回所选的文件名。

 

5、ODLG.Filter(str)

设置过滤条件，如过滤文本文件，写法如下：

“文本文件|*.TXT”

说明与过滤值间以“|”号隔开，如果是多项过滤条件，写成列表形式即可，如：

“文本文件|*.TXT

执行文件|*.EXE

其他文件|*.*”

 

6、ODLG.Dir(path)

设置初始目录。

 

示例程序：

  ODLG.Ext("TXT")

  ODLG.Filter("文本文件|*.TXT")

   ifODLG.Dlg()="OK" then

    Dlg("你选择了文件："+ODLG.FileName)

  end if

 

显示结果：

 

七、保存文件对话框SDLG

保存文件对话框对象为SDLG,其属性及函数有：

1、SDLG.SHOWMODAL()或SDLG.Dlg()

显示对话框，返回结果为：

  OK：确定

 CANCEL：取消

 

2、SDLG.Ext(str)

设置扩展名。

 

3、SDLG.List或SDLG.Files

返回多选情况下的文件列表。

 

4、SDLG.File或SDLG.FileName

返回所选的文件名。

 

5、SDLG.Filter(str)

设置过滤条件，如过滤文本文件，写法如下：

“文本文件|*.TXT”

说明与过滤值间以“|”号隔开，如果是多项过滤条件，写成列表形式即可，如：

“文本文件|*.TXT

执行文件|*.EXE

其他文件|*.*”

 

6、SDLG.Dir(path)

设置初始目录。

 

示例程序：

  SDLG.Ext("TXT")

  SDLG.Filter("文本文件|*.TXT")

   ifSDLG.Dlg()="OK" then

    Dlg("你选择了文件："+SDLG.FileName)

   end if

 

显示结果

 

八、打开图形文件对话框PODLG

打开文件对话框对象为PODLG,其属性及函数有：

1、PODLG.SHOWMODAL()或PODLG.Dlg()

显示对话框，返回结果为：

  OK：确定

 CANCEL：取消

 

2、PODLG.Ext(str)

设置扩展名。

 

3、PODLG.List或PODLG.Files

返回多选情况下的文件列表。

 

4、PODLG.File或PODLG.FileName

返回所选的文件名。

 

5、PODLG.Filter(str)

设置过滤条件，如过滤文本文件，写法如下：

“文本文件|*.TXT”

说明与过滤值间以“|”号隔开，如果是多项过滤条件，写成列表形式即可，如：

“文本文件|*.TXT

执行文件|*.EXE

其他文件|*.*”

 

6、PODLG.Dir(path)

设置初始目录。

 

示例程序：

  PODLG.Ext("BMP")

  PODLG.Filter("BMP文件(*.BMP)|*.BMP")

   ifPODLG.Dlg()="OK" then

    Dlg("你选择了文件："+PODLG.FileName)

   endif

 

显示结果：

 

 

九、保存图形文件对话框PSDLG

保存文件对话框对象为PSDLG,其属性及函数有：

1、PSDLG.SHOWMODAL()或PSDLG.Dlg()

显示对话框，返回结果为：

  OK：确定

 CANCEL：取消

 

2、PSDLG.Ext(str)

设置扩展名。

 

3、PSDLG.List或PSDLG.Files

返回多选情况下的文件列表。

 

4、PSDLG.File或PSDLG.FileName

返回所选的文件名。

 

5、PSDLG.Filter(str)

设置过滤条件，如过滤文本文件，写法如下：

“文本文件|*.TXT”

说明与过滤值间以“|”号隔开，如果是多项过滤条件，写成列表形式即可，如：

“文本文件|*.TXT

执行文件|*.EXE

其他文件|*.*”

 

6、PSDLG.Dir(path)

设置初始目录。

 

程序示例：

  PSDLG.Ext("BMP")

  PSDLG.Filter("BMP文件(*.BMP)|*.BMP")

   ifPSDLG.Dlg()="OK" then

    Dlg("你选择了文件："+PSDLG.FileName)

   endif

 

显示结果：