Comment utiliser une structure dans un module ? [Résolu]

Messages postés
553
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
- - Dernière réponse : Duke49
Messages postés
553
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
- 28 oct. 2010 à 09:34
J'ai besoin d'aide ^^
Comment coder mon exemple au plus simple et efficase ?

Module mod_xml
    Public Structure DialogueExplorer
        Friend Type As String
        Public Sub EcrireType(ByVal sVal As String)
            Type = sVal
        End Sub
        Public Function LireType()
            Return Type
        End Function
        Friend Titre As String
        Public Sub EcrireTitre(ByVal sVal As String)
            Titre = sVal
        End Sub
        Public Function LireTitre()
            Return Titre
        End Function
        Friend Message As String
        Public Sub EcrireMessage(ByVal sVal As String)
            Message = sVal
        End Sub
        Public Function LireMessage()
            Return Message
        End Function
        Friend Configuration_NomFichier As String
        Public Sub EcrireConfigurationNomFichier(ByVal sVal As String)
            Configuration_NomFichier = sVal
        End Sub
        Public Function LireConfigurationNomFichier()
            Return Configuration_NomFichier
        End Function
        Friend Configuration_DossierRacine As String
        Public Sub EcrireConfigurationDossierRacine(ByVal sVal As String)
            Configuration_DossierRacine = sVal
        End Sub
        Public Function LireConfigurationDossierRacine()
            Return Configuration_DossierRacine
        End Function
End Module


Comment utiliser DialogueExplorer dans une fonction que j'ajouterai à ce module ?
DialogueExplorer.EcrireMessage("Hello World") ????
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
7745
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
28
3
Merci
Non, ça serait plutot :

Dim toto As DialogueExplorer
toto.EcrireMessage("Hello World")



[i][b]---- Sevyc64 (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 196 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_casy
Messages postés
553
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
2
0
Merci
Merci ^^
Commenter la réponse de Duke49
Messages postés
553
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
2
0
Merci
        Friend Type As String
        Public Sub EcrireType(ByVal sVal As String)
            Type = sVal
        End Sub
        Public Function LireType()
            Return Type
        End Function


MON AMELIORATION:
    Private mType as String
    Friend Property mType() As String
        Get
            Return mType
        End Get
        Set(ByVal sVal As String)
            mType = sVal
        End Set
    End Property
Commenter la réponse de Duke49