0

コンボボックスをフィルタリングして、正しいレコードをフィルタリングして表示することができました。つまり、A を入力するとすべての A レコードが表示され、B を入力するとすべての B レコードが表示されます。ただし、コンボ ボックスにレコードが見つからない場合にメッセージ ボックスを表示することは可能でしょうか?

私がこれまでに持っているコーディングは:-

  Private Sub cmblogged_KeyPress(sender As Object, e As KeyPressEventArgs) Handles cmblogged.KeyPress
        If Char.IsControl(e.KeyChar) Then Return

        With Me.cmblogged

            Dim ToFind As String = .Text.Substring(0, .SelectionStart) & e.KeyChar
            Dim Index As Integer = .FindStringExact(ToFind)

            If Index = -1 Then Index = .FindString(ToFind)
            If Index = -1 Then Return

            .SelectedIndex = Index
            .SelectionStart = ToFind.Length
            .SelectionLength = .Text.Length - .SelectionStart

            e.Handled = True

        End With

    End Sub
4

1 に答える 1