VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/12/15(Fri) 14:36 |
| 投稿者 | ： こう |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Changeイベントでテキストボックスを変換 |
Changeイベントで、テキストボックスに入力した文字の変換を
しています。
入力した、先頭１バイトを、半角の大文字、それ以降を、半角の
小文字に変換しています。
例えば、
「tokyo」と入力したら「Tokyo」と変換
「TOKYO」と入力したら「Tokyo」と変換
したいのですが、どうしても、「Oykto」となってしまいます。
どこがいけないのでしょうか。
IMEModeは、「半角英数」を指定しています。
Private Sub Text1_Change()
Dim top_chr As String
Dim str_chr As String
top_chr = UCase(Mid$(Text1.Text, 1, 1))
str_chr = LCase(Mid$(Text1.Text, 2))
Text1.Text = top_chr & str_chr
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）