apropos les collections

Version imprimable

Bonjour, SVP je sais pas pourkoi les tableaux de ce programme ne s'affichent pas ??????????????

voici le program:

Code:

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
46
47
48
49
50
Module Module1
 
    Sub Main()
        Dim macoll As New Collection
        Dim i, k, l, m As Integer
        Dim T1(30) As String
        Dim T2(30) As Integer
        Dim T3(30) As Double
        k = 0
        l = 0
        m = 0
        macoll.Add(18)
        macoll.Add(-2)
        macoll.Add("Bonjour")
        macoll.Add("Monsieur")
        macoll.Add("A")
        macoll.Add(2.26)
 
        For Each elem As Object In macoll
            Console.Write(elem)
            Console.WriteLine(" " & elem.GetType.ToString())
            If (elem.GetType.ToString() = "system.String") Then
                T1(k) = CStr(elem)
                k += 1
            End If
            If (elem.GetType.ToString() = "system.Int32") Then
                T2(l) = CInt(elem)
                l += 1
            End If
            If (elem.GetType.ToString() = "system.Double") Then
                T3(m) = CDbl(elem)
                m += 1
            End If
        Next
 
        For i = 0 To k - 1
            Console.WriteLine(T1(i))
        Next
        For i = 0 To l - 1
            Console.WriteLine(T2(i))
        Next
        For i = 0 To m - 1
            Console.WriteLine(T3(i))
        Next
 
        Console.ReadLine()
 
    End Sub
 
End Module

Bonjour.

Faut mettre "System.String" avec un S majuscule.

C'est trés moyen de procéder ainsi en utilisant le nom du type, c'est même à bannir à jamais.

Je te conseille plutôt :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
            If TypeOf elem Is String Then
                T1(k) = CStr(elem)
                k += 1
            End If
            If TypeOf elem Is Int32 Then
                T2(l) = CInt(elem)
                l += 1
            End If
            If TypeOf elem Is Double Then
                T3(m) = CDbl(elem)
                m += 1
            End If

Cdt.

30/11/2007, 10h30
Bluedeep

Citation:

Envoyé par olsimare

C'est trés moyen de procéder ainsi en utilisant le nom du type, c'est même à bannir à jamais.

Ici, c'est pas moyen c'est inutile.
Cela ne signifie pas en revanche que c'est à bannir (il y a des fois où tu ne dispose pas du type : si il est définit par son nom dans un fichier par exmple).
30/11/2007, 23h23
olsimare

Bonjour.

Blue d'accord avec toi, je me suis emporté, ça m'arrive :lol: !

Cdt.
02/12/2007, 14h27
vbneteur

merciiiiiiiiiiiiiiii a vous tous !!!!!!!!!

ca marche merci encore