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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
Imports System.ComponentModel
Public Class UnObjet
Private _name As String
<Category("Général"), Description("Nom de l'objet")> _
Public Property Name() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property
Private _size As Size
<Category("Apparence"), Description("Taille de l'objet")> _
Public Property Size() As Size
Get
Return _size
End Get
Set(ByVal value As Size)
_size = value
End Set
End Property
Private _id As Integer
' Cette propriété ne sera pas affichée
<Browsable(False)> _
Public Property Id() As Integer
Get
Return _id
End Get
Set(ByVal value As Integer)
_id = value
End Set
End Property
End Class |
Partager