Créer des boutons

Question

Bonjour

J'ai un pb de création de boutons indexés: j'arrive à créer les boutons, mais je n'arrive pas à accéder à leurs propriétés.

Voici le code:

 

Dim produit(20) As Object

For x = 1 To nbProduits - 1

 

Me.produit(x) = New System.Windows.Forms.Button

Controls.Add(produit(x))

next

par exemple

produit(x).location .... génère un message d'erreur

Je crée une application Smart device.

Answer 1

 

> Dim produit(20) As Object

 

Bonjour,

Remplacer par Dim produit(20) As System.Windows.Forms.Button

 Fred

[e-mail]

 

Answer 2

Merci

ça marche, sauf que si je rajoute withevents  (Dim withevents produit(20) As System.Windows.Forms.Button ), j'ai un message d'erreur : " Les variables 'WithEvents' ne peuvent pas être de type tableau."

Y a-t-il un moyen de gérer les évènements liés à ces "button".

Answer 3

ça marche, sauf que si je rajoute withevents  (Dim withevents

produit(20) As System.Windows.Forms.Button ), j'ai un message d'erreur :

" Les variables 'WithEvents' ne peuvent pas être de type tableau."

 

Y a-t-il un moyen de gérer les évènements liés à ces "button".

 

Oui, au moment de la création des boutons

 

...

Me.produit(x) = New System.Windows.Forms.Button

Controls.Add(produit(x))

AddHandler Me.Produit(x).Click, AddressOf Me.Produit_Click

...

 

et ailleurs

 

Private Sub Produit_Click(sender as Object, e as System.EventArgs)

   Dim produit as System.Windows.Forms.Button = sender

   ...

End Sub

 

Fred

[e-mail]