OVH Cloud OVH Cloud

index

5 réponses
Avatar
jc2nantes
salut,

si j'ai, par exemple, sur un form 6 boutons faisant partie d'un même groupe,
index 0 à 5...
puis-je les activer tous ensemble avec une seule ligne de code
ou
faut-il passer par une boucledu style

for index = 0 to 5
cmd(index).enabled = true
next

etc...


merci à vous!

5 réponses

Avatar
Ledev
jc2nantes wrote:
salut,

si j'ai, par exemple, sur un form 6 boutons faisant partie d'un même
groupe, index 0 à 5...
puis-je les activer tous ensemble avec une seule ligne de code
ou
faut-il passer par une boucledu style

for index = 0 to 5
cmd(index).enabled = true
next

etc...



Tentez:
for index=0 to 5:cmd(index).enabled=true:next

Une seul ligne de code :O).
Avatar
Ledev
Ledev wrote:
jc2nantes wrote:
> salut,
>
> si j'ai, par exemple, sur un form 6 boutons faisant partie d'un même
> groupe, index 0 à 5...
> puis-je les activer tous ensemble avec une seule ligne de code
> ou
> faut-il passer par une boucledu style
>
> for index = 0 to 5
> cmd(index).enabled = true
> next
>
> etc...

Tentez:
for index=0 to 5:cmd(index).enabled=true:next

Une seul ligne de code :O).



Ou sinon, rien ne vous empêche de vous fabriquer votre petite instruction
fait maison:

Sub TousActiver(colObj As Object)
For a = colObj.lbound To colObj.ubound
colObj(a).Enabled = True
Next a
End Sub

Tu colle sa dans un module ou tu colle toutes tes instructions/fonction fait
maison, et tu l'ajoute a tes projets sans limite.

a+
Avatar
jc2nantes
merci pour l'idée, surtout la seconde (lol), mais ça me fait quand même une
boucle et donc un décalage de temps or j'ai besoin d'une synchro parfaite,
donc sans boucle...

"Ledev" a écrit dans le message de news:

Ledev wrote:
> jc2nantes wrote:
> > salut,
> >
> > si j'ai, par exemple, sur un form 6 boutons faisant partie d'un même
> > groupe, index 0 à 5...
> > puis-je les activer tous ensemble avec une seule ligne de code
> > ou
> > faut-il passer par une boucledu style
> >
> > for index = 0 to 5
> > cmd(index).enabled = true
> > next
> >
> > etc...
>
> Tentez:
> for index=0 to 5:cmd(index).enabled=true:next
>
> Une seul ligne de code :O).

Ou sinon, rien ne vous empêche de vous fabriquer votre petite instruction
fait maison:

Sub TousActiver(colObj As Object)
For a = colObj.lbound To colObj.ubound
colObj(a).Enabled = True
Next a
End Sub

Tu colle sa dans un module ou tu colle toutes tes instructions/fonction


fait
maison, et tu l'ajoute a tes projets sans limite.

a+




Avatar
Ledev
jc2nantes wrote:
merci pour l'idée, surtout la seconde (lol), mais ça me fait quand
même une boucle et donc un décalage de temps or j'ai besoin d'une
synchro parfaite, donc sans boucle...



Oui mais, théoriquement, l'affichage ne serra pas mise a jour avant la fin
du code.
Il vous suffit de mettre un DoEvents ou .refresh entre chaque étape, et cela
devrai être synchronisée(enfin tous dépend sur se que vous attendez de la
synchronisation, qu'ils se change en même temps?)

a+


"Ledev" a écrit dans le message de news:

> Ledev wrote:
> > jc2nantes wrote:
> > > salut,
> > >
> > > si j'ai, par exemple, sur un form 6 boutons faisant partie d'un
> > > même groupe, index 0 à 5...
> > > puis-je les activer tous ensemble avec une seule ligne de code
> > > ou
> > > faut-il passer par une boucledu style
> > >
> > > for index = 0 to 5
> > > cmd(index).enabled = true
> > > next
> > >
> > > etc...
> >
> > Tentez:
> > for index=0 to 5:cmd(index).enabled=true:next
> >
> > Une seul ligne de code :O).
>
> Ou sinon, rien ne vous empêche de vous fabriquer votre petite
> instruction fait maison:
>
> Sub TousActiver(colObj As Object)
> For a = colObj.lbound To colObj.ubound
> colObj(a).Enabled = True
> Next a
> End Sub
>
> Tu colle sa dans un module ou tu colle toutes tes
> instructions/fonction fait maison, et tu l'ajoute a tes projets
> sans limite.
>
> a+


Avatar
patrice henrio
Que signifie exactement une synchro parfaite ?

Même l'affichage se fait d'une manière séquentielle, même si c'est tellement
rapide que l'utilisateur ne s'en rend pas compte. J'ai fait un programme qui
doit afficher des polygones à l'écran en passant par une fonction dessine
qui utilise l'API Polygon. Lers données sont des tableaux de points (deux
coordonnées en Single) qui se transforment après calcul sur chaque point en
un nouveau tableau de PointAPI (deux coordonnées en Long). Chaque tableau
contient entre 100 et 5000 points. On doit afficher l'équivallent d'une
douzaine de tableaux en même temps et pourtant pour l'utilisateur cela
parait simultané.
salut


"Ledev" a écrit dans le message de
news:
jc2nantes wrote:
> merci pour l'idée, surtout la seconde (lol), mais ça me fait quand
> même une boucle et donc un décalage de temps or j'ai besoin d'une
> synchro parfaite, donc sans boucle...

Oui mais, théoriquement, l'affichage ne serra pas mise a jour avant la fin
du code.
Il vous suffit de mettre un DoEvents ou .refresh entre chaque étape, et


cela
devrai être synchronisée(enfin tous dépend sur se que vous attendez de la
synchronisation, qu'ils se change en même temps?)

a+

>
> "Ledev" a écrit dans le message de news:
>
> > Ledev wrote:
> > > jc2nantes wrote:
> > > > salut,
> > > >
> > > > si j'ai, par exemple, sur un form 6 boutons faisant partie d'un
> > > > même groupe, index 0 à 5...
> > > > puis-je les activer tous ensemble avec une seule ligne de code
> > > > ou
> > > > faut-il passer par une boucledu style
> > > >
> > > > for index = 0 to 5
> > > > cmd(index).enabled = true
> > > > next
> > > >
> > > > etc...
> > >
> > > Tentez:
> > > for index=0 to 5:cmd(index).enabled=true:next
> > >
> > > Une seul ligne de code :O).
> >
> > Ou sinon, rien ne vous empêche de vous fabriquer votre petite
> > instruction fait maison:
> >
> > Sub TousActiver(colObj As Object)
> > For a = colObj.lbound To colObj.ubound
> > colObj(a).Enabled = True
> > Next a
> > End Sub
> >
> > Tu colle sa dans un module ou tu colle toutes tes
> > instructions/fonction fait maison, et tu l'ajoute a tes projets
> > sans limite.
> >
> > a+