indicizzare i controlli

[dex]

ciao raga
sono nuovo con il gamberetto, e mi serve un vostro aiuto.

in un form ho circa 60 chekbox che devo attivare e disattivare.

con visualbasic mi bastava un semplice ciclo for

Codice: [Seleziona]

for i = 1 to 60
chekbox(i).enabled = false
next i

con gambas non riesco ad indicizzare le chek

[Berserker79]

Ciao, cerca nel forum che di recente è stata postata una richiesta come la tua e hanno risposto con tanto di esempio allegato.
Ciao.

[dex]

ciao
saresti cosi gentile da postami il link?

non riesco a trovare il post ce mi hai detto

[giulio]

DIM hControl AS Object
 
  FOR EACH hControl IN ME.Children
 
    IF Object.Type(hControl) = "CheckBox" THEN hControl.Value = TRUE
   
 
  NEXT

[dex]

grazie giulio., ho risolto.

ora si presenta un'altro problema, devo caricare i valori delle check nelle variabili, esempio:

Codice: [Seleziona]

dim mval as boolean [60]

for i = 1 to 60

mval(i) = check.value(????)

next

non riesco a capire come assegnare l'index della check 1 alla variabile 1 ecc...

[md9327]

Codice: [Seleziona]

DIM hControl AS Object

DIM nIndex AS Integer

nIndex = 0
FOR EACH hControl IN ME.Children

IF Object.Type(hControl) = "CheckBox" THEN 
  mval[nIndex] = hControl.Value
END IF

INC nIndex

NEXT

[giulio]

C'è un errore nel codice di md9327.

Codice: [Seleziona]

DIM hControl AS Object

DIM nIndex AS Integer

nIndex = 0
FOR EACH hControl IN ME.Children

IF Object.Type(hControl) = "CheckBox" THEN 
  mval[nIndex] = hControl.Value
  INC nIndex '<<<<<<<<<<< va qui
END IF

NEXT

nIndex va incrementato solo se il control è un checkbox.

[md9327]

Bravo!!!

[dex]

giulio la tua correzione è giusta.

dato che nIndex è un contatore e giustamente per funzionare deve essere incrementato, perchè hai precisato:
nIndex va incrementato solo se il control è un checkbox.

se si trattasse di texbox non andrebbe incrementato?

[Ceskho]

desadex ha scritto:
giulio la tua correzione è giusta.

dato che nIndex è un contatore e giustamente per funzionare deve essere incrementato, perchè hai precisato:
nIndex va incrementato solo se il control è un checkbox.

se si trattasse di texbox non andrebbe incrementato?

Dipende da cosa devi fare...ovviamente l'esempio è indicativo...se hai bisogno di gestire più textbox allora sfrutti lo stesso codice ma con la dicitura Textbox invece di combobox