ちょっと不思議な現象
頼みもしないのに勝手に半角英字が全角英字に変換されてしまう現象が出た。
実はコードウィンドウの該当部分をコピーしてここに張り付けた場合でも全角に変換されていた。その後いろいろテキストをいじっていたら出なくなった!?
<全角に一部変換されるケース>
Msg_L59 = "Log.txt がすでにオープンされているため書き込めません!" & vbCrLf & _
"Log.txt を閉じてください。" & vbCrLf & _
"Log.txt を閉じることができない場合は「キャンセル」ボタンをクリックしてください"
'Msg_L59 = StrConv(Msg_L59, vbNarrow)
RC = MsgBox(Msg_L59, vbOKCancel, "■ファイルオープンエラー")
If RC = vbOK Then
Resume
End If
===
<全角に変換されないケース>
Msg_L59 = "Log.txt がすでにオープンされているため書き込めません!" & vbCrLf & _
"Log.txt を閉じてください。" & vbCrLf & _
"Log.txt を閉じることができない場合は「キャンセル」ボタンをクリックしてください"
'Msg_L59 = StrConv(Msg_L59, vbNarrow)
RC = MsgBox(Msg_L59, vbOKCancel, "■ファイルオープンエラー")
If RC = vbOK Then
Resume
End If
当初はMsg_L59 = StrConv(Msg_L59, vbNarrow)のおまじないで全角に変換されるのは解消できていたがあまりにも不思議なので色々いじって試していたらこうなりました。
まだ再現できてません>全角に変換されるにはどういう条件が必要なんだろう?