| ■11220 / ) |
Re[1]: 半角カナを使わせない
|
□投稿者/ ONnoji -(2018/06/23(Sat) 16:08:03)
| 2018/06/23(Sat) 16:12:14 編集(投稿者)
> あるいは入力途中で対処するなら「入力後」イベントで
>
> 手続き定義開始 某テキスト::入力後(参照 文字列 &編集文字列，長整数 &モード，参照 長整数 &入力継続)
> if(#IS半角(&編集文字列,0)>0)
> *確認 "半角文字は使うな" 的にメッセージを出してもいいけど、手抜きで問答無用に
> &編集文字数=#全角(&編集文字列)
> &入力継続=0
> end
> 手続き定義終了
半角のカナには濁点と半濁点が付着することがあるので、
［半角カナ→全角カナ］変換は濁点と半濁点の処理をしなければならず非常に面倒ですよ。
［入力後］イベントで半角カナを検出したら、「やり直し！」とメッセージボックスを表示するのが一番苦痛が少なくて済みますよ。
それ以外に、メッセージボックスを出さなくても、
当該テキストボックスの文字色を赤色等にして、オペレータに警告するという方法もありますね。
これは単純ですが、結構効き目ありますよ。
|
|
