![]() | 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)处,显示已被解除的消息字符串。
Copyright(C) T. Hirabayashi, 2000-2004 | Last modified: Feb 25, 2004 |