| ■638 / 10階層) |
HDLVARprcWindowAppearVarSendの使用感
|
□投稿者/ ONnoji -(2025/08/09(Sat) 19:17:47)
| 実行に障害はありませんが、訂正がありました。
prcNumInputControl
│ オブジェクト操作 &this{ &dataType = データ型, &source = ソース } ←←← 不要です。削除してください。
prcNumAccept
│ オブジェクト操作 &this{ &dataType = データ型, &source = ソース } ←←← 不要です。削除してください。
老眼のせいかねぇ〜。アハハハハ。
◇ ◇ ◇ ◇
【test_数値のテキストボックス使用例.kex】
手続き定義開始 prcNumInputControl(文字列 &objectName, 参照 文字列 &編集文字列,長整数 &モード,参照 長整数 &入力継続) 変数宣言 自動,文字列{ &icon, &title = "prcNumInputControl( )", &msg } 変数宣言 自動,文字列{ &string } 変数宣言 自動,文字列{ &dataType } 変数宣言 自動,文字列{ &source } 変数宣言 自動,文字列{ &dataTypeList = "整数,長整数,数値,通貨,実数" } 変数宣言 自動,数値 { &num } 変数宣言 自動,数値 { &mod } 変数宣言 自動,整数 { &isError = 0 }
変数宣言 自動,文字列{ &traceMsg = #cond( #変数( "INFmTraceFormPathAdd" ), &INFmMyWfmPath ) + &INFmMyWfmName + " hdl=" + #last( " " + #str( &hwindow ), 2 ) + ">" + &title } 変数宣言 自動,整数 { &traceON = #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "ALL" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "INF" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "HDL" ) }
&traceON = 1 条件 ( &traceON ) トレース出力 &traceMsg + "を実行開始しました"
オブジェクト操作 &this{ &dataType = データ型, &source = ソース } 条件 ( &traceON ) トレース出力 _&objectName, " ", _&dataType, " ", _&source
条件 ( &traceON ) トレース出力 _( #対応番号( &dataTypeList, &dataType ) <> 0 ) ┌if ( #対応番号( &dataTypeList, &dataType ) <> 0 ) │ │ &string = &編集文字列 │ オブジェクト操作 &this{ &dataType = データ型, &source = ソース } ←←← 不要です。削除してください。 │
【test_数値のイベントハンドラ.kex】
手続き定義開始 prcNumAccept(文字列 &objectName, 参照 文字列 &編集文字列,長整数 &モード,参照 長整数 &入力継続) 変数宣言 自動,文字列{ &icon, &title = "prcNumAccept( )", &msg } 変数宣言 自動,文字列{ &string } 変数宣言 自動,文字列{ &dataType } 変数宣言 自動,文字列{ &source } 変数宣言 自動,文字列{ &dataTypeList = "整数,長整数,数値,通貨,実数" } 変数宣言 自動,数値 { &num } 変数宣言 自動,数値 { &mod } 変数宣言 自動,整数 { &isError = 0 }
** 2025.08.09 prcNumInputControl( ) を流用して VK_Framework に関する部分をコメントアウトした
変数宣言 自動,文字列{ &traceMsg = #cond( #変数( "INFmTraceFormPathAdd" ), &INFmMyWfmPath ) + &INFmMyWfmName + " hdl=" + #last( " " + #str( &hwindow ), 2 ) + ">" + &title } 変数宣言 自動,整数 { &traceON = #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "ALL" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "INF" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "HDL" ) }
&traceON = 1 条件 ( &traceON ) トレース出力 &traceMsg + "を実行開始しました"
オブジェクト操作 &objectName{ &dataType = データ型, &source = ソース } 条件 ( &traceON ) トレース出力 _&objectName, " ", _&dataType, " ", _&source
条件 ( &traceON ) トレース出力 _( #対応番号( &dataTypeList, &dataType ) <> 0 ) ┌if ( #対応番号( &dataTypeList, &dataType ) <> 0 ) │ │ &string = &編集文字列 │ オブジェクト操作 &this{ &dataType = データ型, &source = ソース } ←←← 不要です。削除してください。 │
|
|