のほか [One Message View / Re[2]: 「目からウロコの・・・パート２」を公開しました。]

■1461 / 2階層)

　「目からウロコの・・・パート２」を公開しました。

□投稿者/ ONnoji -(2024/06/19(Wed) 16:04:52)

2024/06/19(Wed) 16:35:24 編集(投稿者)

添付ファイルを解凍すると次のファイルがあります。

スケジュール表_main.kex
スケジュール表_main.wfx
スケジュール表_subform_accept.kex
スケジュール表_subform_accept.wfx

※スケジュール表.TBX は含まれていません

（ご注意）

サブフォームからメインフォームへフォーカスを移動した場合には、
サブフォームが表示モードになりますが、これは桐の仕様ですのでご了承ください。

サブフォーム側をだけを操作している時には、訂正モードを維持します。
※実際には一時的に表示モードになりますけどね気が付かないと思います。(^^ゞ

トレース出力を停止したい場合には、

　&trace = 1

を次のように

　＊&trace = 1

コメントアウトしてください。

　◇　◇　◇　◇　◇　◇　◇　◇　◇　◇

以下は［トレース出力］コマンドの結果です。

このような出力を得るには、［トレース出力］ウィンドウで、右クリックで［すべて選択］→［コピー］でクリップボードに保存してから、

拙作の整形ユーティリティの［トレース整形］を実行して、［メモ帳を開く］ボタンを実行して、貼り付けてメモ帳を保存終了してください。

自動的に整形が行われますよ。

┌when :main -> cmdStartupClick( )を実行開始しました
│
│　:この手続きは［開始時実行コマンド］ボタンから呼び出されました
│
│┌when :main -> cmd週間Click( )を実行開始しました
│└end
│
│┌when :main -> prcサブフォームへフォーカスを移動( )を実行開始しました
││
││　:subform -> txt日付_入力用のフォーカス設定()メソッドを実行します
││　:メソッドの実行結果
││　:&return : 1　メソッド呼び出し　戻り値 = &return, @subformAccept.@txt日付_入力用.フォーカス設定()
││　:
││　:subform -> cmd訂正の実行()メソッドを実行します
││　:メソッドの実行結果
││　:&return : 0　メソッド呼び出し　戻り値 = &return, @subformAccept.@cmd訂正.実行()
││　:&mCommanButtonDone : 1　 &mCommanButtonDone が 1 になればＯＫ　何故かサブフォームでは &return がゼロで返ってくる事がある
││
│└end
│
└end

┌when :subform -> cmd予定追加Click( )を実行開始しました
│
│　:main -> フォームに cmd行追加が存在するか否かを調べるためにオブジェクト検査()メソッドを実行します
│　:メソッドの実行結果
│　:&isObject : 1　 &objectName : cmd行追加　メソッド呼び出し　ハンドル = &hwindow, 戻り値 = &return, @フォーム.オブジェクト検査( &objectName, &isObject )
│　:
│　:入力エラーを判定します　&error日付 = ( &m日付 = #u )　&error予定 = ( #trim( &m予定, 4 ) = #u )　&logical　 = .not ( &error日付 .or &error予定 )
│　:&error日付 : 0　 &error予定 : 0　 &logical : 1
│　:
│　:main -> cmd行追加の実行()メソッドを実行します
│
│┌when :main -> cmd行追加Click( )を実行開始しました
││
││　:&m日付 : 2024年 6月23日　0時 0分 0秒　 &m予定 : てすとです
││　:&status : 1　行追加　終了状態 = &status, [日付] = &m日付, [予定] = &m予定
││　:
││　:ここで prcサブフォームへフォーカスを移動( ) を実行するとサブフォームのフォーカスの移動が上手くいかない事がある
││　:回避策として、時限タイマーの［タイマー1］イベントをインターバル 20/100秒で予約して、プログラムの流れを中断する
││　:オブジェクト操作　@フォーム｛タイマー1 = 1, タイマー値1 = 20 ｝
││
│└end
│
│　:メソッドの実行結果
│　:&return : 1　 &objectName : cmd行追加　メソッド呼び出し　ハンドル = &hwindow, 戻り値 = &return, &objectName.実行()
│
└end

┌when :main -> フォーム::タイマー1( )を実行開始しました
│
│　:時限タイマーの［タイマー1］イベントを停止
│　:オブジェクト操作　@フォーム｛タイマー1 = 0 ｝　/* 時限タイマーの［タイマー1］イベントを停止 */
│　:
│　:cmd行追加Click( )で中断したプログラムの流れをここから再開する
│　:　↓
│　:手続き実行　prcサブフォームへフォーカスを移動( )
│
│┌when :main -> prcサブフォームへフォーカスを移動( )を実行開始しました
││
││　:subform -> txt日付_入力用のフォーカス設定()メソッドを実行します
││　:メソッドの実行結果
││　:&return : 1　メソッド呼び出し　戻り値 = &return, @subformAccept.@txt日付_入力用.フォーカス設定()
││　:
││　:subform -> cmd訂正の実行()メソッドを実行します
││　:メソッドの実行結果
││　:&return : 0　メソッド呼び出し　戻り値 = &return, @subformAccept.@cmd訂正.実行()
││　:&mCommanButtonDone : 1　 &mCommanButtonDone が 1 になればＯＫ　何故かサブフォームでは &return がゼロで返ってくる事がある
││
│└end
│
└end

ｐ．ｓ．

> なお先に申し上げておきますが、今回のサンプルは私( ONnoji )の好奇心で作ったものです。
> 従って、こうすると良いよという提案ではありません。
> 「こんなことも出来るんだけどね・・・でもそこまでする必要ないでしょ」という代物ですよ。

これは個人の感想です。(^^ゞ

メイン＆サブフォームを好んで使う人もいますが、私はメイン＆サブフォームはもうコリゴリなので避けています。

しかし、今回は面白いテーマだったので試してみました。(^^ゞ

なぜもうコリゴリなのかと言うと・・・

・メインの局所変数がサブで上書きされる事　※メインとサブの局所変数のスコープは共通ですから当然ですけど(^^ゞ

・デバッグが非常にし難い事

・拙作：フレームワークがサブフォームに適用できない事　※初期はサブフォームにも対応していましたが、デバッグと変数のスワップが大変なので止めました。

ですね。

[メール受信/OFF] 削除キー/

返信無し
　

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
「目からウロコの・・・パート２」を公開.. / ONnoji (24/06/11(Tue) 16:31) #1445
`├` Re[1]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/14(Fri) 17:36) #1446
`│└` Re[2]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/15(Sat) 17:45) #1447
`│ └` Re[3]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/17(Mon) 12:06) #1448
`│ └` Re[4]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/17(Mon) 15:17) #1449
`│ └` Re[5]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/17(Mon) 16:22) #1450
`│ └` Re[6]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/17(Mon) 17:33) #1451
`│ └` Re[7]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/18(Tue) 10:27) #1452
`│ └` Re[8]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/18(Tue) 11:00) #1453
`│ └` Re[9]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/18(Tue) 12:03) #1454
`│ └` Re[10]: 「目からウロコの・・・パート２.. / ONnoji (24/06/18(Tue) 15:54) #1455
`│ └` Re[11]: 「目からウロコの・・・パート２.. / ONnoji (24/06/18(Tue) 16:48) #1456
`│ └` Re[12]: 「目からウロコの・・・パート２.. / ONnoji (24/06/18(Tue) 17:05) #1457
`│ └` Re[13]: 「目からウロコの・・・パート２.. / ジェダイの桐 (24/06/19(Wed) 10:53) #1458
`│ └` Re[14]: 「目からウロコの・・・パート２.. / ONnoji (24/06/19(Wed) 11:28) #1459
`├` Re[1]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/19(Wed) 15:42) #1460
`│├` 「目からウロコの・・・パート２」を公開.. / ONnoji (24/06/19(Wed) 16:04) #1461 ←Now
`│├` Re[2]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/19(Wed) 17:02) #1462
`│├` Re[2]: 「目からウロコの・・・パート２�.. / 尾形 (24/06/19(Wed) 18:06) #1463
`││└` Re[3]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/19(Wed) 19:11) #1464
`│└` Re[2]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/20(Thu) 14:50) #1467
`│ └` Re[3]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/20(Thu) 16:14) #1468
`│ └` Re[4]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/21(Fri) 00:40) #1469
`│ └` Re[5]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/21(Fri) 09:27) #1470
`│ └` Re[6]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/06/21(Fri) 15:23) #1471
`│ └` Re[7]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/24(Mon) 22:03) #1473
`│ └` Re[8]: 「目からウロコの・・・パート２�.. / ジェダイの桐 (24/07/18(Thu) 16:12) #1484
`│ └` Re[9]: 多重化のメリット　時限式タイマ�.. / ONnoji (24/07/18(Thu) 17:29) #1485
`│ ├` Re[10]: 多重化のメリット　時限式タイマ.. / ONnoji (24/07/18(Thu) 18:26) #1487
`│ │└` Re[11]: 多重化のメリット　時限式タイマ.. / ジェダイの桐 (24/07/19(Fri) 10:10) #1488
`│ └` Re[10]: 「目からウロコの・・・パート２.. / ジェダイの桐 (24/07/18(Thu) 18:24) #1486
`│ └` Re[11]: 「多重化のメリット　時限式タイ.. / ONnoji (24/07/19(Fri) 12:59) #1489
`└` Re[1]: 「目からウロコの・・・パート２�.. / ONnoji (24/06/24(Mon) 19:35) #1472
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

