WideStudio/MWT Programming Guide	WideStudio/MWT Index Table of contents

---

文件选择对话框

---

显示文件选择对话框

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

[文件选择对话框]

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

#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
use mwt;

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

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

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

(A)通过访问全局实例函数，访问文件选择对话框全局实例。 在文件选择对话框等类中，预先都备有1个全局实例。 可以通过访问全局实例函数进行访问。

(B)，(C)处设置属性，并在(D)处将对话框变为显示状态。 当对话框被选择时，popup函数将返回。

使用消息对话框显示文件选择对话框的选择结果。 在(E)，(F)，(G)，(H)处，取得消息对话框的全局实例，并设定其属性。

(I)处，通过消息字符串显示被选择的文件。 (J)处，显示没有文件被选择的消息字符串。 (K)处，显示已被解除的消息字符串。