COLLECTION & STRUCTURE

cyberice67 Messages postés 88 Date d'inscription samedi 6 décembre 2003 Statut Membre Dernière intervention 7 novembre 2016 - 14 mai 2005 à 20:50
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 14 mai 2005 à 22:48
Bonjour,

Quelqu'un pourrait me dire quelle est la syntaxe permettant de créer une collection à partir de la structure suivante :



Structure Mastruc

Dim Emetteur
As
String
Dim Message
As
String
Dim NbMessage
As
Integer
End
Structure

SI POSSIBLE ne pas créer un tableau de structure car j'ai une fonction qui doit renvoyer une COLLECTION (composée de MaStruct).

Merci d'avance...

Cyberice

1 réponse

nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
14 mai 2005 à 22:48
Salut,



Il y a plusieurs problemes.



1 --> La syntaxte de ta structure n'est pas valide en VB.6 (ni .net)



2 --> La syntaxe correcte est



Public Type Mastruc

Emetteur As String

Message As String

NbMessage As Integer

End Type



Debut tu declare dans un module.



3--> Le deuxieme probleme, il semble impossible, selon le compilateur de mettre un structure type dans une collection

Une collection accepte apparament que des classes VB et non des structurs.



4--> Il faut donc pour fair eton programme utilisée la psudo programmation objet de VB6



Pour des exemples va voir sur internet,



Private mvarIdVille As Single

Private mvarNomVille As String



Public Property Let NomVille(ByVal vData As String)

mvarNomVille = vData

End Property



Public Property Get NomVille() As String

NomVille = mvarNomVille

End Property



Public Property Let IdVille(ByVal vData As Integer)

mvarIdVille = vData

End Property



Public Property Get IdVille() As Integer

IdVille = mvarIdVille

End Property



voila un exemple de classe VB



il faut ajout des modules de classe.



Voila avec ca tu pourras continuer...





Voila
0
Rejoignez-nous