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 :
Mon 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
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
Voila si quelqu'un sait qu'est ce qui ne fonctionne pas
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
Partager