| ■14611 / ) |
Re[1]: イベントでフォームをまとめて開く
|
□投稿者/ ONnoji -(2024/10/11(Fri) 13:41:06)
| 2024/10/11(Fri) 14:02:46 編集(投稿者)
> モーダルフォームにしたりとかではなく、コマンドボタンを押したら
> 複数のフォームを開きたいです。
コマンドボタンの［機能名：開く］では、４行しかありませんから、４個のフォームが限界ですね。
コマンドボタンの［機能名：手続き実行］で手続きを呼び出し、
その手続き内で、フォームを開く仕掛けを用意するしかないと思いますよ。
・・・・・・・・・・
例えば、手続き内で
メソッド呼び出し ＠フォームを開くコマンドボタン１.実行()
メソッド呼び出し ＠フォームを開くコマンドボタン２.実行()
：
：
とメソッドを複数実行すればＯＫですが、実行するためのコマンドボタンを何個も作るのが面倒ですよね。
・・・・・・・・・・・・・・・・・・・・・・・・
◇ ◇ ◇ ◇ ◇
そこで、［機能名：開く］をセットしたコマンドボタンを作らずに、プログラミングだけでフォームが開けると便利ですよね。
・・・・・・・・・・・・・・・・・・・・・
以下はその例です。
例えば次のようなコマンドボタン：
オブジェクト名： cmdテスト
標題 ： テスト
機能名 機能パラメータリスト
1 表示
2 手続き実行 cmdテストClick
3 なし
4 なし
があったとします。
［機能名：手続き実行］で実行する手続きは次の通りです。
手続き定義開始 cmdテストClick( )
変数宣言 自動，文字列｛ &icon, &title = "cmdテストClick( )", &msg ｝
変数宣言 自動，文字列｛ &wfm, &tbl ｝
変数宣言 自動，整数 ｛ &hdl, &openStatus ｝
&wfm = #一括パス名 + "transaction_A.wfx"
&tbl = #一括パス名 + "transaction_A.tbx"
手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus )
&wfm = #一括パス名 + "transaction_B.wfx"
&tbl = #一括パス名 + "transaction_B.tbx"
手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus )
&wfm = #一括パス名 + "transaction_C.wfx"
&tbl = #一括パス名 + "transaction_C.tbx"
手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus )
&wfm = #一括パス名 + "transaction_D.wfx"
&tbl = #一括パス名 + "transaction_D.tbx"
手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus )
&wfm = #一括パス名 + "transaction_E.wfx"
&tbl = #一括パス名 + "transaction_E.tbx"
手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus )
&wfm = #一括パス名 + "transaction_F.wfx"
&tbl = #一括パス名 + "transaction_F.tbx"
手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus )
手続き定義終了
以上の例は、拙作：INF_Framework のランチャー機能を利用しています。
例では、６個のフォームを連続して開きます。
◇ ◇ ◇ ◇ ◇
詳しくは、【多遊】さんホームページの DOWN LOAD BBS をご覧ください。
こちら
↓
DOWN LOAD BBS
■446 / 親階層) Thin_INF_Framework のご案内
https://tayu.o0o0.jp/bbs/kiri/cbbs.cgi?mode=one&namber=446&type=0&space=0&no=2
Thin_INF_Framework のご案内 ツリー
https://tayu.o0o0.jp/bbs/kiri/cbbs.cgi?mode=all&namber=446&type=0&space=0&no=2
ｐ．ｓ．
なお、DOWN LOAD BBS でダウンロード出来る Thin INF_Framework はベータ版です。
Thin INF_Framework のご質問は、DOWN LOAD BBS の方へお願いいたします。
ｐ．ｐ．ｓ．
もしも、ランチャーだけを利用するだけでよければ、 標準のコマンドボタンは無くてＯＫです。
│ ├ EZWcmdズームイン ┐
│ ├ EZWcmdズームアウト │
│ ├ EZWtxtMagnification │
│ ├ INFcmdWhoAreYou ├─ 標準のコマンドボタン ※ヘッダ部左上に配置することを推奨します
│ ├ HDLVARcmdWhoAreYou │
│ ├ cmdAlt_I_ズームイン │ ※ cmdAlt_I_ズームイン と cmdAlt_O_ズームアウト は［画面表示］= しない
│ └ cmdAlt_O_ズームアウト ┘
|
|
