Discussion :

[Raumain]

Bonjour,


Suis un peu nouveau sur le .net et si une personne charitable pouvait m'éclairer!!
Je n'arrive pas à ajouter des éléments dans ma classe "Target".
Quand j'essaye donc d'ajouter un élément comme ceci:

Code :

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

1
2
3
 Dim mItem As Target
 
        mItem.add(New Target("Tel1", "ID_1"))

le message obtenu est le suivant:
'add' n'est pas un membre de la classe 'Target'

De plus quand j'appelle la surcharge de ma procédure, j'ai le message suivant:
"La classe 'Target' ne peut être indéxé car elle n'a pas de propriété par défaut

Voici la classe Target en question:

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
Public Class Target
 
        Private m_number As String
        Private m_id As String
 
        Public Sub New(ByVal number As String, ByVal id As String)
            Me.number = number
            Me.id = id
        End Sub
 
        Public Property number() As String
            Get
                Return m_number
            End Get
            Set(ByVal value As String)
                m_number = value
            End Set
        End Property
 
        Public Property id() As String
            Get
                Return m_id
            End Get
            Set(ByVal value As String)
                m_id = value
            End Set
        End Property
 
    End Class

Alors si quelqu'un à une idée, j'en serai fort reconnaissant.


Merci d'avance

[Sehnsucht]

Il n'y a pas de méthode add dans ta classe donc il est logique que le compilo râle quand il ne trouve pas la méthode add de la classe target que tu lui demandes d'utiliser.
Qui plus est, même si ça fonctionnait, tu tenterais d'appeler une méthode depuis une instance non initialisée (qui vaut donc Nothing) et donc ça planterait sûrement avec une NullReferenceException.

J'avoue ne pas bien saisir ce que tu cherches à faire exactement

[Raumain]

Je vais essayer de répondre au mieux à tes questions:
je voudrai ajouter dynamiquement les éléments télephones et id (en fonction des saisies utilisateurs), donc je ne peux pas connaitre le nombre d'éléments à créer à l'avance. Je recherche donc la bonne instanciation de ma classe Target et la méthode pour ajouter autant de télephones et d'id que nécessaire.

Je ne suis absolument pas sur de l'instance:

Code :

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

1
2
Dim mItem As Target
        mItem.add(New Target("Tel1", "ID_1"))

Et il faudra aussi certainement modifier la classe...

Donc si je resume:
- comment instancier correctement ma variable mItem
- que faut-il modifier dans la classe Target pour accepter des nouveaux éléments

Merci par avance

[ZenZiTone]

Code :

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

1
2
Dim mItem As Target
        mItem.add(New Target("Tel1", "ID_1"))

Si je comprend bien, tu souhaites conserver une liste de "Target". Dans ce cas ton mItem ne doit pas être de type Target, mais List(Of Target). cf List(Of T)

[Sehnsucht]

Oui ça correspond à ce que j'avais imaginé sans être sûr

Ta classe Target (choix de nom étrange, enfin j'ai pas le contexte non plus ) représente UN téléphone/id du coup si tu en veux plusieurs ; il te faut un conteneur de Target (par exemple un tableau).
Après comme tu dis que tu veux les ajouter dynamiquement (autrement dit tu ne sais pas combien il y en a à l'avance) il te faut un conteneur dynamique (donc pas un tableau) ; par exemple une List(Of Target) comme suggéré par ZenZiTone.

Si on résume le tout :

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
Public Class Target
 
    Public Sub New(number As String, id As String)
        Me.Number = number
        Me.Id = id
    End Sub
 
 
    Public Property Number As String
 
    Public Property Id As String
 
 
End Class
 
' ...
 
Dim targets As New List(Of Target)
targets.Add(New Target("Tel1", "ID_1")) ' pour chaque Target à rajouter
 
' exemple avec une boucle :
 
Dim targets As New List(Of Target)
 
Do Until saisieFinie
    Dim tel As String = Console.ReadLine
    Dim id As String = Console.ReadLine
 
    Dim mItem As New Target(tel, id)
    targets.Add (mItem)
 
    ' + un truc qui modifie saisieFinie pour pas boucler indéfiniment ^^
Loop

[Raumain]

Super ça marche!!
j'ai juste fait une boucle avec For Next


Et il fallu redefinir l'objet en list (of Target) et non en Target, dans l'appel de la procédure utilisant 'targets', chose que j'avais oublié...


Merci beaucoup pour votre aide


Romain