HB++ newbie vraagje.

Hallo, ik ben een beetje aan pielen en spelen met HB++
Ik vroeg em af of hier HB++ experts zij die me kunnen helpen.
Ik heb de volgende code:

If Check1=True then Checkbox1.Value=True Else Checkbox1.Value=False
If Check2=True then Checkbox2.Value=True Else Checkbox2.Value=False
If Check3=True then Checkbox3.Value=True Else Checkbox3.Value=False
If Check4=True then Checkbox4.Value=True Else Checkbox4.Value=False
If Check5=True then Checkbox5.Value=True Else Checkbox5.Value=False
If Check6=True then Checkbox6.Value=True Else Checkbox6.Value=False
If Check7=True then Checkbox7.Value=True Else Checkbox7.Value=False
If Check8=True then Checkbox8.Value=True Else Checkbox8.Value=False
If Check9=True then Checkbox9.Value=True Else Checkbox9.Value=False
If Check10=True then Checkbox10.Value=True Else Checkbox10.Value=False
If Check11=True then Checkbox11.Value=True Else Checkbox11.Value=False
If Check12=True then Checkbox12.Value=True Else Checkbox12.Value=False
If Check13=True then Checkbox13.Value=True Else Checkbox13.Value=False
If Check14=True then Checkbox14.Value=True Else Checkbox14.Value=False
If Check15=True then Checkbox15.Value=True Else Checkbox15.Value=False
If Check16=True then Checkbox16.Value=True Else Checkbox16.Value=False

Das een hoop typewerk voor 16 bijna identieke regels.

Ik dacht aan iets als
for x = 1 to 16
If Checkx=True then Checkboxx.Value=True Else Checkboxx.Value=False
next x

Kortom, een variable gebruiken in de objectname.
Kan dat en hoe pak je dat aan?
Groet,
Henk

[fransbr]

Versie 1.06 downloaden en dan net als in VB een array van checkboxes aanmaken (index property)

de code wordt dan:

for x = 1 to 16
If Check(x)=True then Checkbox(x).Value=True Else Checkbox(x).Value=False
next x

[costanza]

Ik weet het niet zeker omdat ik de taal van HB++ niet helemaal ken, maar volgens mij moet het er ongeveer zo uitzien:

door de blokhaakjes kun je volgensmij een variabele gebruiken in een objectnaam.


dim x as integer

for x = 1 to 16

If Check[x]=True then

Checkbox[x].Value=True

Else

Checkbox[x].Value=False

End If

next x

[fransbr]

Citaat:

Oorspronkelijk geplaatst door costanza

Ik weet het niet zeker omdat ik de taal van HB++ niet helemaal ken, maar volgens mij moet het er ongeveer zo uitzien:... en verder onzin

Klopt: je weet het niet zeker. Rechte haken zijn (hier) onzin in HB++. Mijn code werkt wel.

[costanza]

Oké bij deze mijn excuses voor een post met onzin

[Dataforger]

Eleganter is natuurlijk:
for x = 1 to 16
Checkbox(x).Value = Check(x)
next x

OK, bedankt! Maar als newbie (niet lachen) zit ik nu met

"Versie 1.06 downloaden en dan net als in VB een array van checkboxes aanmaken (index property)"

Hoe moet ik een array van checkboxes aanmaken? Ik het de Index Propery help file gelezen, maar
het si me nog niet duidelijk.... Alvast bedankt...

[Aaron]

Aan de rechterkant van het form designscherm zie je zodra je een checkbox selecteert het item propertiesscherm. Tussen die parameters staat bovenaan ook het Index-property.

Aaron.

[fransbr]

Citaat:

Oorspronkelijk geplaatst door Aaron

Aan de rechterkant van het form designscherm zie je zodra je een checkbox selecteert het item propertiesscherm. Tussen die parameters staat bovenaan ook het Index-property.

Aaron.

"Speedup" toevoeging:
Maak een checkbox aan, zet de index op 1. <ctrl>-c,<ctrl>-v en je hebt een nieuwe checkbox met dezelfde naam en een opvolgende index.

Bedankt mensen! Ik heb het voor elkaar! Ik snapje eerst niet dat al die objects nu dezelfde naam hebben, alleen de index is verschillend.
Dit scheelt me ontzettend veel werk. Vooral die copy-paste tip met automatisch oplopende index is geweldig.
Ik ben coach van een hockey-team, en maak een applicatietje voor de opstelling van een elftal. Al struikelend kom ik onderhand bij een aardig bruikbaar programmaatje. Een leerzaam project.
Groet,
Henk

[metck]

Misschien vind je het leuk om het programma, als het (een beetje) af is, beschikbaar te stellen voor anderen .

Dat is zeker mijn bedoeling! Ik spreek al met andere coaches, die ook problemen hebben om op het laatste moment voor de wedstrijd de opstellling om moeten gooien omdat er iemand afgebeld heeft...
Deze utilitie moet daarbij helpen...
Groet