投稿日 | : 2005/12/06(Tue) 11:31 |
投稿者 | : あやめ |
URL | : |
タイトル | : Re^4: 大文字指定 |
花ちゃん 様 ありがとうございました。
Text1.SelStart = Len(Text1.Text)
Text1.Text = UCase(Text1.Text)
ねらいどおり動きました。
また、下記もご指摘どおりうごきました。2行目が悪さしてました。
ttt = StrConv(ttt, vbUpperCase)
'Text1.Text = ""
Text1.Text = ttt
教えていただいた
Text1.SelStart = Len(Text1.Text)
は、どういう命令でしょうか?
よろしくお願いします。
> 下記では。
> Private Sub Text1_Change()
> Text1.SelStart = Len(Text1.Text)
> Text1.Text = UCase(Text1.Text)
> End Sub
>
>
> >TEXT1.TEXT の _Click イベント内で
> >TEXT1.TEXT = StrConv(TEXT1.TEXT String,vbUpperCase)
> >で 変換してTEXT1.TEXT に 表示すると
> >当然またイベントが発生してしまい、その繰り返しでオーバーフローになりました。
>
> コードが間違っているのは別として、オーバーフローにはなりませんよ。
> (繰り返す事はありませんよ)
> 他に原因があるかと思います。(他に何か処理していませんか)
> Private Sub Text1_Click()
> Text1.Text = StrConv(Text1.Text, vbUpperCase)
> End Sub