Discussion :

[khaymann007]

J'ai 48 boutons et label qui s'appelent button1, button2, ... et label1, label2, etc...
J'aimerais faire une boucle, genre For Next et pouvoir modifier le texte du bon bouton ou label avec ça?
J'utilise Visual Studio 2019. J'espère que ma question est assez clair.
Les infos à mettre dans les .text viennent d'un datagridview, donc j'ai aussi besoin de choisir une ligne du datagrid à chaque fois.

Merci de votre aide.

[Miska59]

Pour changer de nom de tous les buttons, voici quelque exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For Each Button As Button In Me.Controls.OfType(Of Button)()
next

est si vous voulez changer un ou plusieurs buttons :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each Button As Button In Me.Controls.OfType(Of Button)()
            If Button.Name <> "Button1" AndAlso Button.Name <> "Button2" AndAlso Button.Name <> "Button4" Then
                Button.Text = "OK"
            End If
        Next

vous pouvez aussi remplacer button par aussi label.
cordialement,

[khaymann007]

Merci pour la réponse, malheureusement, il y a malentendu. Mon problème est plutôt que je dois faire une boucle dans laquelle je modifie le contenu .text du bouton ou du label à partir d'une database. Donc je dois faire les mêmes opérations sur chacun. Actuellement, j'utilise un Select Case dans une boucle For Next,
Genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Select Case (j)
     Case 1
          bouton1.text = datagridview..Rows(j - 1).Cells(0).Value.ToString
          label1.text = datagridview.Rows(j - 1).Cells(1).Value.ToString
     Case 2 
          bouton2.text = datagridview..Rows(j - 1).Cells(0).Value.ToString
          label2.text = datagridview.Rows(j - 1).Cells(1).Value.ToString
    Case 3 
          bouton3.text = datagridview..Rows(j - 1).Cells(0).Value.ToString
          label3.text = datagridview.Rows(j - 1).Cells(1).Value.ToString

Donc je me demandais s'il y avait un moyen autre que le select case pour ça. Que je puisse utiliser le bouton1 et label1 puis le bouton2 et le label2 selon le J. Parce que comme je pourrais avoir jusqu'à 48 boutons, c'est contre productif de refaire la même affaire 48 fois.

[popo]

Stocker les références à tes composants dans des collections et y accéder par leur indices.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
List<Button> buttons = new List<Button>() { button1, button2, button3 };
List<Label> labels = new List<Label>() { label1, label2, label3 };

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
boutons[j - 1].text = datagridview.Rows(j - 1).Cells(0).Value.ToString
labels[j - 1].text = datagridview.Rows(j - 1).Cells(1).Value.ToString

[Thumb down]

Bonjour,
Si dans ta base de données tu stock le nom du contrôle et la valeur du texte à afficher il te suffit de parcours le datagrid pour modifier le contrôle par son nom !

[khaymann007]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
List<Button> buttons = new List<Button>() { button1, button2, button3 };
List<Label> labels = new List<Label>() { label1, label2, label3 };

Ce type de déclaration ne fonctionne pas dans mon Visual Studio 2019. Je ne sais pas si c'est moi ou VB le problème dans ce cas-ci. j'ai ajouté le Public devant car ça ne voulait pas plus l'accepter.

Ce que j'ai besoin, c'est d'avoir une façon de choisir le bouton ou le label que je désire modifier. Sachant qu'ils portent tous le même nom sauf pour le chiffre à la fin, existe-t-il un moyen de dire que je veux appeler le "bouton" & i.ToString ?

J'ai pensé le mettre dans ma base de données, mais comme l'ordre des infos est configurable, ce ne serait donc pas nécessairement toujours le même bouton.

[ProgElecT]

Salut

appeler le "bouton" & i.ToString

As tu fait l'essai ?

[khaymann007]

j'ai essayé de plusieurs façons, dont celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        Dim btnNo As Integer = 18
        Dim monBtn As Button = "Button" & btnNo.ToString
        monBtn.Text = "My Button"

j'obtiens ceci

Erreur BC30311 Impossible de convertir une valeur de type 'String' en 'Button'.

