Discussion :

[Jean-Luc80]

Bonjour
Je tente de transformer un code de classe image que j'utilise en VBA Access
pour VB.NET (2008)
Je butte sur la syntaxe de Property
En VBA j'ai cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Property Get ImageHeight() As Long
    If gImgObjType = acImage Then   
        ImageHeight = gImgObj.ImageHeight
    Else
        ImageHeight = gDIB.Height
    End If
End Property

Comment le modifier pour l'adapter à vb.net
Merci de vos conseils

[Pol63]

tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Property ImageHeight As Long

et sur vs 2008 la structure s'écrit toute seule quand tu fais "entrée"

sinon c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
property ... as ...
  get
 
  end get
  set (v as ...)
 
  end set
end property

[Sankasssss]

... et sur vs 2008 la structure s'écrit toute seule quand tu fais "entrée"

C'est avec la touche TAB non ?

[Pol63]

non
tout comme quand on écrit sub machin on fait entrée et le end sub apparait

[Sankasssss]

ah oui ok, je pensais que tu parlais du système des extraits de code encore plus rapide.
Exemple, tu commences à taper prop, l'intelli-sense te propose directement Property, tu tapes une fois sur TAB pour compléter et une deuxième fois pour avoir toute la syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Private newPropertyValue As String
    Public Property NewProperty() As String
        Get
            Return newPropertyValue
        End Get
        Set(ByVal value As String)
            newPropertyValue = value
        End Set
    End Property

La il te surligne newPropertyValue, NewProperty et String et te positionne directement sur newPropertyValue.
Il ne te reste plus qu'a entrer le nom de ta variable privée, quand tu l'as bien mi tu appuies sur TAB. Il modifie directement toutes les variables :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Private _MonCompteur As String
    Public Property NewProperty() As String
        Get
            Return _MonCompteur
        End Get
        Set(ByVal value As String)
            _MonCompteur = value
        End Set
    End Property

et te met sur le deuxième champs surligné String, et pareil pour le nom de la propriété.

C'est encore bien plus rapide que le ENTER : prop + TAB + TAB

Il y en a bien d'autre que l'on peut voir en faisant clic droit sur une ligne et en choisissant "Insérer un extrait..."

Voir : Création et utilisation d'extraits de code IntelliSense

P.S. : Avec Visual Studio 2010 elle ne s'écrit plus toute seul avec ENTER car VS permet de ne plus écrire le GET, SET et la variable privée.
Si on veut avoir l'écriture automatique c'est au moment où l'on rentre get + Enter

[Jean-Luc80]

Bonjour
Par rapport au code VBA du premier post, celui-ci en VB.NET vous parait'il bon ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Property ImageHeight() As Long
        Get
            ImageHeight
        End Get
        Set(ByVal value As Long)
            If gImgObjType = acImage Then
                ImageHeight = gImgObj.ImageHeight
            Else
                ImageHeight = gDIB.Height
            End If
    End Property

Je n'ai pas d'erreur de syntaxe mais je ne sais pas si le code fera la même chose qu'en VBA Access
Merci d'avance

[Pol63]

une propriété n'est pas une variable, c'est un accesseur

il faut donc (en général) une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
private _Machin as truc
public property Machin as truc
  get
    return _Machin
  end get
  set (value as truc)
    _Machin = value
  end set
end property

_ devant le nom de la propriété est une des convetions possibles, ca pourrait dans l'absolu être
private _VarMachin as truc
et donc return _VarMachin et _VarMachin = value