Visual Basic - SSTab

Life is soft - evento anual de software empresarial
 
Vista:

SSTab

Publicado por Antonio (93 intervenciones) el 28/05/2009 13:40:18
Hola a todos.

En una form tengo un SSTab con dos Tab ( 0 y 1).

¿Qué código sería el adecuado para que estando en el último TextBox del Tab 0, al pulsar INTRO o TABULADOR, pase el control al primer TextBox del Tab 1?.

Saludos cordiales.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:SSTab

Publicado por J (134 intervenciones) el 29/05/2009 00:39:19
Tenemos un control SSTab llamado "Cejillas" que tiene 2 tabs

En el tab 0 tengo un textbox llamado "Texto1"
En el tab 1 tengo un textbox llamado "Texto2"

En el evento KeyPress de Texto1 el cual suponemos que es el último TextBox de ese Tab establecemos lo siguiente:

Private Sub Texto1_KeyPress (KeyAscii As Integer)
If KeyAscii = 13 Then
Cejillas.Tab = 1
Texto2.SetFocus
End If
End Sub

Lo cual mostrará el Tab 1 del Control SSTab y además dará el foco a Text1 que suponemos es el primer TextBox del Tab 1.

Saludos!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SSTab

Publicado por J (134 intervenciones) el 29/05/2009 00:41:06
Perdón quise decir que eso daría el foco a Text2 que suponemos es el primer TextBox del Tab 1.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SSTab

Publicado por Antonio (93 intervenciones) el 29/05/2009 09:10:18
Gracias J por responder.

¿ Y para cuando pulsamos el TABULADOR, sería así:?
ElseIf KeyAscii = 9 Or KeyAscii = 13 Then

Saludos cordiales.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SSTab

Publicado por Antonio (93 intervenciones) el 29/05/2009 14:04:44
Me respondo, con:

Private Sub cResumen_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Unload Me
ElseIf KeyAscii = 9 Or KeyAscii = 13 Then
RejillaOT.Tab = 1
KeyAscii = 0
SendKeys "{tab}"
End If
End Sub

Al pulsar INTRO si funciona, se activa el Tab1 y pasa el control al primer TextBox.
Pero al pulsar TABULADOR se queda en el Tab0 y vuelve al primer TextBox del Tab0.

He puesto un MsgBox dentro de "ElseIf KeyAscii = 9 Or KeyAscii = 13 Then" para ver si al pulsar TABULADOR sale el mensaje, pero NO.

Os rogaría vuestra ayuda para solucionar lo de que al pulsar TABULADOR pase al Tab1 para que el foco vaya al primer TextBox del Tab1.

Saludos cordiales.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar