RadioButtonを継承したカスタムコンポーネント (ID:144453)

名前

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

本文

お世話になります。
VB2005でRadioButtonを継承したカスタムコンポーネントを作成しています。
パネル１にRadioButtonを３つ パネル２にRadioButtonを３を貼り付け
エンター(Enter)か下矢印(Down)で別パネルのチェックのあるボタンに
移動するプログラムを作っています、エンターではうまく動作するので
すが、下矢印だと次のパネルのチェックのあるボタンの次のボタンが
選択されてしまいます。
いろいろ試したのですがうまく動作しません何か良い方法があれば教えて
頂ければと思います、宜しくお願いします。
Public Class RadioButtonStandard
    Protected Overrides Sub OnPreviewKeyDown(ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs)
        MyBase.OnPreviewKeyDown(e)
        If e.KeyCode = Keys.Up Then
            Me.TopLevelControl.SelectNextControl(Me, False, True, True, True)
        ElseIf e.KeyCode = Keys.Enter OrElse e.KeyCode = Keys.Down Then
            Me.TopLevelControl.SelectNextControl(Me, True, True, True, True)
        End If
    End Sub

Protected Overrides Sub OnEnter(ByVal e As System.EventArgs)
        MyBase.OnEnter(e)
        Me.BackColor = Color.LightSteelBlue
    End Sub

Protected Overrides Sub OnLeave(ByVal e As System.EventArgs)
        MyBase.OnLeave(e)
        Me.ResetBackColor()
    End Sub
End Class

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

戻る