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 ) ※桐10s のバージョン
差し替えるほどの虫では無いので、差し替えはしません。
気になる人はお手数ですが修正願います。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]
削除キー/
編集
削除
前の記事
(元になった記事)
次の記事
(この記事の返信)
返信無し
上記関連ツリー
193 クラシックUI_モダンUI_変換ユーティ..
/ ONnoji
(20/08/23(Sun) 15:08)
#348
└
193 クラシックUI_モダンUI_変換ユーティ..
/ ONnoji
(20/08/23(Sun) 16:21)
#349
←Now
上記ツリーを一括表示
/
上記ツリーをトピック表示
上記の記事へ返信
入力内容にタグは利用できません。
他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
使用例:
No123 → 記事No123の記事リンクになります(指定表示)。
No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
No123-130 → 記事No123〜130 の記事リンクになります(連続表示)。
Name
/
E-Mail
/
└> 関連するレス記事をメールで受信しますか?
NO
YES
/ アドレス
非公開
公開
Title
/
メッセージ中には下記URLと同じURLを書き込まないで下さい
URL
/
Comment/ 通常モード->
図表モード->
(適当に改行して下さい/半角10000文字以内)
■No349に返信(ONnojiさんの記事) > > さっそく虫が見つかってしまった。(^^ゞ > > × if ( #バージョン番号 >= 1.1 ) ※ゼロ(0) が抜けていた > > ○ if ( #バージョン番号 >= 10.1 ) ※桐10s のバージョン > > 差し替えるほどの虫では無いので、差し替えはしません。 > > 気になる人はお手数ですが修正願います。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 > > 手続き定義終了 > > >
File
/
アップ可能拡張子=> /
.gif
/
.jpg
/
.jpeg
/
.png
/.txt/.lzh/.zip/.mid
圧縮ファイル[lzh,zip]は、事前に解凍してご利用下さい。
1) 太字の拡張子は画像として認識されます。
2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。
3) 同名ファイルがある、またはファイル名が不適切な場合、
ファイル名が自動変更されます。
4) アップ可能ファイルサイズは1回
200KB
(1KB=1024Bytes)までです。
5) ファイルアップ時はプレビューは利用できません。
6) スレッド内の合計ファイルサイズ:[0/500KB]
残り:[500KB]
パスワード
/
半角小文字で「ケイ・アイ・アール・アイ」を入力
削除キー
/
(半角8文字以内)
解決済み!
BOX/
解決したらチェックしてください!
プレビュー/
Mode/
通常管理
表示許可
Pass/
HOME
HELP
新規作成
新着記事
ツリー表示
スレッド表示
トピック表示
ファイル一覧
検索
過去ログ
-
Child Tree
-
-
Antispam Version
-