Page 1 of 1

CONTROL TAB

Posted: Tue Oct 30, 2018 9:16 pm
by SALINETAS24
Hola a todos.
Hay alguna forma de que cuando se activa un control TAB se indique el control que queremos que tenga el SETFOCUS, o cuando cambiamos de pestaña.
Muchas gracias

Re: CONTROL TAB

Posted: Wed Oct 31, 2018 12:29 am
by luisvasquezcl
Con el evento on change
define win ..
Define tab ... on change cambiafoco()
..
End TAB
END WIN
win.activate

Proc cambiafoco
If win.tab.value=1
Win.tab.item(1).textbox0.setfocud
Elseif win.tab.value= 2
Win.tab.item(2).textbox99.setfocus
Endif
Return

Asi puedes hacerlo
Espero te sea de utilidad

Re: CONTROL TAB

Posted: Wed Oct 31, 2018 7:30 pm
by SALINETAS24
Hola Luis, gracias.
Tu código no me funciona tal cual me los has pasado, pero lo he modificado y de esta forma si que me funciona correctamente. Como verás he quitado la referencia al TAB y al ITEM en el SETFOCUS y solo lo hago sobre el TEXTBOX y funciona.

STATIC PROC PoneFoco_Maem()
nTab:=Win_Maem.Tab_Maem.value
DO CASE
CASE nTab=1
Win_Maem.GET_02.setfocuS
CASE nTab=2
Win_Maem.GET_13.setfocuS
CASE nTab=3
Win_Maem.GET_20.setfocuS
END CASE
RETURN

Re: CONTROL TAB

Posted: Thu Nov 01, 2018 1:20 am
by luisvasquezcl
Que bueno que te aporte en algo.