AYUDA CON REDEFINE CHECKBOX

AYUDA CON REDEFINE CHECKBOX

Postby jbrita » Tue Aug 20, 2013 2:15 pm

Amigos tengo este codigo:
FOR Z= 1 TO 42
o:=0
For I=pos_ori to pos_des
If aBus[Z,I]="S"
o:=1
Endif
Next

If o=1
REDEFINE IMAGE aGets[Z] ID aId OF odlg Resource "ocupado" UPDATE
REDEFINE CHECKBOX oBox[Z] VAR lChkBox[Z] ID bId OF oDlg UPDATE

oBox[Z]:DISABLE()

Else
REDEFINE IMAGE aGets[Z] ID aId OF odlg Resource "libre" UPDATE
REDEFINE CHECKBOX oBox[Z] VAR lChkBox[Z] ID bId OF oDlg UPDATE ON CHANGE CargaAsiento(lChkBox[Z])

oBox[Z]:ENABLE()

Endif

aId++
bId++
Next

la pregunta es como puedo saber cual checkbox presione del 1 al 42
como saber
jbrita
 
Posts: 486
Joined: Mon Jan 16, 2006 3:42 pm

Re: AYUDA CON REDEFINE CHECKBOX

Postby joseluisysturiz » Tue Aug 20, 2013 2:32 pm

Intentastes con la VAR del check o con su ID.? saludos... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 31 guests