![]() | Programming Guide | WideStudio Index 目次 |
ファイル選択ダイアログ
ファイル選択ダイアログの表示
ファイル選択ダイアログの使い方について触れてみましょう。ファイル選択ダ イアログの様なダイアログに関しては、便利な表示メソッドpopup が用意され ています。popup メソッドは、単にダイアログを表示させるだけでなく、オペレータがOK やキャンセルなどを選択した結果を関数復帰で返します。したがって、関数を 呼ぶだけで、ダイアログの表示から、ダイアログの終了した時点の選択結果の 取得を行うことができます。ファイル選択ダイアログやメッセージダイアログ に関して実際のサンプルプログラムを見ていきましょう。
[ファイル選択ダイアログ]#---------------------------------------------------------- #Function for the event procedure #---------------------------------------------------------- use mpfc; sub btnep2 { my ($object) = @_; # アプリケーションに1つあらかじめ用意されています。 # ファイル選択ダイアログのインスタンスにアクセスします。 $fs = mpfc::WSGIappFileSelect(); #(A) $fs->setProperty("maskFileName","pl"); #(B) $fs->setProperty("defaultPosition",$mpfc::True); #(C) $ret = $fs->popup(); #(D) # アプリケーションに1つあらかじめ用意されている # メッセージダイアログのインスタンスを取得する。 $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) では、キャンセルされた主旨をメッセージ文字列として表示します。
Copyright(C) T. Hirabayashi, 2000-2004 | Last modified: Feb 25, 2004 |