| 過去の桐井戸端ＢＢＳ （桐ver.８） |
| 17699 | 複数のフォームを同時に開き、ボタンで切り替えたい | たく | 2002/10/23-21:00 |
| ネットワークの環境で複数のフォームを共有で同時に開き、それぞれのフォームに作ったコマンドボタンで アクティブなフォームを切り替えて使いたいのですが、どのようにすればよろしいでしょうか？ ご教授お願いします。m(__)m | |||
| 17733 | Re:複数のフォームを同時に開き、ボタンで切り替えたいのですが〜 | アックン | 2002/10/24-19:41 |
| 記事番号17699へのコメント こんばんは。 こんなふうにされてはどうでしょう。 ただ、残念なことに私は共有してないため、共有すると動作がどうなるかがわかりません。 この点も含めて、どなたか詳しい方に他の方法も併せてご紹介いただければと思います。 テストの間は、「ウィンドウ位置」コマンドを「最小化」「復元」で動作確認してください。 これでいけるとなってはじめて、「非表示」「表示」にしてください。 「非表示」にすると、フォームが開いているのか閉じているのかわからないので。 ウィンドウ位置 最小化 , &hwindow ウィンドウ位置 復元 , &propertywin * ウィンドウ位置 非表示 , &hwindow * ウィンドウ位置 表示 , &propertywin 下の例では、２個のフォームを同時に開いてください。 １個ずつ開くテストはしていません。 もし、片方のフォームからさらにもう一方のフォームを開きたいときや ２個のフォームを同時にランチャー（メニュー）から開きたいときは、多少、 記述が異なってきます。それらのことは、また聞いてください。 **------- フォーム edit.wfm のイベントファイル edit.kev 名札 メイン var 固有 , 整数 { &editwin } ＊ 手続き定義開始 フォーム::フォーム開始(長整数 &表番号) &editwin = &hwindow 手続き定義終了 手続き定義開始 フォーム::フォーム終了() &editwin = "" cond( &propertywin ) ウィンドウ位置 復元 , &propertywin 手続き定義終了 手続き定義開始 bボタン::マウス左クリック(長整数 &マウス位置[2]，長整数 &明細番号，長整数 &フラグ，参照 長整数 &処理中止) method @フォーム . 更新モード設定( 0 ) ウィンドウ位置 最小化 , &hwindow ウィンドウ位置 復元 , &propertywin * ウィンドウ位置 非表示 , &hwindow * ウィンドウ位置 表示 , &propertywin cond( .not&propertywin ) mkwin "property.wfm" 手続き定義終了 **------- フォーム propertywin.wfm のイベントファイル propertywin.kev 名札 メイン var 固有 , 整数 { &propertywin } ＊ 手続き定義開始 フォーム::フォーム開始(長整数 &表番号) &propertywin = &hwindow 手続き定義終了 手続き定義開始 フォーム::フォーム終了() &propertywin = "" cond( &editwin ) ウィンドウ位置 復元 , &editwin 手続き定義終了 手続き定義開始 bボタン::マウス左クリック(長整数 &マウス位置[2]，長整数 &明細番号，長整数 &フラグ，参照 長整数 &処理中止) method @フォーム . 更新モード設定( 0 ) ウィンドウ位置 最小化 , &hwindow ウィンドウ位置 復元 , &editwin * ウィンドウ位置 非表示 , &hwindow * ウィンドウ位置 表示 , &editwin cond( .not&editwin ) mkwin "edit.wfm" 手続き定義終了 **--------------------------------------- ちょうど今、子どもがスポーツの練習を終えて仕事場に帰ってきたので、今夜はこれで失礼します。 アックン(=^・^=) | |||
| 17760 | 有難うございます | たく | 2002/10/26-06:30 |
| 記事番号17733へのコメント あっくん様 早速のご教授、有難うございました。m(__)m 実は一括処理については最近勉強し始めたところなので教えていただいた事がすぐには理解できないのですが (^_^;) 教えていただいたことを元に考えてみようと思います。 具体的には4つのフォーム（元になる表も異なります）をネットワーク上で共有し、それぞれのフォーム上に もうけたボタンで切り替えたいと思っています。 少し時間をかけて勉強したいと思います。 たいへん有難うございました。 たく | |||