Création d'objets automatiques en VB.NET Résolu/Fermé

Question

Bonjour, 

Je suis en ce moment en stage et je dois créer un logiciel en VB.NET permettant de bloquer/débloquer des postes clients depuis un poste serveur.

Sur le poste serveur, une form regroupe 20 GroupBox qui représentent 20 postes (nombre de postes maximum à contrôler).
Chaque poste est enregistré dans une base de données.

Mon problème est que chaque GroupBox possède les mêmes fonctions (même requête, mêmes objets, ...) seul un numéro les différencient. Par exemple :

- dans la GroupBox1 il y a : nomposte1, compteur1, boutonbloquer1, prix1, requete1, ...
- dans la GroupBox2 il y a : nomposte2, compteur2, boutonbloquer2, prix2, requete2, ...
- dans la GroupBox3 il y a : nomposte3, compteur3, boutonbloquer3, prix3, requete3, ...
- et ainsi de suite jusqu'à 20

Voici un extrait de mon code :

'Pour le poste 1

Mycommand1.CommandText = "SELECT * FROM poste WHERE num_poste = 1;"
 
        'Déclaration du Reader1
        Dim myReader1 As OleDbDataReader = Mycommand1.ExecuteReader()
 
        myReader1.Read()
 
        Label1.Text = myReader1.GetString(1)
 
        If myReader1.GetString(1) = "-" Then
            bouton_stop1.Visible = False
        End If
...

'Pour le poste 2

Mycommand2.CommandText = "SELECT * FROM poste WHERE num_poste = 2;"
 
        'Déclaration du Reader2
        Dim myReader2 As OleDbDataReader = Mycommand2.ExecuteReader()
 
        myReader2.Read()
 
        Label2.Text = myReader2.GetString(1)
 
        If myReader2.GetString(1) = "-" Then
            bouton_stop2.Visible = False
        End If
...

L'idéal serait de faire un code de ce genre :

'Pour le poste i

While i <= 20

Mycommand(i).CommandText = "SELECT * FROM poste WHERE num_poste = " & i & ";"
 
        'Déclaration du Reader(i)
        Dim myReader(i) As OleDbDataReader = Mycommand(i).ExecuteReader()
 
        myReader(i).Read()
 
        Label(i).Text = myReader(i).GetString(1)
 
        If myReader(i).GetString(1) = "-" Then
            bouton_stop(i).Visible = False
        End If
...

Mais je sais que c'est impossible. N'y a t-il pas un moyen qui s'en rapproche ?

Merci d'avance.

Configuration: Windows XP SP3 32-bits
-----------------------------------------------------------
Asus P5Q Pro
Intel Core 2 Quad Q9550
OCZ PC2-6400 2 x 2GO
Asus EAH 4890 (ATI Radeon HD 4890)

ftibo · Answer

For i = 1 to 20

        Mycommand(i).CommandText = "SELECT * FROM poste WHERE num_poste = " & i & ";"
 
        'Déclaration du Reader(i)
        Dim myReader(i) As OleDbDataReader = Mycommand(i).ExecuteReader()
 
        myReader(i).Read()
 
        Label(i).Text = myReader(i).GetString(1)
 
        If myReader(i).GetString(1) = "-" Then
            bouton_stop(i).Visible = False
        End If

Next i

ftibo · Answer

Donc 

Dim obj as Object
Dim i as Integer

For each obj in TaCollectiondObjets
   i = obj.TonIndicedObjet

   - - - Ton code  - - - 


Next

ftibo · Answer

Je ne suis pas certain de bien comprendre ce que tu veux faire, mais si tu veux desactiver tout les objets d'un formulaires tu dois faire comme ça: 

(J'ai pas de VB.NET sous la main alors je ne suis pas certain de la syntaxe mais ca ressemble à ca) 

Dim obj as Object  

For each obj in Me.MonFormulaire.Controls 

    obj.Visible =False 

Next

ftibo · Answer

Quelque chose comme ca:

For i = 1 to 20

   Me.Controls.Items("Label" & i.ToString).Visible = False
   Me.Controls.Items("PictureBox" & i.ToString).Visible = False
   Me.Controls.Items("bouton_stop" & i.ToString).Visible = False


Next i

En esperant que c'est plus près de ce que tu cherche

ftibo · Answer

Link moi ton code et dis moi exactement à quelle ligne tu as ca

ftibo · Answer

C'est que tu n'a pas les 20 Label: Label1, Label2, Label3, etc.

ftibo · Answer

Les controles font ils tous partie du meme formulaire que ton bouton: bouton_stop1?

Car avec la commande Me, on refère à l'objet en cours (Formulaire en l'occurence) 

Si tes objets se trouvent dans d'autres formulaire, il ne faut pas utiliser Me

ftibo · Answer

Je viens de m'installer VB.NET, nouveau projet, faire 20 labels et copier coller ton code test plus haut linké et ca marche... alors je sais plus :(

ftibo · Answer

Met un point d'arrêt dans ton code (F9 sur la ligne qui bug) et vas y pas à pas. Ça bug au premier Label ou plus loin?

ftibo · Answer

Items c'est en VB6 et VBA.... mon erreur désolé

ftibo · Answer

Non finalement Item fonctionne encore en VB 2010. Mais si tu met ton code dans le Public  Sub New du Form tu dois t'assurer de le mettre après le InitializeComponent

ftibo · Answer

Ok j'avais mal lu. J'ai testé et dans le Form_Load de mon coté ca fonctionne.
Envoi moi ton projet test: ftibo@usa.net

ftibo · Answer

Je t'ai répondu par courriel mais peux être que les serveurs de l'entreprise pour laquel tu travail ont interprétés ma réponse comme du spam et que tu n'a pas eu ma réponse alors je recidive ici. Essaye de mettre en commentaires ton bloc:

GroupBox1.Enabled = False
GroupBox2.Enabled = False
GroupBox3.Enabled = False
etc.

et de le remplacer par:

For i = 1 to 20

   Me.Controls("GroupBox" & i.ToString).Enabled = False

Next i


Dis moi ce que tu as