AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Patterns: WIP Patterns2

Browse Source
This commit is contained in:
Jonathan Jenne
2021-11-01 13:28:56 +01:00
parent d83c0125a4
commit dcf5bbe21c
8 changed files with 205 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Modules.Patterns/Modules/Controls.vb
View File

@@ -24,8 +24,8 @@ Namespace [PatternModule]
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
While ContainsPattern(oResult, PatternIdentifier)
Dim oControlName As String = GetNextPattern(oResult, PatternIdentifier).Value
Dim oControl As Control = oPanel.Controls.Find(oControlName, False).FirstOrDefault()
If oControl IsNot Nothing Then
@@ -49,10 +49,10 @@ Namespace [PatternModule]
oReplaceValue = "0"
End Select
oResult = BaseFunctions.ReplacePattern(oResult, PatternIdentifier, oReplaceValue)
oResult = ReplacePattern(oResult, PatternIdentifier, oReplaceValue)
End If
BaseFunctions.IncrementCounterOrThrow(oCounter)
IncrementCounterOrThrow(oCounter)
End While
Return oResult