| WideStudio Programming Guide | WideStudio Index Table of contents

> ## 用户对话框

> ### 作成简单的用户对话框

> 利用WSCdialog 制作具有以下功能的简单用户对话框。
> - 点击某按钮时，显示对话框。
> - 在对话框上有输入字段和无线按钮组。
> - 对话框结束时，核对输入是否正确。
> - 在标签中显示对话框的输入结果。

> [使用用户对话框的范例]
> 这个范例，作为ws/sampes/Ruby/dialog/newproject.prj 提供。

> ### 用户对话框的自动启动控制

> 将在提供的ws/sampes/share/dialog/newproject.prj范例基础上，实现用户对话框的自动启动控制。 对话框往往作为输入或显示专用窗口被使用。因此，作为通常窗口制作时有难处理情况。 譬如，想从多个事件过程调用同样的对话框时。
> 此时，如果作为普通的窗口进行处理的话，对话框的输入是否结束的判断处理就复杂。 然而，如果制作为对话框的话，对话框输入结束后，可以通过popup函数实现同期回归处理， 可简单地通过事件过程对对话框的输入进行控制。
> 下图中，显示了当被显示窗返回结果时的普通窗口和对话框的差异。

> [使用普通窗口和对话框的差异]
> 接着，我们将逐顺序说明简单对话框的处理次序。 首先制作对话框。制作WSCdialog Class的一个Instance。 然后在对话框上部署各种对象。在范例中，部署了下列对象。
> - WSCvifield* newvifi_003
> - WSCradioGroup* newradi_006

> [简单的用户对话框例子]
> 然后，记述点击对话框的 OK，NO，CANCEL 按钮时所做的处理。 通过对话框 ACITVATE 触发器，连接事件过程。使用该这个事件过程， 可以确认对话框输入值是否正确，如果不正确，通过消息对话框显示错误。

>     #----------------------------------------------------------
>     #Function for the event procedure
>     #----------------------------------------------------------
>     def dialogep(object)
>       if object.getStatus() != Mpfc::WS_DIALOG_OK    # A
>         object.setVisible(Mpfc::False)
>         return
>       end

>       str = $newvifi_003.getProperty("labelString")
>       if str.getCharPtr() == ""              # B
>         msg = Mpfc::WSGIappMessageDialog()
>         msg.setProperty("defaultPosition",Mpfc::True)
>         msg.setProperty("width",500)
>         msg.setProperty("labelString",
>                "Please input some string to the input field.")
>         msg.popup()                         # C
>         return
>       end
>       val = $newradi_006.getProperty("value")
>       if val == 0                            # D
>         msg = WSGIappMessageDialog()
>         msg.setProperty("defaultPosition",Mpfc::True)
>         msg.setProperty("width",500)
>         msg.setProperty("labelString","Please select a item of the radio group.")
>         msg.popup()                         # E
>         return
>       end
>       object.setVisible(Mpfc::False)         # F
>     end

> 首先，取得事件过程对话框的Class pointer。通过访问对话框类 固有的getStatus 函数，确认被按按钮的种类。
> A ，不是对话框类的情况，结束事件过程。
> B ，核对被按按钮。OK 按钮以外，不显示对话框。
> C 判断 newvifi_003中的输入。没被输入的情况，D 显示消息对话框，然后结束处理。
> E 判断newradi_006是否被选择。没被选择的情况，用F显示消息对话框，然后结束处理。
> 下面是调出对话框的事件过程例子。

> [调用用户对话框画面的例子]
> 按下[dialog！]按钮时，对话框将被显示，输入结果将被显示在3个标签上。 在第1个的标签上，显示对话框的 OK，NO，CANCEL 按钮被按时的结果。 第2个标签上，显示被输入newvifi_003的结果，第3个标签上，显示newradi_006被选择的结果。

>     #----------------------------------------------------------
>     #Function for the event procedure
>     #----------------------------------------------------------
>     def btnep(object)
>       val = newdial_001.popup()
>       if val == Mpfc::WS_DIALOG_OK
>          newvlab_007.setProperty("labelString","DIALOG OK!")
>       elsif val == Mpfc::WS_DIALOG_NO
>          newvlab_007.setProperty("labelString","DIALOG NO!")
>       elsif val == Mpfc::WS_DIALOG_CANCEL
>          newvlab_007.setProperty("labelString","DIALOG CANCEL!")
>       end

>       tmp = newvifi_003.getProperty("labelString")
>       tmp2 = "INPUT:" + tmp.getCharPtr()
>       newvlab_010.setProperty("labelString",tmp2)

>       val = newradi_006.getProperty("value")
>       tmp2 = "SELECT: " + val.getCharPtr()
>       newvlab_011.setProperty("labelString",tmp2)
>     end

Document Release 3.70 for WideStudio ver 3.70, May 2004

WideStudio documents index | Table of contents

Copyright(C) WideStudio Development Team, 1999-2004 | Last modified: May 25, 2004