テキストボックスに漢字を入力するには？ (ID：78271)

名前

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

本文

> 実際の入力モードが変わらないので、どのように設定すれば良いのですか。

実装方法は幾つかありますが、たとえば、

Public Enum IMEModeConstants
    auto
    active
    inactive
    disabled
End Enum

という列挙型をUserControl上に配置した上で、

Public Property Get IMEMode() As IMEModeConstants
    Select Case LCase(TextControl.currentStyle.IMEMode)
     Case "active"
        IMEMode = active
     Case "inactive"
        IMEMode = inactive
     Case "disabled"
        IMEMode = disabled
     Case Else
        IMEMode = auto
    End Select
End Property

Public Property Let IMEMode(ByVal vNewValue As IMEModeConstants)
    Select Case vNewValue
     Case auto
        TextControl.runtimeStyle.IMEMode = "auto"
     Case active
        TextControl.runtimeStyle.IMEMode = "active"
     Case inactive
        TextControl.runtimeStyle.IMEMode = "inactive"
     Case disabled
        TextControl.runtimeStyle.IMEMode = "disabled"
     Case Else
        TextControl.runtimeStyle.IMEMode = ""
    End Select
    UserControl.PropertyChanged "IMEMode"
End Property

のようなプロパティ定義を記述し、そしてさらに UserControlの
Read(Write)Properties イベントにて、以下の記述を追加してみるとか。

ReadProperties イベント：
    TextControl.runtimeStyle.IMEMode = PropBag.ReadProperty("IMEMode", "")

WriteProperties イベント：
    PropBag.WriteProperty "IMEMode", TextControl.currentStyle.IMEMode

←解決時は質問者本人がここをチェックしてください。

戻る