Discussion :

[nark07]

Bonjour,

J'ai des problèmes dans la déclaration de la collection de classe (en VB).
Le problème c'est que l'objet (mesSites) n'hérite pas des méthodes de la classe (ClasseSite), nous utilisons : List (Of ...)

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
Imports System.Collections.Generic
Public Class ClasseCategorie
    Private mesSites As New List(Of ClasseSite)
 
    Public Function getSites(ByVal vCatNom As String) As List(Of ClasseSite)
End Class
 
 
Imports System.Collections.Generic
Public Class ClasseSite
    Private SiteNom As String
    Private SiteAdresse As String
 
    Public Sub ajouterSite(ByVal unNewSiteNom As String, ByVal unNewSiteAdresse As String)
End Class

(J'arrive seulement à atteindre les méthode de la classe généric.)

Connaitriez vous la syntaxe pour déclarer une collection de classe en VB ??

[Pol63]

tu peux hérite de list of et rajouter du code

enfin je comprends rien de ce que tu racontes

[tomlev]

Le problème c'est que l'objet (mesSites) n'hérite pas des méthodes de la classe (ClasseSite), nous utilisons : List (Of ...)

Ben c'est normal... mesSites n'est pas un ClasseSite, mais une collection de ClasseSite. Les éléments de mesSites sont de type ClasseSite, mais pas la collection elle-même. Pour accéder aux membres de ClasseSite, il faut d'abord récupérer un élément de la collection.

Connaitriez vous la syntaxe pour déclarer une collection de classe en VB ??

Comme tu as fait...

[toham]

Personnellement pour créer une collection, je ne fais pas du tout comme ça, mais alors pas du tout, d'abor créer une classe, dedans tu ecris par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Public Class ClasseSite
 
Public num as integer
public nom as string
Public sub New(byval newnum as integer, byval newnom as string)
   num=newnum
   nom=newnom
end sub
end class

voila maintemant dans un module tu marque :

Code :

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

Public mesSites as new Collection()

Puis voila ta collection est créer, pour parcourir les enregistrement il suffit de faire

Code :

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

1
2
3
For each site as ClasseSite in mesSites
 
next

puis voila tu parcours tous tes enregistrements.