[リストへもどる]
一括表示
投稿時間：2003/03/04(Tue) 14:53
投稿者名：花音
Ｅメール：
ＵＲＬ　：
タイトル：テキストボックスの文字をリストボックスへ
初めまして

さて質問ですがテキストボックスで漢字の入力をして、それのフリガナを取得してラベルにコピーし
たいのですが（アウトルックエクスプレスの新規登録画面みたいに）どうすればよいでしょうか？ただ
単に「label.caption=text.text」とすると漢字がコピーされるので・・・

教えてくださいお願いします

投稿時間：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 などを
利用する事もできます。

投稿時間：2003/03/04(Tue) 15:51
投稿者名：花音
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: テキストボックスの文字をリストボックスへ
レスありがとうございます
早速やってみたいと思います