Pourquoi une List(Of..) bien que déclarée Public dans un module n'est plus visible dans Form1.vb

Version imprimable

Bonjour à tous
J'ai un problème avec une List(Of...) que je rempli dans Module1.vb est déclarée Nothing dans Form1.vb
Pourtant elle est déclarée Public dans Module1
J'ai codé un tout petit programme avec ces éléments pour simplifier la mise au point
Voici le code de Module1.vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Imports System.Collections.Generic
Module Module1
    Public MaListe As List(Of Integer)
    Public i, B As Integer
 
   Public Sub Main()
        Dim MaListe As New List(Of Integer)
        For i = 0 To 10
            MaListe.Add(i)
        Next
        B = MaListe(5)
        Form1.ShowDialog()
    End Sub
 
End Module

Et celui de Form1.vb

Code:

1
2
3
4
5
6
7
8
 
Imports System.Collections.Generic
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim A As Integer
        A = MaListe(2)
    End Sub
End Class

03/03/2018, 10h07
Pol63

tu as vérifié que tu passes dans cette sub main ?
03/03/2018, 14h00
Claude_Azoulai

Merci
Le programme passe bien dans le Main.
Vérifié avec des points d'arrêt
03/03/2018, 14h28
Pol63

j'avais mal lu le code, tu as écris Dim MaListe
Dim sert à déclarer une nouvelle variable, et il est possible de déclarer une variable dans un membre qui a le même nom qu'un membre de classe mais qui sont différentes, donc il te suffit d'enlever le dim pour cibler la bonne

Bonjour,

Code:

Dim MaListe As New List(Of Integer)

Dans la sub, tu définis un autre "MaListe" local à la sub.

soit:
Code:

1 2 Module Module1 Public MaListe As New List(Of Integer)
et pas de redefinition dans la sub

ou
Code:

1 2 Module Module1 Public MaListe As List(Of Integer)
et
Code:

1 2 3 Public Sub Main() MaListe = New List(Of Integer) For i = 0 To 10
EDIT: coiffé au poteau :D

03/03/2018, 17h01
Claude_Azoulai

Merci beaucoup baloub
La 1ère solution n'a pas fonctionné, mais la deuxième fonctionne très bien