過去ログ

                                Page     224
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼テキストボックスの入力について  ぴかる 02/10/18(金) 15:33
   ┗Re:テキストボックスの入力について  yu-ji 02/10/18(金) 15:51
      ┗Re:テキストボックスの入力について  ぴかる 02/10/18(金) 16:11

 ───────────────────────────────────────
 ■題名 : テキストボックスの入力について
 ■名前 : ぴかる
 ■日付 : 02/10/18(金) 15:33
 -------------------------------------------------------------------------
   こんにちは。

同僚からの質問です。私は、わからんかったです。

テキストボックスに入力する際、容易に半角・大文字に固定出来るでしょうか?。

よろしくお願いします。
 ───────────────────────────────────────  ■題名 : Re:テキストボックスの入力について  ■名前 : yu-ji  ■日付 : 02/10/18(金) 15:51  -------------------------------------------------------------------------
   ▼ぴかる さん:

>テキストボックスに入力する際、容易に半角・大文字に固定出来るでしょうか?。

半角への制限は、テキストボックスのプロパティのIMEModeをfmIMEModeDisable
に設定して、全角を入力できないようにするというのはどうでしょうか?

大文字に固定というのは、小文字を入力しても大文字に変換するというのは?

Private Sub TextBox1_Change()
  TextBox1.Value = UCase(TextBox1.Value)
End Sub

Changeイベントの中で自分自身を更新しちゃうので、2回Changeイベントが
起きるようですが、一応、ちゃんと動きます。
 ───────────────────────────────────────  ■題名 : Re:テキストボックスの入力について  ■名前 : ぴかる  ■日付 : 02/10/18(金) 16:11  -------------------------------------------------------------------------
   yu-jiさん、こんにちは。

>Private Sub TextBox1_Change()
>  TextBox1.Value = UCase(TextBox1.Value)
>End Sub
同僚と一緒に確かめました。バッチリとの事でした。早速、使うみたいです。
ありがとうございました。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 224