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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100
| Imports System.ComponentModel
Imports System.Drawing
Public Class Clavier
#Region "Types de propriétés"
<TypeConverter(GetType(System.ComponentModel.ExpandableObjectConverter))> _
Public Class Type_Cadre
Private _CadreGauche As Integer
Private _CadreDroite As Integer
Private _CadreHaut As Integer
Private _CadreBas As Integer
<Description("Espacement à gauche du clavier")> _
Public Property CadreGauche() As Integer
Get
Return _CadreGauche
End Get
Set(ByVal value As Integer)
_CadreGauche = value
End Set
End Property
<Description("Espacement à droite du clavier")> _
Public Property CadreDroite() As Integer
Get
Return _CadreDroite
End Get
Set(ByVal value As Integer)
_CadreDroite = value
End Set
End Property
<Description("Espacement au dessus du clavier")> _
Public Property CadreHaut() As Integer
Get
Return _CadreHaut
End Get
Set(ByVal value As Integer)
_CadreHaut = value
End Set
End Property
<Description("Espacement au dessous du clavier")> _
Public Property CadreBas() As Integer
Get
Return _CadreBas
End Get
Set(ByVal value As Integer)
_CadreBas = value
End Set
End Property
'Permet d'afficher par ex "10;20;10;10" en face de la propriété de type Cadre
Public Overrides Function ToString() As String
Return String.Format("{0};{1};{2};{3}", _CadreGauche, _CadreDroite, _CadreHaut, _CadreBas)
End Function
'permet d'initialiser la propriété avec les parametres spécifiés dans new()
Public Sub New(ByVal gauche As Integer, ByVal droite As Integer, ByVal haut As Integer, ByVal bas As Integer)
_CadreGauche = gauche
_CadreDroite = droite
_CadreHaut = haut
_CadreBas = bas
End Sub
End Class
#End Region
#Region "Variables"
Private _Cadre As Type_Cadre = New Type_Cadre(10, 10, 10, 10)
#End Region
#Region "Propriétés"
<Category(" Clavier"), Description("Parametrage du clavier")> _
Public Property Cadre() As Type_Cadre
Get
Return _Cadre
End Get
Set(ByVal value As Type_Cadre)
_Cadre = value
End Set
End Property
#End Region
#Region "Méthodes"
Public Sub SetCadre(ByVal gauche As Integer, ByVal droite As Integer, ByVal haut As Integer, ByVal bas As Integer)
Me.Panel1.Left = gauche
End Sub
#End Region
End Class |
Partager