| 投稿日 | ： 2003/03/04(Tue) 15:18 |
| 投稿者 | ： 魔界の仮面弁士 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: テキストボックスの文字をリストボックスへ |
> さて質問ですがテキストボックスで漢字の入力をして、それのフリガナを取得してラベルにコピーし
> たいのですが（アウトルックエクスプレスの新規登録画面みたいに）どうすればよいでしょうか？
実行環境に Excel 2000以上がインストールされているのであれば、
Dim Obj As Object
Set Obj = CreateObject("Excel.Application")
Label1.Caption = Obj.GetPhonetic(Text1.Text)
Obj.Quit
Set Obj = Nothing
のように書く事ができます。
または、Excelがインストールされていない環境のために、
MS-IME98以上の再変換機能を利用するという手もあります。
http://www.ocv.ne.jp/~oratorio/windev/vb/TypeLibrary/BS_MSIME.LZH
あるいは、Win32 APIの利用となりますが、ImmGetConversionList などを
利用する事もできます。