[popo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
List<Button> buttons = new List<Button>() { button1, button2, button3 };
List<Label> labels = new List<Label>() { label1, label2, label3 };

Ce type de déclaration ne fonctionne pas dans mon Visual Studio 2019. Je ne sais pas si c'est moi ou VB le problème.

C''est parce que c'est du C#.
Je ne pensais pas que ce serait un problème de traduire en VB.Net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    Dim buttons As List(Of Button) = New List(Of Button)() From {
        button1,
        button2,
        button3
    }
    Dim labels As List(Of Label) = New List(Of Label)() From {
        label1,
        label2,
        label3
    }

Édit : ajout de la seconde partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
boutons(j - 1).text = datagridview.Rows(j - 1).Cells(0).Value.ToString 
label(j - 1).text = datagridview.Rows(j - 1).Cells(1).Value.ToString

[daerlnaxe]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim buttons As List(Of Button) = New List(Of Button)()

Non ?


Après y'a les tuples en Visual basic apparemment... si ça peut servir.

Aussi je crois que c'est possible en récupérant le container de récupérer boutons et cie. Il me semble l'avoir fait quand je générais dynamiquement des contrôles pour optimiser l'affichage (en c#/winform) car en cliquant tu pouvais grossir une section, afficher une partie supplémentaire etc... Il me semble qu'il fallait filtrer par contre. Par contre c'était pas avec un datagridview

[Thumb down]

bonjour,
imaginons ta dataGrid colonnes 1 tu as le nom du control et en 2 le texte à afficher!

Control	Text
label1	TOTO
label2	TITI
label3	TUTU
button1	Start
button2	Stop
button3	Valider

[Thumb down]

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for (int i = 0; i < datagridview.Rows.Count; i++)
    {
        this.controls($"bouton{(i + 1).tostring()}").text = datagridview.Rows(I).Cells(0).Value.ToString;
        this.controls($"label{(i + 1).tostring()}").text = datagridview.Rows(i).Cells(1).Value.ToString;
    }

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 For i As Integer = 0 To DataGridView.Rows.Count - 1
            Me.Controls($"bouton{(i + 1).ToString}").Text = DataGridView.Rows(i).Cells(0).Value.ToString
            Me.Controls($"label{(i + 1).ToString}").Text = DataGridView.Rows(i).Cells(1).Value.ToString
        Next

[khaymann007]

ceci me semblait prometteur, mais voici ce que j'ai comme erreur

[Thumb down]

attention i commence à 0 ja mis {(i + 1).ToString}

[khaymann007]

Dans mon cas, je débute à 1, mais ça ne semble pas être le problème, ça parle de -

{"La référence d'objet n'est pas définie à une instance d'un objet."} System.NullReferenceException

[Thumb down]

Postes le code complet de la boucle
en tous les cas chez moi ça fonctionne

[khaymann007]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Dim dt As New DataTable
        Dim j As Integer
        Dim nbRows As Integer
        Dim couleur As String
        Dim nom As String
        Dim montant As String
 
        'Dim btn As Button
        'Dim lbl As Label
        'Dim ctlName As String
 
 
        Try
            con.Open()
            sql = "Select Categorie.description,Categorie.total,Type.Code_Couleur from Categorie LEFT JOIN Type ON Categorie.type=Type.Type WHERE Categorie.Actif=True ORDER BY Categorie.Ordre"
            cmd.Connection = con
            cmd.CommandText = sql
            da.SelectCommand = cmd
 
            da.Fill(dt)
            ColGrdVw.DataSource = dt
            con.Close()
            ColGrdVw.Left = -400
 
            ColGrdVw.Visible = True
            nbRows = ColGrdVw.DisplayedRowCount(True)
            ColGrdVw.Visible = False
            con.Open()
            ListView1.Items.Clear()
 
            For j = 1 To nbRows
                Dim item As New ListViewItem
 
                nom = ColGrdVw.Rows(j - 1).Cells(0).Value.ToString
                montant = ColGrdVw.Rows(j - 1).Cells(1).Value.ToString
                couleur = ColGrdVw.Rows(j - 1).Cells(2).Value.ToString
 
                Me.Controls($"btnBud{(j + 1).ToString}").Text = ColGrdVw.Rows(j + 1).Cells(0).Value.ToString
                Me.Controls($"lblMontant{(j + 1).ToString}").Text = ColGrdVw.Rows(j + 1).Cells(1).Value.ToString
            Next j
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try

[khaymann007]

Je viens de l'essayer dans un projet vierge où je n'ai que 3 boutons et ça fonctionne bien.

Dans mon vrai projet, ces boutons sont dans un groupbox, est-ce que ça peut être la cause? et si oui, que dois-je faire ?

[Thumb down]

Imaginons que ton contrôle s'appel groupBox1 et bien tu remplace Me par groupBox1
groupBox1.Controls($"lblMontant{(j + 1).ToString}").Text =

[khaymann007]

Un gros merci à tous de votre aide. Ça marche finalement. Je suis passé de 575 lignes à 10 pour la même séquence d'opérations.