CONTROL TAB

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

CONTROL TAB

Post 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
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
User avatar
luisvasquezcl
Posts: 1258
Joined: Thu Jul 31, 2008 3:23 am
Location: Chile
Contact:

Re: CONTROL TAB

Post 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
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

Re: CONTROL TAB

Post 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
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
User avatar
luisvasquezcl
Posts: 1258
Joined: Thu Jul 31, 2008 3:23 am
Location: Chile
Contact:

Re: CONTROL TAB

Post by luisvasquezcl »

Que bueno que te aporte en algo.
Post Reply