VB6 - Ajout dynamique de commandbutton

Je suis en train de dévelloper une borne domotique qui permet de piloter une
installation électrique domotique.

Dans le cadre de cette application, j'aimerais ajouter dynamiquement (lors
de l'exécution de l'application) des commandbutton, le nombre étant
variable, allant de 10 à 100, voir 200 boutons.

J'ai le code suivant qui fonctionne bien:

Private Sub Form_Load()
Me.Controls.Add "vb.commandbutton", "cmd"
Me!cmd.Caption = "Bouton"
Me!cmd.Left = 100
Me!cmd.Top = 100
Me!cmd.Visible = True
End Sub

Mais, j'aimerais bien créer mes boutons dans un même groupe de contrôles,
c'est-à-dire, cmd(1), cmd(2), cmd(3), ..., cmd(i)

Comment faie ? Je tourne, je retourne toutes les informations disponibles
sur Internet et dans l'aide VB, je ne trouve pas la solution ?

Si quelqu'un pouvait me faire avancer sur ce problème, ce serait fantastique
!

Un grand merci d'avance

François Ranwez
francois.ranwez@skynet.be

VB6 - Ajout dynamique de commandbutton

François Ranwez a exposé le 09/04/2009 :


Sur la form, en faisant un copié collé d'un bouton, VB6 te propose si
tu veux créer un groupe. Tu dis oui et le tour est joué. Et jean-marc
va être content car je suis persuadé qu'il y un exemple dans la FAQ

http://faq.vb.free.fr/

VB6 - Ajout dynamique de commandbutton

Noex a présenté l'énoncé suivant :


http://faq.vb.free.fr/index.php?question=88

Comment ajouter dynamiquement des contrôles sur un form ?

Voici une première solution employant comme méthode les contrôles
indexés. Pour que cet exemple fonctionne vous devrez préalablement
ajouter un contrôle d'index 0 à la feuille.

Dim i As Integer

For i = 1 To 5
Load Command1(i)
Command1(i).Top = Command1(i - 1).Top + Command1(i).Height
Command1(i).Visible = True
Next

VB6 - Ajout dynamique de commandbutton

Fran=E7ois Ranwez a =E9crit :

Pas vraiment de r=E9ponse =E0 ta question, mais je m'interrogeais sur la =

syntaxe Me! . Je n'ai rien trouv=E9 concernant cette syntaxe dans l'aide =

vb6. C'est un raccourcit qui viens des versions pr=E9c=E9dentes de VB et =

tomb=E9 en d=E9su=E9tude? Est-ce une sp=E9cificit=E9 de l'objet Form ou a=
pplicable=20
=E0 toutes les collections? (la syntaxe "usuelle" pour acc=E9der =E0 un=20
contr=F4le par son nom =E9tant de m=E9moire Me.Controls("cmd") ).

Vincent Guichard

VB6 - Ajout dynamique de commandbutton

Bonjour François Ranwez, Noex, Vincent Guichard,
Vincent Guichard a écrit :

De mémoire, c'était, et c'est peut être toujours, une syntaxe utilisée
sous Ms-Acces, :


Si c'est le cas, les groupes de contrôles ne sont pas supportés (comme
dans les différent VBA, Access, Excel, Word, PP ...)

--

Cordialement,

Jacques.

VB6 - Ajout dynamique de commandbutton

On 4=E6=9C=889=E6=97=A5, =E5=8D=88=E5=BE=8C2:31, Vincent Guichard <vg.bleuc=
ur la
de
VB et

Hello,

l'op=C3=A9rateur "bang" est applicable =C3=A0 n'importe quelle collection (=
cf.
http://faq.vb.free.fr/index.php?question=3D171#bang ; par contre, je
n'arrive plus =C3=A0 mettre la main sur le lien MSDN qui documente cet
op=C3=A9rateur). Il se fait que Controls est la propri=C3=A9t=C3=A9 par d=
=C3=A9faut d'un
objet Form, et qu'il s'agit d'une collection. C'est pour cette raison
qu'on peut l'utiliser avec Me.

Pour ce qui est de tomber en d=C3=A9suettude, cet op=C3=A9rateur est encore
pr=C3=A9sent dans VB9 et s'est apparement refait une jeunesse dans Linq:
http://oakleafblog.blogspot.com/2007/05/linq-to-datasets-rehabilitates-vb-b=
ang.html

Fran=C3=A7ois Picalausa