1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

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

Signaler
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
 -
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
 -
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") ????

3 réponses

Réponse 1 / 3
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
 37
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
Réponse 2 / 3
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
 4
Merci ^^
Réponse 3 / 3
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
 4 
        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
Répondre Posez votre question