WideStudio Logo
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)
  mpfc::WSCbase_setProperty($fs,"maskFileName","pl");            #(B)
  mpfc::WSCbase_setProperty($fs,"defaultPosition",$mpfc::True);  #(C)
  $ret = mpfc::WSCbaseDialog_popup($fs);                         #(D)

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

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

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

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

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

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

Document Release 3.70 for WideStudio ver 3.70, Feb 2004


WideStudio documents index | Table of contents

Copyright(C) T. Hirabayashi, 2000-2004 Last modified: Feb 25, 2004