LCMapString を使ってダイレクトに文字列を変換する

本日 MSDN フォーラムに上がっていた質問 「Strconvの戻り値がおかしくて,とても困っています。」 を解決しようとして、StrConvLCMapString を内部で使っているから LCMapString で文字列をダイレクトに変換してみるとどうなるだらうと思ひ、サンプルプログラムを作っているうちに事態は解決してしまいました。互換モードが原因だったとは・・・

でもせっかく作ったので、このまま埋もれさせるのも勿体ないから一応ブログに挙げておきます。VB は StrConv 関数があるので使い道はないと思いますが、何かの参考になれば幸いです。ちなみに .NET における LCMapString の使い方に関しては deraw さんのソース を参考にさせて頂きました。<(_ _)>

なお以下のコードは VB 2010でコーディングしているため、コードの途中改行個所に _ (アンダーバー) を設けていません。 VB2005・VB2008 で使う場合はご注意ください。

結果

コンピューター → こんぴゅーたー
こんぴゅーたー → コンピューター