懒人的懒方法之-回车跳转大法

 
在实际软件开发过程中..经常碰到回车跳转到下一个控件上.

数量少还没什么,可以如下操作,Handles 后把其它控件也加上就行了...

 Private Sub TextBox1_KeyPress()Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            e.Handled = True
            Me.SelectNextControl(sender, True, True, True, True)
        End If
    End Sub

 

如果来个十几二十个..一个一个去加也烦...那就来看看这个吧

 

    Protected Overrides Function ProcessCmdKey()Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        If keyData = Keys.Enter Then
            If Me.ActiveControl.GetType.GetHashCode.ToString = "2068314800" Then
                Me.SelectNextControl(Me.ActiveControl, True, True, True, True)
            End If
        End If
    End Function

 

其中Me.ActiveControl.GetType.GetHashCode.ToString = "2068314800" 是文本框