OVH Cloud OVH Cloud

Création d'un groupe de bouton par programme

1 réponse
Avatar
Ed Lapoignée
Bonjour,

j'essaie de créé un groupe de bouton dans une IHM mais de façon dynamique.

Pour cela, voici le code utilisé :

Private Sub Form_Load()

Dim btn_Bouton As VB.CommandButton
Dim i As Long
Dim lng_Top As Long

lng_Top = 10
For i = 0 To 5

'Le bouton de détail
Set btn_Bouton = Me.Controls.Add("VB.CommandButton", "btn_Detail")
With btn_Bouton
Set .Container = Me
.Top = lng_Top
.Left = 100
.Visible = True
.Width = 1200
.Height = 360
.Caption = "Détail..."
End With
lng_Top = lng_Top + 500
Next i

End Sub


Le pb est que je ne peux créé qu'un seul bouton avec ce nom.

J'ai essayé de faire ainsi :

Set btn_Bouton = Me.Controls.Add("VB.CommandButton", "btn_Detail(" &
i & ")") ==> mais cela ne marche pas non plus.

J'ai ensuite essayé de modifier la propriété Index du bouton mais c'est
impossible.

Auriez-vous une solution à mon pb ?


D'avance merci.

1 réponse

Avatar
Zoury
Salut Ed ! :O)

j'essaie de créé un groupe de bouton dans une IHM mais de façon dynamique.



Ajoute le premier contrôle sur ton formulaire (avec Index = 0). Conserve le
invisible jusqu'au moment opportun et charge le reste dynamiquement en
suivant cet exemple :
http://faq.vb.free.fr/index.php?questionˆ

--
Cordialement
Yanick
MVP pour Visual Basic