Patterns: WIP Patterns version 2

Modules.Patterns/Modules/Controls.vb

@@ -0,0 +1,61 @@
+Imports System.Windows.Forms
+Imports DigitalData.Controls.LookupGrid
+Imports DigitalData.Modules.Logging
+
+Namespace [PatternModule]
+    ''' <summary>
+    ''' Simple patterns that only rely on .NET functions
+    ''' </summary>
+    Public Class Controls
+        Inherits BaseModule
+        Implements IModule
+
+        Public Const CTRL_VALUE_PANEL = "PANEL"
+
+        Public Property PatternIdentifier As String = "CTRL" Implements IModule.PatternIdentifier
+        Public Property IsComplex As Boolean = True Implements IModule.IsComplex
+
+        Public Sub New(pLogConfig As LogConfig)
+            MyBase.New(pLogConfig)
+        End Sub
+
+        Public Function Replace(pInput As String, pReplaceMap As Dictionary(Of String, Object)) As String Implements IModule.Replace
+            Dim oResult = pInput
+            Dim oCounter = 0
+            Dim oPanel As Panel = pReplaceMap.Item("CTRL_VALUE_PANEL")
+
+            While BaseFunctions.ContainsPattern(oResult, PatternIdentifier)
+                Dim oControlName As String = BaseFunctions.GetNextPattern(oResult, PatternIdentifier).Value
+                Dim oControl As Control = oPanel.Controls.Find(oControlName, False).FirstOrDefault()
+
+                If oControl IsNot Nothing Then
+                    Dim oReplaceValue As String
+                    Select Case oControl.GetType.ToString
+                        Case GetType(TextBox).ToString
+                            oReplaceValue = oControl.Text
+                        Case GetType(LookupControl3).ToString
+                            Dim oLookupControl3 As LookupControl3 = oControl
+                            If oLookupControl3.Properties.SelectedValues.Count = 1 Then
+                                oReplaceValue = oLookupControl3.Properties.SelectedValues.Item(0)
+                            Else
+                                oReplaceValue = "0"
+                            End If
+                        Case GetType(ComboBox).ToString
+                            oReplaceValue = oControl.Text
+                        Case GetType(CheckBox).ToString
+                            Dim oCheckBox As CheckBox = oControl
+                            oReplaceValue = oCheckBox.Checked
+                        Case Else
+                            oReplaceValue = "0"
+                    End Select
+
+                    oResult = BaseFunctions.ReplacePattern(oResult, PatternIdentifier, oReplaceValue)
+                End If
+
+                BaseFunctions.IncrementCounterOrThrow(oCounter)
+            End While
+
+            Return oResult
+        End Function
+    End Class
+End Namespace