114 lines
2.6 KiB
VB.net
114 lines
2.6 KiB
VB.net
Imports System.ComponentModel
|
|
|
|
Public Module ModuleControlProperties
|
|
Private _id As Integer
|
|
Private _name As String
|
|
Private _location As Point
|
|
Private _width As Integer
|
|
Private _height As Integer
|
|
|
|
Public Class BaseProperties
|
|
<ReadOnlyAttribute(True)>
|
|
Public Property ID() As Integer
|
|
Get
|
|
Return _id
|
|
End Get
|
|
Set(value As Integer)
|
|
_id = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Name() As String
|
|
Get
|
|
Return _name
|
|
End Get
|
|
Set(value As String)
|
|
_name = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Location() As Point
|
|
Get
|
|
Return _location
|
|
End Get
|
|
Set(value As Point)
|
|
_location = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Width() As Integer
|
|
Get
|
|
Return _width
|
|
End Get
|
|
Set(value As Integer)
|
|
_width = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Height() As Integer
|
|
Get
|
|
Return _height
|
|
End Get
|
|
Set(value As Integer)
|
|
_height = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
Public Class TextboxProperties
|
|
Inherits BaseProperties
|
|
|
|
Private _required As Boolean
|
|
Private _read_only As Boolean
|
|
|
|
Public Property Required() As String
|
|
Get
|
|
Return _required
|
|
End Get
|
|
Set(ByVal value As String)
|
|
_required = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property [ReadOnly]() As String
|
|
Get
|
|
Return _read_only
|
|
End Get
|
|
Set(ByVal value As String)
|
|
_read_only = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
Public Class LabelProperties
|
|
Inherits BaseProperties
|
|
|
|
Private _text As String
|
|
|
|
Public Property Text() As String
|
|
Get
|
|
Return _text
|
|
End Get
|
|
Set(value As String)
|
|
_text = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
Public Class CheckboxProperties
|
|
Inherits BaseProperties
|
|
|
|
Private _text As String
|
|
|
|
Public Property Text() As String
|
|
Get
|
|
Return _text
|
|
End Get
|
|
Set(value As String)
|
|
_text = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
End Module
|