在datagrid获得光标后，按tab键让其焦点移动到其他控件。

Public Class mytabdatagrid

    Inherits System.Windows.Forms.DataGrid

 

 

 

‘/

#Region " Windows 窗体设计器生成的代码 "

 

 

 

    Public Sub New()

        MyBase.New()

 

 

 

        '该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()

 

 

 

        '在 InitializeComponent() 调用之后添加任何初始化

 

 

 

    End Sub

 

 

 

    'UserControl 重写 dispose 以清理组件列表。

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

 

 

 

    'Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer

 

 

 

    '注意：以下过程是 Windows 窗体设计器所必需的

    '可以使用 Windows 窗体设计器修改此过程。

    '不要使用代码编辑器修改它。

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        components = New System.ComponentModel.Container()

    End Sub

 

 

 

#End Region

‘//

    Private next_object As Button

    <Description("按Tab键时获得光标的按钮。")> _

    Public Property get_button() As Button '这里完全可以设置成一个control类型的属性，而不仅仅是一个按钮，在这里只做简单的示范

        Get

            Return next_object

        End Get

        Set(ByVal Value As Button)

            next_object = Value

        End Set

    End Property

    Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean

        Dim WM_KEYDOWN As Integer = 256

        Dim WM_SYSKEYDOWN As Integer = 260

        If ((msg.Msg = WM_KEYDOWN) Or (msg.Msg = WM_SYSKEYDOWN)) Then

 

 

 

            Select Case keyData

                Case Keys.Tab

                    If next_object Is Nothing Then Exit Function

                    next_object.Focus()

                    Return True

                    'Case Keys.Down

                    '    MsgBox("截到下箭头键")

                    '    Return True

                    'Case Keys.Up

                    '    MsgBox("截到上箭头键")

                    '    Return True

                    'Case Keys.Enter

                    '    SendKeys.Send("{Tab}")

                    '    Return True

                    'Case Keys.Control + Keys.M

                    '    MsgBox("<CTRL> + m 组合键被截获")

                    '    Return True

                    'Case Keys.Alt + Keys.Z

                    '    MsgBox("<ALT> + z 组合键被截获")

                    '    Return True

            End Select

        End If

    End Function

End Class