| ■468 / inTopicNo.23) |
Re[4]: Thin_INF_Framework のご案内
|
□投稿者/ ONnoji -(2024/09/06(Fri) 16:44:19)
| 2024/09/08(Sun) 17:58:02 編集(投稿者) 2024/09/06(Fri) 17:15:06 編集(投稿者) 2024/09/06(Fri) 16:59:05 編集(投稿者)
ジェダイの桐さん
> 午後にサンプルをアップします。 > それをご覧になれば、[いわゆるメニュー]が簡単に自作出来ますよ。 > 私( ONnoji )自身は、「メニュー」という言葉は嫌いで、「ランチャー」と呼ぶ方が好きなのですがねぇ〜。 > だから、「ランチャー」=「メニュー」だと思っていてください。
解凍すると以下の8個のファイルがあります。
NO_FLD_EZW_Launcher.wfx NO_FLD_EZW_Launcher.kex
transaction_A.kex transaction_A.tbx transaction_A.wfx
transaction_B.kex transaction_B.tbx transaction_B.wfx
とりあえず、ランチャー:NO_FLD_EZW_Launcher.wfx を開いてみてください。
内容は NO_FLD_EZW_Launcher.kex を見ればすぐに分かりますよ。
時間が無かったので説明書は後ほどご案内します。
取り急ぎお知らせまで。
なお、仕様メモは拙作webページにあります。
こちら ↓ 桐の釣魚大全のトップ > 仕様メモ集 http://silicon7565.html.xdomain.jp/INF_Framework/INF_Framework_Spec_Memo.htm
HDLLNC 仕様メモ 1st_Spec_Memo_HDLLNC.txt|桐の釣魚大全のトップ > 仕様メモ集 http://silicon7565.html.xdomain.jp/INF_Framework/1st_Spec_Memo_HDLLNC.txt
#204 / #205 にも同じ内容のテキストファイルが同梱されていますよ。
また、AKomeさんのwebページでも解説がありますよ
こちら ↓ INF_Framework ランチャー|あこめの桐のプログラミング入門 http://akome409102.html.xdomain.jp/Kiri/INF33MkII_Launcher.html
◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇
■ NO_FLD_EZW_Launcher.wfx
フォーム ├ ファミリ ├ ワークスペース │ ├ INFtxtCommon │ └ INFcmdCommon ├ フォームヘッダ部 │ ├ lblFlatButtonBorder_1 │ ├ EZWcmdズームイン │ ├ EZWcmdズームアウト │ ├ EZWtxtMagnification │ ├ INFcmdWhoAreYou │ ├ HDLVARcmdWhoAreYou │ └ ONEcmdUI変換 ├ フォーム明細部 │ ├ lblFlatButtonBorder_2 │ ├ cmdランチャー1 │ ├ cmdランチャー2 │ ├ cmdランチャー3 │ └ cmdランチャー4 └ フォームフッタ部 ├ cmdAlt_I_ズームイン ├ cmdAlt_O_ズームアウト ├ lblFlatButtonBorder_3 └ cmd閉じる
■ NO_FLD_EZW_Launcher.kex
名札 メイン
**---------- <begin 標準 INF Framework 第3.3版 MkII 名札 メイン > ---------------** **---------- <end 標準 INF Framework 第3.3版 MkII 名札 メイン > ---------------** *
手続き定義開始 INFprcStartup( ) /* Thin_INF_Framework 2024-09-03 */ 変数宣言 自動,文字列{ &icon, &title = "INFprcStartup( )", &msg } 変数宣言 自動,文字列{ &comma = #jis( #hex("2C") ) }
変数宣言 自動,文字列{ &traceMsg = #cond( #変数( "INFmTraceFormPathAdd" ), &INFmMyWfmPath ) + &INFmMyWfmName + " hdl=" + #last( " " + #str( &hwindow ), 2 ) + ">" + &title } 変数宣言 自動,整数 { &traceON = #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "ALL" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "INF" ) }
**&traceON = 1 条件 ( &traceON ) トレース出力 &traceMsg + "を実行開始しました"
**---------- begin Thin_INF_Framework INFprcStartup ---------------**
*---------- Thin_INF_Framework のINFprcStartup( ) で指定できるオプション ------------------------------* ** Thin_INF_Framework のINFprcStartup( ) で指定できるオプション &INFmMyWinMaximizeSave = 0 /* 次回最大化状態を 1:復元する 0:復元しない */
*---------- Thin_INF_Framework のINFprcStartup( ) で指定できるオプション ------------------------------* **---------- end Thin_INF_Framework INFprcStartup ---------------**
条件 ( &traceON ) トレース出力 &traceMsg + "を実行終了しました" 手続き定義終了
手続き定義開始 cmdランチャー1Click( ) 変数宣言 自動,文字列{ &icon, &title = "cmdランチャー1Click( )", &msg } 変数宣言 自動,文字列{ &wfm, &tbl } 変数宣言 自動,整数 { &hdl, &openStatus }
変数宣言 自動,文字列{ &traceMsg = #cond( #変数( "INFmTraceFormPathAdd" ), &INFmMyWfmPath ) + &INFmMyWfmName + " hdl=" + #last( " " + #str( &hwindow ), 2 ) + ">" + &title } 変数宣言 自動,整数 { &traceON = #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "ALL" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "APP" ) }
&traceON = 1 条件 ( &traceON ) トレース出力 &traceMsg + "を実行開始しました"
&wfm = #一括パス名 + "transaction_A.wfx" &tbl = #一括パス名 + "transaction_A.tbx" 手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus ) 条件 ( &traceON ) トレース出力 _&wfm, " ", _&tbl 条件 ( &traceON ) トレース出力 _&hdl, " ", _&openStatus
条件 ( &traceON ) トレース出力 &traceMsg + "を実行終了しました" 手続き定義終了
手続き定義開始 cmdランチャー2Click( ) 変数宣言 自動,文字列{ &icon, &title = "cmdランチャー2Click( )", &msg } 変数宣言 自動,文字列{ &wfm, &tbl } 変数宣言 自動,整数 { &hdl, &openStatus }
変数宣言 自動,文字列{ &traceMsg = #cond( #変数( "INFmTraceFormPathAdd" ), &INFmMyWfmPath ) + &INFmMyWfmName + " hdl=" + #last( " " + #str( &hwindow ), 2 ) + ">" + &title } 変数宣言 自動,整数 { &traceON = #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "ALL" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "APP" ) }
&traceON = 1 条件 ( &traceON ) トレース出力 &traceMsg + "を実行開始しました"
&wfm = #一括パス名 + "transaction_B.wfx" &tbl = #一括パス名 + "transaction_B.tbx" 手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus ) 条件 ( &traceON ) トレース出力 _&wfm, " ", _&tbl 条件 ( &traceON ) トレース出力 _&hdl, " ", _&openStatus
条件 ( &traceON ) トレース出力 &traceMsg + "を実行終了しました" 手続き定義終了
手続き定義開始 cmdランチャー3Click( ) 変数宣言 自動,文字列{ &icon, &title = "cmdランチャー3Click( )", &msg } 変数宣言 自動,文字列{ &wfm, &tbl } 変数宣言 自動,整数 { &hdl, &openStatus }
変数宣言 自動,文字列{ &traceMsg = #cond( #変数( "INFmTraceFormPathAdd" ), &INFmMyWfmPath ) + &INFmMyWfmName + " hdl=" + #last( " " + #str( &hwindow ), 2 ) + ">" + &title } 変数宣言 自動,整数 { &traceON = #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "ALL" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "APP" ) }
&traceON = 1 条件 ( &traceON ) トレース出力 &traceMsg + "を実行開始しました"
&wfm = #u &tbl = #一括パス名 + "transaction_A.tbx" 手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus ) 条件 ( &traceON ) トレース出力 _&wfm, " ", _&tbl 条件 ( &traceON ) トレース出力 _&hdl, " ", _&openStatus
条件 ( &traceON ) トレース出力 &traceMsg + "を実行終了しました" 手続き定義終了
手続き定義開始 cmdランチャー4Click( ) 変数宣言 自動,文字列{ &icon, &title = "cmdランチャー4Click( )", &msg } 変数宣言 自動,文字列{ &wfm, &tbl } 変数宣言 自動,整数 { &hdl, &openStatus }
変数宣言 自動,文字列{ &traceMsg = #cond( #変数( "INFmTraceFormPathAdd" ), &INFmMyWfmPath ) + &INFmMyWfmName + " hdl=" + #last( " " + #str( &hwindow ), 2 ) + ">" + &title } 変数宣言 自動,整数 { &traceON = #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "ALL" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "APP" ) }
&traceON = 1 条件 ( &traceON ) トレース出力 &traceMsg + "を実行開始しました"
&wfm = #u &tbl = #一括パス名 + "transaction_B.tbx" 条件 ( &traceON ) トレース出力 _&wfm, " ", _&tbl 条件 ( &traceON ) トレース出力 _&hdl, " ", _&openStatus 手続き実行 HDLLNCprcWindowAppear( &wfm, &tbl, &hdl, &openStatus )
条件 ( &traceON ) トレース出力 &traceMsg + "を実行終了しました" 手続き定義終了
|
|