■解決しましたら最下段にチェックを入れてください

■引用文は、最小限に、お願いいたします

Name	/
E-Mail	/
└> 関連するレス記事をメールで受信しますか? / アドレス
Title	/
メッセージ中には下記URLと同じURLを書き込まないで下さい
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No1461に返信(ONnojiさんの記事) > 2024/06/19(Wed) 16:35:24 編集(投稿者) > > 添付ファイルを解凍すると次のファイルがあります。 > > スケジュール表_main.kex > スケジュール表_main.wfx > スケジュール表_subform_accept.kex > スケジュール表_subform_accept.wfx > > ※スケジュール表.TBX は含まれていません > > （ご注意） > > サブフォームからメインフォームへフォーカスを移動した場合には、 > サブフォームが表示モードになりますが、これは桐の仕様ですのでご了承ください。 > > サブフォーム側をだけを操作している時には、訂正モードを維持します。 > ※実際には一時的に表示モードになりますけどね気が付かないと思います。(^^ゞ > > トレース出力を停止したい場合には、 > > 　&trace = 1 > > を次のように > > 　＊&trace = 1 > > コメントアウトしてください。 > > 　◇　◇　◇　◇　◇　◇　◇　◇　◇　◇ > > 以下は［トレース出力］コマンドの結果です。 > > このような出力を得るには、［トレース出力］ウィンドウで、右クリックで［すべて選択］→［コピー］でクリップボードに保存してから、 > > 拙作の整形ユーティリティの［トレース整形］を実行して、［メモ帳を開く］ボタンを実行して、貼り付けてメモ帳を保存終了してください。 > > 自動的に整形が行われますよ。 > > > ┌when :main -> cmdStartupClick( )を実行開始しました > │ > │　:この手続きは［開始時実行コマンド］ボタンから呼び出されました > │ > │┌when :main -> cmd週間Click( )を実行開始しました > │└end > │ > │┌when :main -> prcサブフォームへフォーカスを移動( )を実行開始しました > ││ > ││　:subform -> txt日付_入力用のフォーカス設定()メソッドを実行します > ││　:メソッドの実行結果 > ││　:&return : 1　メソッド呼び出し　戻り値 = &return, @subformAccept.@txt日付_入力用.フォーカス設定() > ││　: > ││　:subform -> cmd訂正の実行()メソッドを実行します > ││　:メソッドの実行結果 > ││　:&return : 0　メソッド呼び出し　戻り値 = &return, @subformAccept.@cmd訂正.実行() > ││　:&mCommanButtonDone : 1　 &mCommanButtonDone が 1 になればＯＫ　何故かサブフォームでは &return がゼロで返ってくる事がある > ││ > │└end > │ > └end > > ┌when :subform -> cmd予定追加Click( )を実行開始しました > │ > │　:main -> フォームに cmd行追加が存在するか否かを調べるためにオブジェクト検査()メソッドを実行します > │　:メソッドの実行結果 > │　:&isObject : 1　 &objectName : cmd行追加　メソッド呼び出し　ハンドル = &hwindow, 戻り値 = &return, @フォーム.オブジェクト検査( &objectName, &isObject ) > │　: > │　:入力エラーを判定します　&error日付 = ( &m日付 = #u )　&error予定 = ( #trim( &m予定, 4 ) = #u )　&logical　 = .not ( &error日付 .or &error予定 ) > │　:&error日付 : 0　 &error予定 : 0　 &logical : 1 > │　: > │　:main -> cmd行追加の実行()メソッドを実行します > │ > │┌when :main -> cmd行追加Click( )を実行開始しました > ││ > ││　:&m日付 : 2024年 6月23日　0時 0分 0秒　 &m予定 : てすとです > ││　:&status : 1　行追加　終了状態 = &status, [日付] = &m日付, [予定] = &m予定 > ││　: > ││　:ここで prcサブフォームへフォーカスを移動( ) を実行するとサブフォームのフォーカスの移動が上手くいかない事がある > ││　:回避策として、時限タイマーの［タイマー1］イベントをインターバル 20/100秒で予約して、プログラムの流れを中断する > ││　:オブジェクト操作　@フォーム｛タイマー1 = 1, タイマー値1 = 20 ｝ > ││ > │└end > │ > │　:メソッドの実行結果 > │　:&return : 1　 &objectName : cmd行追加　メソッド呼び出し　ハンドル = &hwindow, 戻り値 = &return, &objectName.実行() > │ > └end > > ┌when :main -> フォーム::タイマー1( )を実行開始しました > │ > │　:時限タイマーの［タイマー1］イベントを停止 > │　:オブジェクト操作　@フォーム｛タイマー1 = 0 ｝　/* 時限タイマーの［タイマー1］イベントを停止 */ > │　: > │　:cmd行追加Click( )で中断したプログラムの流れをここから再開する > │　:　↓ > │　:手続き実行　prcサブフォームへフォーカスを移動( ) > │ > │┌when :main -> prcサブフォームへフォーカスを移動( )を実行開始しました > ││ > ││　:subform -> txt日付_入力用のフォーカス設定()メソッドを実行します > ││　:メソッドの実行結果 > ││　:&return : 1　メソッド呼び出し　戻り値 = &return, @subformAccept.@txt日付_入力用.フォーカス設定() > ││　: > ││　:subform -> cmd訂正の実行()メソッドを実行します > ││　:メソッドの実行結果 > ││　:&return : 0　メソッド呼び出し　戻り値 = &return, @subformAccept.@cmd訂正.実行() > ││　:&mCommanButtonDone : 1　 &mCommanButtonDone が 1 になればＯＫ　何故かサブフォームでは &return がゼロで返ってくる事がある > ││ > │└end > │ > └end > > ｐ．ｓ． > >>なお先に申し上げておきますが、今回のサンプルは私( ONnoji )の好奇心で作ったものです。 >>従って、こうすると良いよという提案ではありません。 >>「こんなことも出来るんだけどね・・・でもそこまでする必要ないでしょ」という代物ですよ。 > > これは個人の感想です。(^^ゞ > > メイン＆サブフォームを好んで使う人もいますが、私はメイン＆サブフォームはもうコリゴリなので避けています。 > > しかし、今回は面白いテーマだったので試してみました。(^^ゞ > > なぜもうコリゴリなのかと言うと・・・ > > ・メインの局所変数がサブで上書きされる事　※メインとサブの局所変数のスコープは共通ですから当然ですけど(^^ゞ > > ・デバッグが非常にし難い事 > > ・拙作：フレームワークがサブフォームに適用できない事　※初期はサブフォームにも対応していましたが、デバッグと変数のスワップが大変なので止めました。 > > ですね。 > >
File	/ アップ可能拡張子=> /.gif/.jpg/.jpeg/.png/.txt/.lzh/.zip/.mid 圧縮ファイル[lzh,zip]は、事前に解凍してご利用下さい。 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回100KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[187/500KB] 残り:[313KB]
パスワード	/ 半角小文字で「ケイ・アイ・アール・アイ」を入力
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!
プレビュー/

- Child Tree -
- Antispam Version -