Création d'objets automatiques en VB.NET

Question

Sujet Précédent Sujet Suivant

Création d'objets automatiques en VB.NET

Résolu/Fermé

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

- 11 juin 2010 à 07:31
Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

- 15 juin 2010 à 08:11

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.

A voir également:

Création d'objets automatiques en VB.NET
Création d'objets automatiques en VB.NET ✓ - Forum - Framework .NET
[VB.NET] Afficher plusieurs fois le même objet dynamique ✓ - Forum - VB / VBA
[VB.NET] Création d'une collection de PictureBox ✓ - Forum - Framework .NET
[java] creation objet automatique ✓ - Forum - Programmation
[VB.NET] Update et champ automatique ✓ - Forum - Framework .NET

13 réponses

Posez votre question

ftibo · Answer 1 · 2010-06-11T10:26:26+0200

Réponse 1 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 10:26

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 11:30

Je t'ai répondu par courriel ;)

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
15 juin 2010 à 08:11

Merci pour ta solution qui est parfaite ftibo.

Cependant je n'arrive pas à utiliser le même principe pour les PictureBox.
Je crois qu'ils ne font pas partie des contrôles.

ftibo · Answer 2 · 2010-06-11T07:41:15+0200

Réponse 2 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 07:41

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 07:44

Label1, MyReader1, bouton_stop1, ...
Ce sont des objets donc la boucle n'est qu'un exemple pour expliquer ce que je veux mais elle est impossible.

ftibo · Answer 3 · 2010-06-11T07:55:55+0200

Réponse 3 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 07:55

Donc

Dim obj as Object
Dim i as Integer

For each obj in TaCollectiondObjets
i = obj.TonIndicedObjet

- - - Ton code - - -

Next

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 08:03

Par objet je veux dire que ce sont des labels, des boutons, des picturebox, ...
C'est bien ça que tu as compris ?
Si oui je ne comprends pas ton exemple peux-tu développer un peu plus s'il te plait ?

ftibo · Answer 4 · 2010-06-11T08:12:55+0200

Réponse 4 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
Modifié par ftibo le 11/06/2010 à 08:13

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 08:21

Non du tout ce n'est pas ça.

J'ai 20 GroupBox qui remprésente chacune un poste client.
Voila le code du poste 1 :

 'Requete SQL
        Mycommand1.CommandText = "SELECT * FROM poste WHERE num_poste = 1;"

        'Déclaration du Reader
        Dim myReader1 As OleDbDataReader = Mycommand1.ExecuteReader()

        myReader1.Read()

        Label1.Text = myReader1.GetString(1)

        If myReader1.GetString(1) = "-" Then
            Label1.Text = myReader1.GetString(1)
            bouton_stop1.Visible = False
        End If

        If myReader1.GetValue(5) = 1 Then
            GroupBox1.Enabled = True
        End If

        If myReader1.GetValue(5) = 1 And myReader1.GetString(3) = "libre" Then
            PictureBox1.ImageLocation = "libre_55_37.png"
        ElseIf myReader1.GetValue(5) = 1 And myReader1.GetString(3) = "occupe" Then
            PictureBox1.ImageLocation = "occupe_55_37.png"
        ElseIf myReader1.GetString(3) = "down" And myReader1.GetString(1) <> "-" Then
            PictureBox1.ImageLocation = "down_55_37.png"
        End If

        If myReader1.GetString(3) = "libre" Then
            bouton_stop1.Visible = False
            bouton_norm1.Visible = True
            bouton_imprim1.Visible = True
        Else
            bouton_stop1.Visible = True
            bouton_norm1.Visible = False
            bouton_imprim1.Visible = False
        End If

        'Fermeture du reader
        myReader1.Close()

Comme tu vois, à chacun des objets il y'a le numéro associé (ici le numéro 1) : MyReader1, bouton_stop1, PictureBox1, ...

N'est-il pas possible de mettre ce numéro comme variable puisque ce code est répété à 20 reprises et seul le numéro à la fin des noms des objets changent.

ftibo · Answer 5 · 2010-06-11T08:28:09+0200

Réponse 5 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 08:28

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 08:39

Oui c'est beaucoup plus près !
J'ai testé mais une erreur se produit :

La référence d'objet n'est pas définie à une instance d'un objet.

ftibo · Answer 6 · 2010-06-11T08:41:58+0200

Réponse 6 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 08:41

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 08:49

Voila le code ( c'est juste pour tester en fait) :

Private Sub bouton_stop1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bouton_stop1.Click

        For i = 1 To 20
            Me.Controls.Item("Label" & i.ToString).Visible = False
        Next i

End Sub

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 08:49

et c'est à la ligne Me.Controls.Item ...

ftibo · Answer 7 · 2010-06-11T08:56:00+0200

Réponse 7 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 08:56

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 09:03

Je suis sûr d'avoir ces contrôles. J'ai testé avec les PictureBox même erreur. Le code que tu me proposes est exactement comme je veux mais il y a cette erreur.

ftibo · Answer 8 · 2010-06-11T09:10:25+0200

Réponse 8 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 09:10

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 09:14

Oui tous mes objets font partis d'un même formulaire.

ftibo · Answer 9 · 2010-06-11T09:16:43+0200

Réponse 9 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 09:16

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 10 · 2010-06-11T09:19:20+0200

Réponse 10 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 09:19

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?

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 09:23

Bizarre ...
J'ai mis le code au load du form.
J'ai fais un debug et c'est au premier passage dans la boucle que ça bug.
Comme c'est dans le load dès que le programme entre dans la boucle, il ne continue plus la suite des instructions et lance la fenêtre (sans exécuter la boucle et ce qui suit)

ftibo · Answer 11 · 2010-06-11T09:24:01+0200

Réponse 11 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 09:24

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 09:25

Ah d'accord. J'utilise Visual Basic Express 2010 =S

ftibo · Answer 12 · 2010-06-11T09:30:58+0200

Réponse 12 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 09:30

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 09:37

Deux questions :
- Tu entends quoi par Public Sub New de Form ? Je n'ai que des Private Sub même pour le Load :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Il faut que ce soit dans une Public Sub ?

- Je connais pas du tout le InitializeComponent :s

Par contre je te remercie pour l'aide et le temps que tu me donnes, c'est super sympa.

ftibo · Answer 13 · 2010-06-11T09:42:55+0200

Réponse 13 / 13

ftibo

Messages postés: 15
Date d'inscription: jeudi 10 juin 2010
Statut: Membre
Dernière intervention: 11 juin 2010

6
11 juin 2010 à 09:42

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

Signaler

Black_Voltage

Messages postés: 76
Date d'inscription: samedi 17 janvier 2009
Statut: Membre
Dernière intervention: 16 mars 2015

1
11 juin 2010 à 09:46

Ok pas de soucis ;)

Création d'objets automatiques en VB.NET

13 réponses

Votre réponse

Newsletter