41 lines
1017 B
VB.net
41 lines
1017 B
VB.net
Public Class ClassControl
|
|
Private props As BaseProperties
|
|
Private ctrl As Control
|
|
|
|
Public Sub New(control As Control)
|
|
ctrl = control
|
|
|
|
If TypeOf control Is Label Then
|
|
props = CreateBasePropertyObject(New LabelProperties())
|
|
ElseIf TypeOf control Is TextBox Then
|
|
props = CreateBasePropertyObject(New TextboxProperties())
|
|
End If
|
|
End Sub
|
|
|
|
Public ReadOnly Property Control As Control
|
|
Get
|
|
Return ctrl
|
|
End Get
|
|
End Property
|
|
|
|
Public Property Properties As BaseProperties
|
|
Get
|
|
Return props
|
|
End Get
|
|
Set(value As BaseProperties)
|
|
props = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Function CreateBasePropertyObject(obj As BaseProperties) As BaseProperties
|
|
obj.ID = ctrl.Tag
|
|
obj.Name = ctrl.Name
|
|
obj.Location = ctrl.Location
|
|
obj.Width = ctrl.Width
|
|
obj.Height = ctrl.Height
|
|
|
|
Return obj
|
|
End Function
|
|
|
|
End Class
|