| ■1358 / ) |
Re[4]: 一定時間入力がないとメッセージを表示して桐を終了するには？
|
□投稿者/ 広田 -(2006/09/04(Mon) 10:03:14)
| ONnojiさん ありがとうございます。
想像をはるかに超えたプログラムだったので解読に少々苦労しました。
ちなみに、メッセージを表示させずに終わるには、どの行をREMにすれば良いかを28行目からの
-------------------
手続き定義開始 ﾌｫｰﾑ::ﾀｲﾏｰ1()
トレース出力 "ﾌｫｰﾑ::ﾀｲﾏｰ1() --> ", _#日時値
トレース出力 "ﾌｫｰﾑ::ﾀｲﾏｰ1() --> ", _&mExitDate
if ( #日時値 > &mExitDate )
* 手続き実行 prcMsgOKCancel( "?", "ﾌｫｰﾑ::ﾀｲﾏｰ1()", \
"桐を終了してもよろしいですか？", &mExitAns )
* if ( &mExitAns )
メソッド呼び出し ＠cmd桐の終了.実行( )
else
手続き実行 prc秒数加算( )
* end
end
手続き定義終了
------------------
にしましたけど、良かったでしょうか？
あと、フォームにあるイベントのチェックボックスにチェックを入れなくても
オブジェクト操作 @ﾌｫｰﾑ｛ ﾀｲﾏｰ1 = "1", ﾀｲﾏｰ値1 = &mTimerInterval ｝
オブジェクト操作 @ﾌｫｰﾑ｛ ﾏｳｽ左ﾀﾞｳﾝ = "1", ｷｰﾀﾞｳﾝ = "1" ｝
メソッド呼び出し ＠cmd桐の終了.実行( )
で動作するんですね？勉強になりました。
たゆーさんにもコメントいただきましたが、
終了 【桐】
イベントでは使用できないので、フォームのコマンドボタンに機能名に書き込んで
メソッド呼び出しを利用する工夫も大変参考になりました。
今後とも宜しくお願いいたします。m(_ _)m
|
解決済み! |
