Apostar y ganar

Click Now!

sábado, 28 de febrero de 2015

Desplazar el foco entre los distintos controles VISUAL NET

 funcion foco para ir saltando de control en control en visual net

    Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean

        Select Case keyData

            Case Keys.Return

                ' Desplazar el foco entre los distintos controles
                ' mediante la tecla Return. El código está basado en un
                ' ejemplo de Francesco Balena.
                '
                ' Iniciar todos los controles seleccionados actualmente.
                '
                Dim ctrl As Control = Me.ActiveControl

                Do
                    ' Obtener el siguiente control hacia delante en el
                    ' orden de tabulación.
                    ctrl = Me.GetNextControl(ctrl, True)

                    ' GetNextControl(ctrl, False) puede devolver Nothing si
                    ' es el primer control.

                    If (Not (ctrl Is Nothing) AndAlso (ctrl.CanFocus) AndAlso (ctrl.TabStop)) Then
                        ' Si el control puede recibir el foco, se lo doy.
                        ctrl.Focus()
                        Exit Do
                    End If
                Loop

        End Select

        Return MyBase.ProcessCmdKey(msg, keyData)

    End Function