質問: テキストボックスに大文字を テキストボックスのkeypressイベントで テキストボックスに大文字を入れたいのですが、 入力の時に、shift+capslock(英数)ってすると、大文字がいれれるとおもうのですが、それを初期設定で制限することはできないのでしょうか?
回答: お疲れ様です。 どのようなことを行いたいのかはよくわかりませんが apiでcaps lockを強制的にonにすることは出来ると思います。 以下の例は、フォームが起動する時に現在のcaps lockの 値を見てoff状態なら強制的にonにしています。 これに似たものを gotfocus イベントに入れると初期設定 のように見えるのではないでしょうか? option explicit '// api private declare sub keybd_event lib "user32" (byval bvk as byte, byval bscan as byte, byval dwflags as long, byval dwextrainfo as long) private declare function getkeyboardstate lib "user32" (pbkeystate as byte) as long private const vk_capital = &h14 private const keyeventf_extendedkey = &h1 private const keyeventf_keyup = &h2 private sub form_load() dim keys(0 to 255) as byte '// get keyboardstate getkeyboardstate keys(0) '// caps lock の状態を判断 if not cbool(keys(vk_capital)) then '// caps lock が点灯していない '// caps key を押したことにする keybd_event vk_capital, &h45, keyeventf_extendedkey or 0, 0 '// caps key を離したことにする keybd_event vk_capital, &h45, keyeventf_extendedkey or keyeventf_keyup, 0 else '// caps lock が点灯している '// 何もしない end if end sub 間違っていたらごめんなさい。