BAUSTELLE: jj / formDesigner

2018-03-01 15:47:25 +01:00
parent fa3d81d448
commit 55c7a7210b
7 changed files with 615 additions and 301 deletions
--- a/app/DD_PM_WINDREAM/ModuleControlProperties.vb
+++ b/app/DD_PM_WINDREAM/ModuleControlProperties.vb
@@ -0,0 +1,113 @@
+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