■記事リスト / ▼下のスレッド
/ ▲上のスレッド
| ■15017 / 親記事) |
数値型項目で入力の際数値以外のキーを受け付けない
|
□投稿者/ まさやん -(2025/07/09(Wed) 15:00:38)
| 2025/07/09(Wed) 15:24:55 編集(投稿者)
いつも お世話になっております
桐９s Win11 イベント処理を行っています
フォーム入力時に
品名や 備考 などの 文字列型項目での入力では
全キーボード入力を 拒まないのですが
数値型項目入力時に
数字キー以外の キーを受け付けないという 方法はできますか？
イベント実行中 数字入力だけの (例えば 単価 とか 数量など)際に
間違って 英字キー 押して 間違ってエンターキー押すと
メッセが出て その先の 処理を受け付けてくれません
そのための 回避策を探していますが
そのようなことができるかどうかもわかりませんが
宜しくお願い致します。
|
|
|
▽[全レス17件(ResNo.13-17 表示)]
| ■15032 / ResNo.13) |
Re[8]: 数値型項目で入力の際数値以外のキーを受け付けない
|
□投稿者/ まさやん -(2025/07/10(Thu) 11:54:38)
| ありがとうございます。
色んなイベントを組まれての経験談で得た答えなんですね。
勉強になります。
また色々とご伝授してください。
ありがとうございます。
|
|
|
| ■15033 / ResNo.14) |
Re[9]: 数値型項目で入力の際数値以外のキーを受け付けない
|
□投稿者/ ONnoji -(2025/07/10(Thu) 15:32:52)
| 2025/07/10(Thu) 15:57:30 編集(投稿者)
論より証拠。
サンプルを作りました。
INF_Framework をダウンロードしたフォルダに解凍してください。
内容に関しては、AKomeさんのｗｅｂページの解説をお読みください。
キーダウンイベントを簡単に｜あこめの桐のプログラミング入門 桐10s・桐s-2024LT by AKome
https://akome409102.cloudfree.jp/Kiri/INF33MkII_VK.html
3-2. 動的運用：その都度 有効にして、処理を実行後無効にします
https://akome409102.cloudfree.jp/Kiri/INF33MkII_VK.html#9
◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇
手続き定義開始 txtA::入力前(参照 文字列 &編集文字列)
手続き実行 VKprcEventKeyDownON( )
手続き実行 VKprcKeyON( )
手続き実行 VKprcKeySet( "key", 1, "項目訂正,訂正", "手続き実行 prcTest( &VKmChr, &処理中止 )" )
手続き定義終了
手続き定義開始 txtA::入力後(参照 文字列 &編集文字列，長整数 &モード，参照 長整数 &入力継続)
手続き実行 VKprcEventKeyDownOFF( ) /* キーダウンイベントをオフ */
手続き実行 VKprcKeyOFF( ) /* 実行禁止 */
手続き実行 VKprcKeyClear( "key", "項目訂正,訂正" ) /* クリア */
手続き定義終了
手続き定義開始 prcTest( 文字列 &key, 参照 長整数 &処理中止 )
変数宣言 自動，文字列｛ &keyList = "0,1,2,3,4,5,6,7,8,9,+,-" ｝
トレース出力 _( #対応番号( &keyList, &key ) <> 0 )
if ( #対応番号( &keyList, &key ) <> 0 )
&処理中止 = 0
end
トレース出力 _&key, " ", _&処理中止
手続き定義終了
ｐ．ｓ．
なお、サンプルは数日を目途に削除します。
|
|
|
| ■15036 / ResNo.15) |
Re[10]: 数値型項目で入力の際数値以外のキーを受け付けない
|
□投稿者/ まさやん -(2025/07/10(Thu) 20:43:43)
| サンプルまでいただいてありがとうございます。
> INF_Framework をダウンロードしたフォルダに解凍してください。
>
解凍して フォームクリックしたのですが
○○ライブラリ が見つかりません とのメッセが出ますが・・
先日 ダウンロードコーナーから ダウンロードしたのがありまして
その中のと同じのかと思われますので 試してみます
また AKOMEさんのと もひとつのURL 見てみました
私のレベルでは まだ 解釈不足です
ゆっくりとじっくりとみてみます
|
|
|
| ■15037 / ResNo.16) |
Re[11]: 数値型項目で入力の際数値以外のキーを受け付けない
|
□投稿者/ ONnoji -(2025/07/10(Thu) 20:50:28)
| 2025/07/11(Fri) 08:51:12 編集(投稿者)
> 論より証拠。
> サンプルを作りました。
> INF_Framework をダウンロードしたフォルダに解凍してください。
> 先日 ダウンロードコーナーから ダウンロードしたのがありまして
> その中のと同じのかと思われますので 試してみます
↑
そのフォルダに解凍する
または
ダウンロードコーナーからダウンロードしたファイルが存在するフォルダの
・INF_Framework.cmd
・IPS_Framework.cmd
この２つのファイルを VK_使用例.wfm/kev があるフォルダにコピーしてください
ｐ．ｓ．
> また AKOMEさんのと もひとつのURL 見てみました
> 私のレベルでは まだ 解釈不足です
そもそも初めて経験するインタフェースなのですから誰でも最初から理解・解釈出来ないのが普通ですよ。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
まず、考えずに AKomeさんの例を試してみることです。
・・・・・・・・・・・・・・・・・・・・・
例えば、表示モードで［／］［−］キーが押された時に現れる「スラッシュ・メニュー」を止めるとかなど・・・
そうすれば、なるほど！と分かってくるハズですよ。
ただ考えるのは何もしないのと同じです。(^^ゞ
ｐ．ｐ．ｓ．
老婆心ながら・・・(^^ゞ
フレームワークというものは内容を理解する必要は無いのです。
・・・・・・・・・・・・・・・・・・・・・・・・・
それよりも、使い方を理解する事が重要なんです。
・・・・・・・・・・・・・・・・
フレームワークの内容に関心が無くて、フレームワークの使い方に関心がある人はソフトウェア開発に適性があります。
そういう人はフレームワークを利用して、短時間に［フォーム＋イベント処理］アプリケーションを作っています。
それに対して、ＤＯＳ桐からのベテラン組の人達は、長年一括処理、つまり［フロー駆動型］を使っていたので、
［フロー］＝［コーディング］＝プログラミングと認識しているようです。
つまり、全部自分でプログラムを書かないと気が済まない人が多いように思います。
勿論、その方が気分が良い人も居ることでしょう。
しかし、それではいつまでたっても［イベント駆動］のプログラミングを効率よく構築出来ないと思いますよ。
・・・・・・・・・・・・・・・・・・・・・・・
既に出来上がっている車輪＝フレームワークを利用する方が、車輪を再発明するよりも効率がよいのですから・・・
＜用語＞
車輪の再発明 出典: フリー百科事典『ウィキペディア（Wikipedia）』
車輪の再発明（しゃりんのさいはつめい、英: reinventing the wheel）とは、
「広く受け入れられ確立されている技術や解決法を（知らずに、または意図的に無視して）再び一から作ること」を指すための慣用句。
誰でも直観的にその意味が分かるように、車輪という誰でも知っていて古くから広く使われている既存の技術を比喩の題材として使った慣用表現で、世界中で使われている。
再利用すべき「車輪」
IT業界において、再発明するのではなく再利用すべき「車輪」の例としては以下のようなものがある[1]。
・ライブラリやフレームワーク
ドキュメントが整備されていることや日々メンテナンスされてバグが無くなっていることが必要。
使用するライブラリやフレームワークが広く知られている場合には、
開発経験をもった人をアサインすることで引き継ぎなどもスムーズに行くというメリットもある。
|
|
|
| ■15038 / ResNo.17) |
Re[12]: 数値型項目で入力の際数値以外のキーを受け付けない
|
□投稿者/ ONnoji -(2025/07/10(Thu) 23:53:47)
| 2025/07/11(Fri) 07:53:55 編集(投稿者)
拙作：VK_Framework で試したところ当初の予想よりも簡単に［数値以外のキーを受け付けない］が実現できました。(^^ゞ
簡単なレビューを以下にご報告します。
◇ ◇ ◇ ◇ ◇ ◇
【イベントハンドラに直接記述する】
手続き定義開始 ﾌｫｰﾑ::ｷｰﾀﾞｳﾝ(長整数 &仮想キーコード，長整数 &スキャンコード，長整数 &フラグ，参照 長整数 &処理中止)
メソッド呼び出し @ﾌｫｰﾑ.更新モード取得(&更新モード)
メソッド呼び出し @ﾌｫｰﾑ.フォーカスオブジェクト取得(&STR)
┌if (&更新モード≠0)
│┌if ((&仮想キーコード>=65 .and &仮想キーコード<=90 .and &仮想キーコード≠13) .or (&仮想キーコード>=106 .and &仮想キーコード≠110)
││ &比較式=#項目属性(#項目番号(#部分列(&STR,#IS全角(&STR,0))),2)
││ 条件 (&比較式≠"文字列") &処理中止=1
││ 条件 (&比較式≠"文字列") メッセージボックス "","数字キーのみの入力です",ボタン=１
│└end
└end
手続き定義終了
上↑と下↓
【VK_Framework を利用する】
手続き定義開始 txtA::入力前(参照 文字列 &編集文字列)
手続き実行 VKprcEventKeyDownON( )
手続き実行 VKprcKeyON( )
手続き実行 VKprcKeySet( "key", 1, "項目訂正,訂正", "手続き実行 prcTest( &VKmChr, &処理中止 )" )
手続き定義終了を
手続き定義開始 txtA::入力後(参照 文字列 &編集文字列，長整数 &モード，参照 長整数 &入力継続)
手続き実行 VKprcEventKeyDownOFF( ) /* キーダウンイベントをオフ */
手続き実行 VKprcKeyOFF( ) /* 実行禁止 */
手続き実行 VKprcKeyClear( "key", "項目訂正,訂正" ) /* クリア */
手続き定義終了
手続き定義開始 prcTest( 文字列 &key, 参照 長整数 &処理中止 )
変数宣言 自動，文字列｛ &keyList = "0,1,2,3,4,5,6,7,8,9,+,-" ｝ /* 必要ならば小数点のドットも加える */
トレース出力 _( #対応番号( &keyList, &key ) <> 0 )
if ( #対応番号( &keyList, &key ) <> 0 )
&処理中止 = 0
end
トレース出力 _&key, " ", _&処理中止
手続き定義終了
比べてみると、
拙作：VK_Framework を利用する場合には
・65,90 といった恣意的な仮想キーコードに振り回されなくて分かり易い
・・・・・・・・・・・・・・・・・・
・［Enter］［Tab］［Esc］の各キーに対して透過的である
・更新モードによって実行内容を指定できる
・分かり易いから改造が簡単に出来る
・・・・・・・
というメリットがあることに気が付く事でしょう。
なお、VK_Framework は Thin INF_Framework / オートINF_Framework 等すべての INF_Framework で使用できます。
ｐ．ｓ．
>>なお、この方法でキーをマスクすると、キーボードが壊れたんじゃないかと不審に思われるかもしれませんね。
>> ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
>>なので、「やり過ぎ感がハンパ無しで満載」ですね。 ※何事もほどほどがいいですよ。
これは杞憂、つまり「とりこし苦労」でしたね。
［入力後］イベントハンドラで不要文字を取り除くよりも、ストレートでパフォーマンスも悪く無いでした。アハハハha
◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇
余談ながらトレースの結果です。
┌when 手続き"txtA::入力前("0")"を実行開始しました
│
│┌when 手続き"VKprcEventKeyDownON( )"を実行開始しました
│└end
│
│┌when 手続き"VKprcKeyON( )"を実行開始しました
│└end
│
│┌when 手続き"VKprcKeySet("key",1,"項目訂正,訂正","手続き実行 prcTest( &VKmChr, &処理中止 )")"を実行開始しました
│└end
│
└end
┌when 手続き"ﾌｫｰﾑ::ｷｰﾀﾞｳﾝ(97,79,0,0)"を実行開始しました
│
│┌when 手続き"VKprcEventKeyEval(97,79,0,0)"を実行開始しました
││
││┌when 手続き"prcTest("1",1)"を実行開始しました
│││
│││ :( #対応番号( &keyList, &key ) <> 0 ) : 1
│││ :&key : 1 &処理中止 : 0
│││
││└end
││
│└end
│
└end
┌when 手続き"ﾌｫｰﾑ::ｷｰﾀﾞｳﾝ(98,80,0,0)"を実行開始しました
│
│┌when 手続き"VKprcEventKeyEval(98,80,0,0)"を実行開始しました
││
││┌when 手続き"prcTest("2",1)"を実行開始しました
│││
│││ :( #対応番号( &keyList, &key ) <> 0 ) : 1
│││ :&key : 2 &処理中止 : 0
│││
││└end
││
│└end
│
└end
┌when 手続き"ﾌｫｰﾑ::ｷｰﾀﾞｳﾝ(99,81,0,0)"を実行開始しました
│
│┌when 手続き"VKprcEventKeyEval(99,81,0,0)"を実行開始しました
││
││┌when 手続き"prcTest("3",1)"を実行開始しました
│││
│││ :( #対応番号( &keyList, &key ) <> 0 ) : 1
│││ :&key : 3 &処理中止 : 0
│││
││└end
││
│└end
│
└end
┌when 手続き"ﾌｫｰﾑ::ｷｰﾀﾞｳﾝ(13,28,0,0)"を実行開始しました
│
│┌when 手続き"VKprcEventKeyEval(13,28,0,0)"を実行開始しました
││
│└end
│
└end
┌when 手続き"txtA::入力後("123",1,0)"を実行開始しました
│
│┌when 手続き"VKprcEventKeyDownOFF( )"を実行開始しました
││
│└end
│
│┌when 手続き"VKprcKeyOFF( )"を実行開始しました
│└end
│
│┌when 手続き"VKprcKeyClear("key","項目訂正,訂正")"を実行開始しました
│└end
│
└end
|
|
|
■記事リスト /
レス記事表示 →
[親記事-9]
[10-17]
|
で表示されます。
で表示されます。
数値型項目で入力の際数値以外のキーを受け付けない(17)