No.3ベストアンサー
- 回答日時:
テキストボックスに英小文字または英小文字混じりのストリングを入力しても、大文字にしてしまうのは下記で出来ました。
これを使えないでしょうか。ついでにエクセルでの関数は
A1のセルに小文字があるとして、B1のセルに大文字で統一
するのは「=UPPER(”A1”)」ですね。
-----------------------
Private Sub Form_Click()
' Form1.Print UCase(Text1.Text) ’テストのためやってみたもの
Text1.Text = UCase(Text1.Text)
End Sub
No.2
- 回答日時:
テキストボックスに大文字しか受け付けないような属性にしてしまう方法もあります。
これで行うと、コピペで入力された半角小文字英数も大文字に変更をOS側で変換を行ってくれます。
詳細は参考URLを見てください。
参考URL:http://www.vbvbvb.com/jp/gtips/0751/gSetWindowLo …
No.1
- 回答日時:
お疲れ様です。
どのようなことを行いたいのかはよくわかりませんが
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
間違っていたらごめんなさい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
UserForm1.Showでエラーになります。
工学
-
-
4
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
5
CapsLockを特定の部分だけオンにする
Excel(エクセル)
-
6
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
7
エクセルVBAでOptionButtonのオンオフ取得
Excel(エクセル)
-
8
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
9
エクセル マクロ名にブック名が付いた場合の修正方法
Excel(エクセル)
-
10
Listviewのデータを上から順番に取得 VBA
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel ユーザーフォームで計算 ...
-
エクセルVBAでテキストボッ...
-
ACCESS 除算での小数点切上げ方法
-
VBSのプログラム
-
【VB.NET】テキストボックスに...
-
特定の文字だけ太文字にするに...
-
エクセルVBA チェックBoxと...
-
配列を使ってみたんですけど
-
visual basic初心者です。 visu...
-
VBAのユーザーフォームで、テキ...
-
ユーザーフォームへのデータ入...
-
VB2008 textbox入力判断について
-
Vba テキストボックスの文字列...
-
アクセスできない保護レベルエ...
-
VBでの入力値制限について
-
C#のループでtextboxに値を入れ...
-
VBA public変数はどのようなこ...
-
プロシージャまたは関数の引数...
-
レコードセットにnullの場合
-
マウスポインタの変更
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスできない保護レベルエ...
-
エクセルVBAでテキストボッ...
-
【VB.NET】テキストボックスに...
-
VBAで入力数値について
-
VBAのユーザーフォームで、テキ...
-
VB2010 TextBoxの数字の表示...
-
ユーザーフォームへのデータ入...
-
コンボボックスからテキストボ...
-
visual basic初心者です。 visu...
-
テキストボックスに大文字を
-
VBでの入力値制限について
-
TextBoxの内容を右寄せ
-
Excel ユーザーフォームで計算 ...
-
【C#】コンボボックスにおけるS...
-
VB2005テキストボックスへのコ...
-
Vba テキストボックスの文字列...
-
Vba 電卓のテキストボックスに...
-
テキストボックスを空白にする方法
-
テキストボックスに入る文字を...
-
16進数
おすすめ情報