| WideStudio Programming Guide | WideStudio Index Table of contents

> ## 文件选择对话框

> ### 显示文件选择对话框

> 以下介绍文件选择对话框的用法。通过便利的popup函数，使用文件选择对话框。

> [文件选择对话框]
> popup函数，不仅用于显示对话框，还可以用函数返回操作者选择确认和解除等的结果。 因此，虽然叫函数，却能实现对话框的显示，以及取得对话框结束时的选择结果。 以下是使用文件选择对话框和消息对话框的范例程序。

>     #----------------------------------------------------------
>     #Function for the event procedure
>     #----------------------------------------------------------
>     use mpfc;

>     sub btnep2 {
>       my ($object) = @_;
>       # 访问文件选择对话框实例
>       $fs = mpfc::WSGIappFileSelect();                               #(A)
>       $fs->setProperty("maskFileName","pl");            #(B)
>       $fs->setProperty("defaultPosition",$mpfc::True);  #(C)
>       $ret = $fs->popup();                         #(D)

>       # 获得消息对话框实例
>       $msg = mpfc::WSGIappMessageDialog();                           #(E)
>       $msg->setProperty("width",500);                   #(F)
>       $msg->setProperty("height",120);                  #(G)
>       $msg->setProperty("defaultPosition",$mpfc::True); #(H)

>       if ($ret == $mpfc::WS_DIALOG_OK){                    #(I)
>         $str = sprintf("%s  被选择。", $fs->getFileName() );
>         $msg->setProperty("labelString",$str);
>         $msg->popup();
>       }elsif ($ret == $mpfc::WS_DIALOG_NO){                #(J)
>         $msg->setProperty("labelString","未被选择。");
>         $msg->popup();
>       }elsif ($ret == $mpfc::WS_DIALOG_CANCEL){               #(K)
>         $msg->setProperty("labelString","被取消选择。");
>         $msg->popup();
>       }
>       return;
>     }
>     1;

> (A)通过访问全局实例函数，访问文件选择对话框全局实例。 在文件选择对话框等类中，预先都备有1个全局实例。 可以通过访问全局实例函数进行访问。
> (B)，(C)处设置属性，并在(D)处将对话框变为显示状态。 当对话框被选择时，popup函数将返回。
> 使用消息对话框显示文件选择对话框的选择结果。 在(E)，(F)，(G)，(H)处，取得消息对话框的全局实例，并设定其属性。
> (I)处，通过消息字符串显示被选择的文件。 (J)处，显示没有文件被选择的消息字符串。 (K)处，显示已被解除的消息字符串。

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