FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour AYUDA CON REDEFINE CHECKBOX
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
AYUDA CON REDEFINE CHECKBOX
Posted: Tue Aug 20, 2013 02: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

Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: AYUDA CON REDEFINE CHECKBOX
Posted: Tue Aug 20, 2013 02:32 PM

Intentastes con la VAR del check o con su ID.? saludos... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion