Groupe de controle et passage en parametre

Question

Bonjour,

j'ai un groupe de control PictureBox composé de 4 picturebox pic(0), ..., pic(3).

Je dois traiter les differents PictureBox du groupe dans une fonction.

public sub test(p as Variant)

et mon appel est le suivant : test p

J'aimerai savoir le type d'objet que je dois passer à la place de Variant ?

Le type picturebox ne fonctionne pas et le type control non plus. Enfin, il me renvoi une erreur 13 quand je met l'un de ces 2 types

Merci pour vos reponses.

plaineR · Answer

tu dois passer l'index de ton picturebox et faire un truc du style

public sub test (index as integer) 
   pic(index).top ...
   ....
end sub

' modifier ton picturebox 0
test 0

cs_arc59 · Answer

Je me suis mal fait comprendre d'apres la reponse.

Je souhaite que ma fonction modifie tous les controles du groupe.

Et je veux passer le groupe de controle en parametre de la fonction, et pas juste une picture box.
Il faut que ce soit la totalité du groupe et j'aimerai savoir le type d'un groupe de controle picturebox par exemple.

plaineR · Answer

Pour info c'est ce qui est préconisé dans MSDN. La question a déjà été posée sur le site et à ma connaissance c'est la seule solution

Après tu peux faire une boucle sur tous tes éléments de ton groupe de controle

for i= 0 to pic.UBound   
   test i
next i

cs_arc59 · Answer

Ca ne repond pas à ma question.

Je veux passer en argument d'une fonction le groupe de controle et d'ailleurs j'y arrive mais en indiquant le type Variant.

Je souhaite juste savoir ce qu'il faut mettre à la place de variant.

Donc, reexplication : 
J'ai 4 picturebox dont les noms sont : pic(0), pic(1), pic(2), pic(3).

J'ai une fonction declaré ainsi : 
public sub test(pictest as variant)
    dim i as integer

    for i = 0 to 3
        pictest(i).cls
    next
end sub

et j'appelle la fonction comme ceci :
test(main.pic)

Je repete ma question : quel type faut il utiliser à la place de Variant ?

plaineR · Answer

1. J'ai bien compris ce que tu veux faire

2. Tu ne peux pas passer en argument un groupe de controle
(sauf sous le type variant en effet qui soit dit en passant n'est pas un type au sens propre du terme...)

3. Pourquoi cela te gene de mettre variant, puisqu'il sert, en autre (même s'il ne sert pas qu'à ça) à mettre les types non gérés par VB ?

4. Remarque par ailleurs que ce que tu fais reviens à faire ce que je te conseillais, sauf que tu fais la boucle à l'intérieur de ta procédure test, au lieu de la faire à l'appel de celle-ci

Après tu fais ce que tu veux, moi, ce que je t'en dis c'est ce qui est conseillé par MSDN, la preuve par exemple quand tu crées un évènement click sur un groupe de contrôle il te met :

Private Sub Picture1_Click(Index As Integer)
...
End Sub

Groupe de controle et passage en parametre

5 réponses

Discussions similaires