カタカナを自動で表示するには？ (ID:83904)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 簡単に試しましたが下記で出来ました。 .NETはまだ不慣れなんで書き方は微妙ですが…。 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim hWnd, hImc, iLen As Integer Dim sBuff As String hWnd = CType(sender, TextBox).Handle.ToInt32 hImc = ImmGetContext(hWnd) iLen = ImmGetCompositionString(hImc, GCS_RESULTREADSTR, vbNullChar, 0) + 1 sBuff = Space(iLen) Call ImmGetCompositionString(hImc, GCS_RESULTREADSTR, sBuff, iLen) Call ImmReleaseContext(hWnd, hImc) Label1.Text = sBuff End Sub