Discussion :

[angelevil]

Bonjour !

J'ai un petit soucis....

Dans un programme que je produits j'ai créé une structure dans un module.

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
 
Public Structure Struc
 
    Dim piece1 As String
    Dim desc1 As String
    Dim qte1 As String
 
    Dim piece2 As String
    Dim desc2 As String
    Dim qte2 As String
 
    Dim piece3 As String
    Dim desc3 As String
    Dim qte3 As String
 
    Dim piece4 As String
    Dim desc4 As String
    Dim qte4 As String
 
    Dim piece5 As String
    Dim desc5 As String
    Dim qte5 As String
 
    Dim piece6 As String
    Dim desc6 As String
    Dim qte6 As String
 
    Dim piece7 As String
    Dim desc7 As String
    Dim qte7 As String
 
    Dim piece8 As String
    Dim desc8 As String
    Dim qte8 As String
End Structure

J'ai aussi créé une variable globale pour la structure dans le module...

Code :

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

Public laStruc As Struc

Jusque là tout va bien....

C'est lorsque je veux sauvegarder dans la structure les données je veux faire une boucle FOR afin de simplifier le code, optimiser si vous voulez....

Voici ce que j'ai codé....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
        For i = 1 To 8
 
            laStruc.piece & (i) = Me.Txt_Piece & (i) & .text
 
            laStruc.desc & (i) = Me.Txt_desc & (i) & .text
 
            laStruc.qte & (i) = Me.Txt_Qtee & (i) & .text
 
        Next

Ce code ne fonctionne pas.... Est-ce possible de remplir une structure comme j'ai avec une boucle FOR ou bien je dois tout faire un après l'autre et alourdir le code ????

Merci de vos éclaircissements.

AngelEvil!

[StormimOn]

... afin de simplifier le code, optimiser si vous voulez ...

Il faudrait commencer par simplifier (optimiser si tu préfères) ta structure. Ce qu'il te faut c'est une liste de pièces plutôt et pas une structure avec des champs copier/collés.

Il faudrait mieux passer par quelque chose comme

Code :

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

1
2
3
4
5
Public Structure Piece
    Dim piece As String
    Dim description As String
    Dim quantite As String
End Structure

Ensuite il faudra mettre dans des tableaux les contrôles auxquels tu veux accéder pour l'assignation (à moins qu'en VB.Net on puisse construire le libellé comme tu le fais, mais j'ai un gros doute).
Donc un tableau avec les TextBox pièce (tabTextBoxPiece par exemple), un tableau pour les TextBox description (tabTextBoxDescription) et pareil pour la quantité (tabTextBoxQuantite).

Et pour finir

Code :

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

1
2
3
4
5
6
7
8
9
Dim pieces As List(Of Piece) = new List(Of Piece)
Dim piece As Piece
For i = 1 To 8
    piece = new Piece()
    piece.piece = tabTextBoxPiece(i).Text
    piece.description = tabTextBoxDescription(i).Text
    piece.quantite = tabTextBoxQuantite(i).Text
    pieces.Add(piece)
Next

Voilà une façon de faire.

Edit : je n'aime pas la syntaxe de VB, donc le code n'est pas garanti sans fautes le principe est là par contre

[angelevil]

Merci

Je n'avais pas pensé de coder de cette façon!

Je vais refaire mon code comme vous m'avez montré....

AngelEvil!