Syntaxe de Property en VB.NET

Signaler
Messages postés
39
Date d'inscription
samedi 19 juillet 2003
Statut
Membre
Dernière intervention
13 octobre 2013
-
Messages postés
16
Date d'inscription
vendredi 13 décembre 2013
Statut
Membre
Dernière intervention
30 août 2014
-
Bonjour,
Je suis entrain de convertir une classe écrite pour VBA Access en VB.NET
Je coince sur Property
Par exmple j'ai ce morceau de code

Public Property Get ImgCtrlWidthPix() As Long
    If gImgObjType = 0 Then    ' Formulaire
        ImgCtrlWidthPix = TwipsToPixelX(gImgObj.InsideWidth)
    Else    ' Contrôle
        ImgCtrlWidthPix = TwipsToPixelX(gImgObj.Width)
    End If
End Property

Comment le réécrire pour qu'il fonctionne ?
D'avance merci

jlfcdvg

3 réponses

Messages postés
14792
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
17 mai 2021
155
Public Property MaPropriete As Type
    Get
        Return ...
    End Get
    Set(byval pValue as Type)
        MaVariable=pValue
    End Set
End Property

Public Property MaPropriete As Type

Public ReadOnly Property MaPropriete As Type
    Get
        Return ...
    End Get
End Property

Public WriteOnly Property MaPropriete As Type
    Set(byval pValue as Type)
        MaVariable=pValue
    End Set
End Property


Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
là par erreur. Excuses




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
Bon.
J'ai entre temps lu ceci :
http://msdn.microsoft.com/en-us/library/dd293589.aspx
et en conclus que tu devrais avoir une expression conditionnelle pour établir tes Set (et non dans ton Set).
Pour reprendre l'exemple du lien :
Private _Prop2 As String = "Empty" 
Property Prop2 As String 
    Get 
        Return _Prop2
    End Get 
'if ..... then
    Set(ByVal value As String)
        _Prop2 = value
'else
'    Set(ByVal value As String)
'        _Prop2 = value
'end if
    End Set 
End Property
Messages postés
16
Date d'inscription
vendredi 13 décembre 2013
Statut
Membre
Dernière intervention
30 août 2014

ce serait intéressant de publier ta classe