C# と VB.NET の質問掲示板

コンボボックスで矢印キーを無効化したいのですが

https://dobon.net/vb/dotnet/control/cbignoredownkey.html

Private Sub ComboBox1_KeyDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyEventArgs) _
    Handles ComboBox1.KeyDown
    If e.KeyCode = Keys.Down Or e.KeyCode = Keys.Up Then
        e.Handled = True
    End If
End Sub

という方法を使うと、同時にホイールによる操作も無効化されてしまいます。

一体、どうすればホイールキーの操作はそのままで矢印キーだけ無効化することができますか？

ありがとうございます。

実は、矢印キーに別の機能を割り当てているのですが、
コンボボックスやテキストボックスとかにフォーカスが合った状態で操作すると
その機能と同時にこれらのボックスの機能も動作してしまうため、
これらのボックスの機能を停止させたいと考えています。

テキストボックスに関してはうまくいったのですが
コンボボックスだけがうまくいっていません。

以下のようにしてみたのですが、
やはりホイールを動かした時に
KeyDownの方も同時に動作してしまいます。

どのようにすれば良いでしょうか？


    Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox5.KeyDown

        Select Case e.KeyCode
            Case Keys.Up
                'コード
                e.Handled = True
            Case Keys.Left
                'コード
                e.Handled = True
            Case Keys.Right
                'コード
                e.Handled = True
            Case Keys.Down
                'コード
                e.Handled = True
        End Select
    End Sub


    Private Sub ComboBox5_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles ComboBox5.MouseWheel

        Dim CMB = CType(sender, ComboBox)

        If e.Delta < 0 AndAlso CMB.Items.Count() - 1 > CMB.SelectedIndex Then

            CMB.SelectedIndex += 1

        ElseIf e.Delta > 0 AndAlso CMB.SelectedIndex > 0 Then

            CMB.SelectedIndex -= 1

        End If

    End Sub