Salut, mon objectif est d'afficher les valeurs de mon tableau dans une listbox, mais je crois que mon tableau n'as pas bien été rempli.
Mon formulaire :
Nom : form.PNG
Affichages : 121
Taille : 3,7 Ko
Mon module :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Module ModProd
 
    Sub init_Prod()
 
        Dim PROD(4, 4) As String
        PROD(0, 0) = "P1" : PROD(0, 1) = "Dras plats" : PROD(0, 2) = 12.98 : PROD(0, 3) = 7
        PROD(1, 0) = "P2" : PROD(1, 1) = "Serviettes 50x80" : PROD(1, 2) = 5.86 : PROD(1, 3) = 12
        PROD(2, 0) = "P3" : PROD(2, 1) = "Sacoches" : PROD(2, 2) = 4.99 : PROD(2, 3) = 8
        PROD(3, 0) = "P4" : PROD(3, 1) = "Sèches-cheveux" : PROD(3, 2) = 26.45 : PROD(3, 3) = 4
    End Sub
 
End Module
Et le code de mon bouton afficher :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Public Class Form1
    Dim PROD(4, 4) As String
 
    Private Sub BtnAfficher_Click(sender As Object, e As EventArgs) Handles BtnAfficher.Click
        init_Prod()
        Dim v = PROD(0, 0)
        LstBoxProd.Items.Add(v)
    End Sub
End Class
Voila si quelqu'un sait qu'est ce qui ne fonctionne pas