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