DOWN LOAD BBS

HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 ファイル一覧 検索 過去ログ

■349 / 1階層) 　193 クラシックUI_モダンUI_変換ユーティリティ
□投稿者/ ONnoji -(2020/08/23(Sun) 16:21:50)

    さっそく虫が見つかってしまった。(^^ゞ

    ×　if ( #バージョン番号 >= 1.1 ) 　※ゼロ(0) が抜けていた

    ○　if ( #バージョン番号 >= 10.1 )　※桐１０ｓ のバージョン

    差し替えるほどの虫では無いので、差し替えはしません。

    気になる人はお手数ですが修正願います。m(__)m

    　◇　◇　◇　◇　◇　◇　◇　◇　◇　◇　◇

    手続き定義開始　UIprcStart( )
    　変数宣言　自動，文字列｛ &icon, &title = "UIprcStart( )", &msg ｝

    　&msg = "#バージョン番号 = " + #str( #バージョン番号 )
    　&icon = "i"
    　**手続き実行　INFprcMsgPause( &icon, &title, &msg )
    ┌if ( #バージョン番号 >= 10.1 )　←←←←←←←←←←← ここ！
    │
    │┌if ( #ウィンドウハンドル( &mTargetHdl ) )
    ││
    ││　手続き実行　UIprcFormObjectSeekOnHdl( )
    │├else
    ││
    ││　&msg = "ウィンドウハンドルが見つかりません"
    ││　&msg = &msg + "\n\n&mTargetHdl = " + #str( &mTargetHdl )
    ││　&msg = &msg + "\n\n次のボタンでフォームを開いてから実行してください。"
    ││　&msg = &msg + "\n\n・［ウィンドウ一覧...］"
    ││　&msg = &msg + "\n\n・［以前開いたファイル...］"
    ││　&msg = &msg + "\n\n・［開く...］"
    ││　&icon = "e"
    ││　手続き実行　INFprcMsgPause( &icon, &title, &msg )
    │└end
    │
    ├else
    │
    │　&msg = "モダンUI は 桐10s 以降でサポートされています"
    │　&msg = &msg + "\n\n実行中の桐では実行できません"
    │　&msg = &msg + "\n\n#バージョン番号 = " + #str( #バージョン番号 )
    │　&icon = "e"
    │　手続き実行　INFprcMsgPause( &icon, &title, &msg )
    └end

    手続き定義終了



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

返信無し
　
前の記事(元になった記事) 次の記事(この記事の返信)
上記関連ツリー

Nomal 193 クラシックUI_モダンUI_変換ユーティ.. / ONnoji (20/08/23(Sun) 15:08) #348
└Nomal 193 クラシックUI_モダンUI_変換ユーティ.. / ONnoji (20/08/23(Sun) 16:21) #349 ←Now

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
　
上記の記事へ返信
Mode/　 Pass/

HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 ファイル一覧 検索 過去ログ

- Child Tree -
- Antispam Version -