VB.NET ComboBoxのオートコンプリートが動作しない場合がある

Question

前提・実現したいこと

VB.NETで、
ComboBoxにオートコンプリートを適用したいと思い試作してみたのですが、
オートコンプリートが動作しない場合があります。
（具体的な発生条件については、「発生している問題・エラーメッセージ」にて記載しています。）

自分で調べてみましたがわからなかったため、
原因・解決策等教えていただきたいです。

ComboBoxは以下のように設定しています。
・Items：ひらがなの「あ～ん」までを、昇順で1字ずつ設定。（濁音・半濁音・促音・拗音等は含まず、項目数46）
・AutoCompleteSource：ListItems
・AutoCompleteMode：Suggest
・DropDownStyle：DropDownList

発生している問題・エラーメッセージ

上記設定でデバッグ実行し、ComboBoxにフォーカスがあたっている＆アイテム未選択の状態で文字を入力すると、

○　「あ」～「む」：オートコンプリートが機能し、入力した文字と同一のアイテムが選択される
×　「め」～「ん」：オートコンプリートが機能せず、リストが開く（ComboBox右の矢印をクリックした時と同じ動作をする）

となります。

「め」～「ん」入力時にも、「あ」～「む」入力時と同様、オートコンプリートが機能するようにしたいです。

試したこと

・AutoCompleteMode：SuggestAppendにしてみる
・Sorted：False→Trueにしてみる
・MaxDropDownItems：デフォルトの値(8)→大きな値(100とか)にしてみる
・Formを縦に大きくしてみる

　→　全て効果なし

補足情報（FW/ツールのバージョンなど）

Visual Studio 2019 Version 16.9.1
.NET Framework 4.7.2
Windows 10 Home

Answer 1

たしかに不具合ある感じの奇妙な動きですね。

調べてみたら根源はAuto～となる以前からの問題に起因しているようで、
こちらが事の始まり(にして終わり)でしょうか。

Microsoft KB Archive/814362
https://www.betaarchive.com/wiki/index.php?title=Microsoft_KB_Archive/814362

文中、'This behavior is by design.'「これは仕様です」とありますので、
２バイト文字利用下でしたらこれら機能はオマケ程度に考えといてね、という結論。

対策を考えてみますと。

１．KeyDown で情報が取れて
２．続いて必ず KeyDown イベントが来て
３．うまく動くときは SelectedIndexChanged イベントが来る
４．最後に KeyUp イベントが来る

という流れですので、
KeyUp イベントのとき、SelectedIndexChanged が来てなかったら、カバー処理を入れてやればよい。

なんですが。
KeyDown イベントには、IMEで変換された文字は取れないようでAPIに頼らないと無理なようです。

ComboBox を継承したクラス( Combobox4KB814362 )でも問題解消を試みてみました。
（とりあえず動いてますが、VB慣れないのでコーディングの細かいところ適当です。m(_ _)m
ご利用の際は適宜手直ししてください）

Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Imports System.Text

Public Class Combobox4KB814362
    Inherits ComboBox

    Const GCS_RESULTSTR As Integer = &H800      '最終変換結果文字列を取得
    Const WM_IME_COMPOSITION As Integer = &H10F '文字列が確定されたとき他

    Declare Auto Function ImmGetContext Lib "imm32.dll" (ByVal hWnd As IntPtr) As IntPtr
    Declare Auto Function ImmReleaseContext Lib "imm32.dll" (ByVal hWnd As IntPtr, ByVal hIMC As IntPtr) As Integer
    Declare Auto Function ImmGetCompositionString Lib "imm32.dll" (ByVal hIMC As IntPtr,
        ByVal dwIndex As Integer, ByVal lpBuf As StringBuilder, ByVal dwBufLen As Integer) As Integer

    Private Shared Function GetCompositionString(hIMC As IntPtr) As String
        Dim bufferSB As New StringBuilder(0)
        Dim length As Integer = ImmGetCompositionString(hIMC, GCS_RESULTSTR, bufferSB, 0)
        bufferSB.Length = CInt(length / Len(New Char))
        length = ImmGetCompositionString(hIMC, GCS_RESULTSTR, bufferSB, length)
        Return bufferSB.ToString(0, CInt(length / Len(New Char)))
    End Function

    Enum CTRL_STATE As Integer
        IDLING
        DROPDOWN_CATCH
        SELECTEDINDEXCHANGED_CATCH
    End Enum

    Private Property mySTATE As CTRL_STATE = CTRL_STATE.IDLING
    Private Property myBackupIMMString As String = ""

    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_IME_COMPOSITION AndAlso (CInt(m.LParam) And GCS_RESULTSTR) = GCS_RESULTSTR Then
            Dim hIMC As IntPtr = ImmGetContext(Me.Handle)
            myBackupIMMString = GetCompositionString(hIMC)
            ImmReleaseContext(Me.Handle, hIMC)
        End If
        MyBase.WndProc(m)
    End Sub
    Protected Sub ComboBox2_DropDown(sender As Object, e As EventArgs) Handles Me.DropDown
        mySTATE = CTRL_STATE.DROPDOWN_CATCH
    End Sub
    Protected Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Me.SelectedIndexChanged
        mySTATE = CTRL_STATE.SELECTEDINDEXCHANGED_CATCH
    End Sub
    Protected Sub ComboBox2_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        If mySTATE <> CTRL_STATE.SELECTEDINDEXCHANGED_CATCH Then
            Me.SelectedIndex = FindString(myBackupIMMString, Me.SelectedIndex)
        End If
        mySTATE = CTRL_STATE.IDLING
    End Sub
End Class

※参考
IMEで入力された日本語の読みを取得するには？［C#、VB］
https://www.atmarkit.co.jp/fdotnet/dotnettips/875imeyomi/imeyomi.html

ImmGetCompositionStringでUnicodeの文字を取得できない
https://social.msdn.microsoft.com/Forums/ja-JP/f2169cf7-5e34-45b4-ba37-c33ad9a5571e/immgetcompositionstring12391unicode123982599123383124342146224471123911236?forum=csharpgeneralja

ImmGetCompositionString 変換中の文字列の情報を取得
http://nienie.com/~masapico/api_ImmGetCompositionString.html

Comments

[kkktt]

詳細な回答ありがとうございます。

提示いただいたソースのうち、KeyUpイベント部分を一部変更することでうまくいきました。
　(1)KeyUp→KeyPressに変更(KeyUpだとCtrl、Alt等の修飾キーも取ってきてしまうため)
　(2)FindString()関数で一致する項目が見つかるかどうか事前にチェック実施
　(アイテム選択済(SelectedIndex<>-1)の状態でリストに該当しない文字(数字等)入力した際に未選択の状態(SelectedIndex=-1)に戻ってしまうので、標準のComboBoxと同様、SelectedIndexは変えずにリストが出る形となるようにしました)

Protected Sub ComboBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
If mySTATE <> CTRL_STATE.SELECTEDINDEXCHANGED_CATCH Then
If FindString(myBackupIMMString, Me.SelectedIndex) <> -1 Then '(2)
Me.SelectedIndex = FindString(myBackupIMMString, Me.SelectedIndex)
End If
End If
mySTATE = CTRL_STATE.IDLING
End Sub

[FromMZ1500]

なるほど。ナイス、カバー、ありがとうございます。
濁音・半濁音・促音抜きでちょろっとテストしただけでした。(汗)