Visual Basic - Tecla TAB

Life is soft - evento anual de software empresarial
 
Vista:

Tecla TAB

Publicado por ALH76 (278 intervenciones) el 30/11/2007 00:24:11
Buen dia a todos.

Se que probablemente este tema ya lo han tratado, pero he intentado varias posibles soluciones y no funciona, veran:

Tengo un TextBox y en el evento KeyPress verifico si la tecla es Intro o Enter (13) de ser asi, convierto el texto del TextBox en mayuscylas y paso el foco a otro TextBox, el problema es cuando el usuario oprime la tecla TAB, como le hago para darme cuenta que se oprimio esa tecla y poder realizar la conversion a Mayusculas del Texto. He intentado con el codigo Ascii = 9 pero nada....

Alguien sabe como realizar esto? No me gustaria deshabilitar la opcion del TAB.

Agradezco su ayuda.

Saludos
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:Tecla TAB

Publicado por Javi (6 intervenciones) el 30/11/2007 09:52:27
Puedes hacer la conversión a mayúsculas en el evento LostFocus del TextBox.

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:Tecla TAB

Publicado por Carlos (125 intervenciones) el 30/11/2007 18:05:26
ya no seria necesario que en el Keypress haga que se conviertan en mayusculas, si no que se salga del focus ... ^_^

Yo lo colocaría así en el lostfocus

Private Sub Text1_LostFocus()
Text1.Text=StrConv(Text1.text, vbUpperCase)
End Sub
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:Tecla TAB

Publicado por alfredo lara (2 intervenciones) el 01/12/2007 19:03:48
Hola AHL76

porque no pruebas en el form atrapar el tab.

Private Sub Form_KeyPress(KeyAscii As Integer)

' Atrapa inicialmente las teclas pulsadas por usuario
Select Case KeyAscii
Case vbKeyEscape ' Tecla Escape
Cancelar ' Va al precedimiento de cancelacion
KeyAscii = 0 ' Cancela la pulsacion
Case vbKeyReturn ' Tecla Enter
SendKeys "{Tab}" ' Envia un 'Tab'
KeyAscii = 0 ' Cancela la pulsacion
End Select
End Sub

Recueda poner la propiedad KeyPreview del form en true

espero te sirva
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