recupérer valeur de l'objet sur laquelle est appelée la fonction +vb.net

Bonjour,

L'objet objARajouter a comme attribut Nom

Appel :
objARajouter.ajouterDansBDD()

je souhaite dans ma fonction ajouterDansBDD() récupérer la valeur de l'attribut nom de objARajouter. Cella est-il possible ? Si oui à l'aide de quel mot clé ?

Merci beaucoup !

explique un peu plus précisément ce que tu souhaite effectué

Si j'ai bien compris:

Code:

Me.Nom

Bonjour,

Si l'objet objARajouter (bizarre comme nom ..) a une propriété nom, les règles de bonnes programmation objet font que cet objet possède une propriété en lecture et écriture qui expose l'attribut nom à l'extérieur et encapsule cette propriété via une variable visible uniquement à travers la classe objARajouter qui peut se nommer m_Nom
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Class ObjetARajouter Private m_Nom As String Public Property NOM() As String Get Return m_Nom End Get Set(ByVal value As String) m_Nom = value End Set End Property End Class
Cette classe possède une méthode ajouterDansBDD qui accède au nom de l'objet via la variable encapsulée:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Class ObjetARajouter Private m_Nom As String Public Property NOM() As String Get Return m_Nom End Get Set(ByVal value As String) m_Nom = value End Set End Property Public Sub ajouterDansBDD() Dim lenomdelobjet As String = m_Nom 'to do End Sub End Class
Me.Nom ou une instance de l'objet nommée Obj1.Nom sera plutôt réservée aux appels extérieurs à la classe.

Code:

Dim lenomdelobjet As String = m_Nom

équivaut bien a ca:

Code:

Dim lenomdelobjet As String = Me.m_Nom

Citation:

Me.Nom ou une instance de l'objet nommée Obj1.Nom sera plutôt réservée aux appels extérieurs à la classe.

Si tu arrives a faire Me.Nom a l’extérieur de la classe, chapeau !

Concernant l'assesseur et le mutateur +1. Bien que ce ne soit pas la question de notre amis.

Bonjour,

Citation:

Si tu arrives a faire Me.Nom a l’extérieur de la classe, chapeau !

Vrai ! Je crois qu'après 18h je suis plus bon à rien !

Citation:

Code :

Dim lenomdelobjet As String = m_Nom

équivaut bien a ca:

Code :

Dim lenomdelobjet As String = Me.m_Nom

Mais pas tout à fait à

Code:

Dim lenomdelobjet As String = Me.Nom

Ce que je voulais souligner (malgré mes bêtises) c'est le principe de l'encapsulation en POO. Car de façon sous-jacente la question originelle dénote d'une méconnaissance de ce principe.

Citation:

Ce que je voulais souligner (malgré mes bêtises) c'est le principe de l'encapsulation en POO. Car de façon sous-jacente la question originelle dénote d'une méconnaissance de ce principe.

Plus que d'accord avec toi.

J'ai fais initialement une réponse concise, pour aider dans le code, mais c'est vrai que des fois, vue la question, j'avoue ne pas avoir la force d’approfondir la réponse.

Bon on a tous notre propre technique pour cuisiner mais personnellement je préfère déclarer les variable de l'objet en private et d'autoriser la lecture/écriture depuis l'extérieur à l'aide des "Property".

Néanmoins pour les fonction de l'objet (donc interne), l'utilisation direct de la propriété est tout à fait correct!

En effet l'objectif premier de l'utilisation des assesseurs et mutateurs (aussi appeller getteur, setteur en bon franglais) est en premier lieu de s'assurer qu'un code tiers ne perverti pas l'objet que l'on a implémenté avec amour.

Vu que la fonction est "théoriquement" implémentée par l'équipe créatrice de l'objet on peut supposer qu'elle arrivera à respecter la logique mise en place autour de la variable avec les Property! Donc l'utilisation de Me.Nom est, selon moi, correcte.

Néanmoins je suis conscient que l'on peut argumenter sur le sujet un long moment (et si on inclut au débat un développeur habitué à un autre language c'est encore pire). Il parait même qu'il y a des sombres histories d'héritage dans le coup :mrgreen:

Bonjour,

Citation:

l'utilisation de Me.Nom est, selon moi, correcte.

Oui elle est correcte mais non équivalente si vous regardez le code que j'ai posté ici:

http://www.developpez.net/forums/d10...egistrer-sous/

j'utilise

Code:

Me.Chemin = chemin

dans le constructeur car j'utilise aussi le mutateur (j'aime bien) pour valider le formatage de la chaîne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private mChemin As String Public Property Chemin() As String Get Return mChemin End Get Set(ByVal value As String) If Mid$(value, Len(value), 1) <> "\" Then value = value & "\" End If mChemin = value End Set End Property
a noter que c'est un code de mes débuts en .NET avec de vieux réflexes de VB6 (MID$)

Ah j'ai jamais dit équivalent!

Bien entendu que dans ton cas si ta fonction modifie mChemin tu dois aussi faire le traitement.

Néanmoins on peut mettre Chemin en lecture seul et définir une fonction OuvreFichier (qui ouvre une boite de dialogue pour obtenir un chemin, puis traite la chaine du chemin et pour finir sauvegarde dans la variable mChemin et renvoie True ou False en fonction de la réussite de l'opération.

Parce que avec un assesseur sur la propriété Chemin, si la valeur n'est pas valide tu n'as pas d'autre voie de retour qu'une exception (et comme je dis les exception c'est pour les trucs qu'on a pas prévu et non pas pour les cas qui arrivent rarement mais qu'on sait qu'ils peuvent arriver!)

Merci pour vos réponses.

Le Me. marche effectivement, mais il n'est pas indispensable.

ça marchait pas parce que ma méthode ajouterDansBDD() était "Shared"

Voici le code si ça peut aider quelqu'un dans le futur :

Code:

objARajouter.ajouterDansBDD()
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Nom As String Public Property infoNom() As String Get Return Nom End Get Set(ByVal value As String) Nom = value End Set End Property Sub ajouterDansBDD() Dim con As New OleDb.OleDbConnection Dim cmd As New OleDb.OleDbCommand con.ConnectionString = ModuleGeneral.cheminBDD con.Open() cmd = New OleDbCommand("insert into Pays(Denomination) values('" & infoNom & "')", con) cmd.ExecuteNonQuery() con.Close() listePays.Add(Me) MsgBox("Pays correctement ajouté") End Sub
Merci !