Comment utiliser une structure dans un module ?Résolu

Question

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") ????

cs_casy · Accepted Answer

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

Duke49 · Answer

Merci ^^

Duke49 · Answer

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

Comment utiliser une structure dans un module ?

3 réponses

Votre réponse

Discussions similaires