El Guru Programador - Procedimiento para navegar con tecla enter entre controles de VB

Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados

Home

Usuarios

Usuarios Registrados

Registrate Gratis!

Zonas

ASP/ASP.NET

Visual Basic/VB.NET

JavaScript

HTML/CSS/XML

Flash/FireWorks

PHP/MySQL

Velneo

C++/C#

SQL

Otros...

Recursos

Tutoriales del Guru

Directorio de Sitios

Downloads

Comunidad

Libreria de Codigo

Foros del Guru

Ofertas de Trabajo

Servicios

Boletin de Novedades

Registro de Dominios

Acerca de...

Contactos

Registro dominios
DiscoAzul.com
PlanetadeJuego.com

Procedimiento para navegar con tecla enter entre controles de VB

Autor [metche]

Calificacion

Sabemos que la tecla de navegacion para un formulario de vb es por default la tecla tab, para poder hacerlo con la tecla enter se debe llamar esta función desde el evento keypress del form previo colocar la propiedad keypreview del form en true.

Sub TabEnter(p_form As Form)

                        Dim w_ctl As Control

                        Dim w_Activo As Integer

                        Dim ctrl As Boolean

                        

                        On Error Resume Next

                        

                        w_Activo = (p_form.ActiveControl.TabIndex) + 1

                        

                        ctrl = True

                        While ctrl

                        For Each w_ctl In p_form

                        If TypeOf w_ctl Is TextBox Or TypeOf w_ctl Is ComboBox Or TypeOf w_ctl Is ListBox Or TypeOf w_ctl Is CommandButton Or TypeOf w_ctl Is CheckBox Or TypeOf w_ctl Is OptionButton Then

                        If w_Activo = p_form.Controls.Count Then

                        w_Activo = 0

                        End If

                        If w_ctl.TabIndex = w_Activo And w_ctl.Enabled = True Then

                        w_ctl.SetFocus

                        ctrl = False

                        Exit For

                        End If

                        End If

                        Next

                        w_Activo = w_Activo + 1

                        Wend

                        

                        End Sub

Terminos de Uso

1 - Copiar o Descargarse este contenido implica aceptar los terminos aqui detallados.

2 - Usted puede utilizar este contenido en sus propios programas y puede compilarlo en un programa y modificarlo a su gusto.

3 - Usted NO PUEDE redistribuir este contenido tal como se presenta aqui sin el permiso del autor original del mismo.

4 - Usted seguirá cualquier restricción adicional del copyright que el autor pudo haber puesto en la descripción del contenido.

Calificar Codigo Fuente

Subir TU Codigo Fuente

Contactos

myStudio Network