|
▼漂流民 さん:
こんにちは
その通りです。貴殿のコードを書かせていただいたのです。
非常に参考になったので、また私が受け売りでした。
ところでまた、新しいSelectCaseですか?参考にさせていただきます。
>ただこのスレの質問の内容とは少し違うような・・・
>ちなみに、
>> If TextBox1.IMEMode = 4 Then
>> TextBox1.IMEMode = 5
>> ElseIf TextBox1.IMEMode = 5 Then
>> TextBox1.IMEMode = 8
>> ElseIf TextBox1.IMEMode = 8 Then
>> TextBox1.IMEMode = 4
>> End If
>ですが、
>後で見て「メンテナンス性の悪い素人丸出しのコードだなぁ」
>と思いましたが、わざわざ追記するほどではないと思ったので
>書きませんでしたが、
>'*********************************************************
> Select Case TextBox1.IMEMode
> Case 4
> TextBox1.IMEMode = 5
> Case 5
> TextBox1.IMEMode = 8
> Case 8
> TextBox1.IMEMode = 4
> End Select
>'*********************************************************
>や
>'*********************************************************
> Dim Ti As Integer
> Ti = TextBox1.IMEMode
> Select Case Ti
> Case 4
> Ti = 5
> Case 5
> Ti = 8
> Case 8
> Ti = 4
> End Select
>'*********************************************************
>とした方が使いやすいと思います。
ありがとう御座います。でもSelectCaseの場合は、Commandボタンで入力後、テキストボックスの文字を一旦削除しないと、IMEModeが変わりませんね。そのような意図だったのですか・・・失礼しました。
また、ちょっと教えていただきたいのですが、現在選択されているIMEModoを表示するのはラベルかどこかに出す事はできるのでしょうか?
|
|