|
▼Poteto さん:
こんばんわ
どこかで見たようなコードだと思ったら
私のサンプルコードでしたか(^^)
[#38369]
参考にしていただきありがとうございます。
ただこのスレの質問の内容とは少し違うような・・・
ちなみに、
> 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
'*********************************************************
とした方が使いやすいと思います。
|
|