Passage d'une Strucure dans une Class
Bonjour à tous,
j'ai créé une structure dans mon prg principal (class principale) et dans cette classe je définie un nouvel object : Dim clstools As New cls_tools
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| ' le code appelant avec la definition de la structure
Public Structure zst_MyFiles
Dim xml_setuptweets As String 'path et filename du setup de l'application
Dim xml_Switch As String 'fichier xml des correspondances
Dim xml_bulles As String ' fichier xml
Dim xml_liner As String 'fichier xml
Dim xml_Data As String 'nom et chemin du fichier datas
End Structure
Dim myFiles As zst_MyFiles
Public Sub AllSetupReadXML()
' Lecture du xml setup et chargement des data setup dans la structure MyFiles ??? comment faire ?
clsTools.SetupXML_read(ici la structure myFiles à passer à la classe)
' au retour de clsTools.SetupXML_read, ma structure myFiles sera rempli avec le contenu du xml parsé dans la classe clsTools...
End Sub |
J'ai ensuite créé une autre classe dans laquelle je vais y coller le parseur d'un fichier xml dans lequel il y a les infos qui me permettront de "remplir" la strucutre "myFiles"
Ma nouvelle classe :
Code:
1 2 3 4
| Public Class cls_mytools
Public Sub SetupXML_read(ByRef myFiles As ????)
' ici le parse un xml et j'en récupère le contenu dans la Strucure passée à ce sub de la class cls_MyTools...
End Sub |
Donc en résumé, comment passer une Structure à un sub de class et la récupérée modifié dans la programme appelant ???
Merci de votre aide
Patrick