added missing methods for StringBuilder in last patch 9f9c7b4 introducing Dual feature

Author: jochenwezel

Console/CompuMaster.Console.vbproj

@@ -8,7 +8,7 @@
 		<Copyright>2016-2017,2019,2021,2022 CompuMaster GmbH</Copyright>	
 		<GeneratePackageOnBuild>true</GeneratePackageOnBuild>
 		<AssemblyVersion>2022.7.21.100</AssemblyVersion>
-		<Version>2022.7.21.100</Version>
+		<Version>2022.7.22.100</Version>
 		<VBRuntime>Embed</VBRuntime>
 		<IsPackable>true</IsPackable>
 		<Configurations>Debug;Release;CI_CD</Configurations>

Console/Console.vb

@@ -156,6 +156,14 @@ Namespace CompuMaster
             _Write(text, False)
         End Sub
 
+        ''' <summary>
+        ''' Log message without output to console
+        ''' </summary>
+        ''' <param name="text"></param>
+        Public Shared Sub Log(text As System.Text.StringBuilder)
+            _Write(text, False)
+        End Sub
+
         ''' <summary>
         ''' Log message without output to console
         ''' </summary>
@@ -164,6 +172,14 @@ Namespace CompuMaster
             _WriteDual(text, html, False)
         End Sub
 
+        ''' <summary>
+        ''' Log message without output to console
+        ''' </summary>
+        ''' <param name="text"></param>
+        Public Shared Sub LogDual(text As System.Text.StringBuilder, html As System.Text.StringBuilder)
+            _WriteDual(text, html, False)
+        End Sub
+
         ''' <summary>
         ''' Log message without output to console
         ''' </summary>
@@ -172,6 +188,14 @@ Namespace CompuMaster
             _Write(text & System.Environment.NewLine, False)
         End Sub
 
+        ''' <summary>
+        ''' Log message without output to console
+        ''' </summary>
+        ''' <param name="text"></param>
+        Public Shared Sub LogLine(text As System.Text.StringBuilder)
+            _Write(text, False)
+            _Write(System.Environment.NewLine, False)
+        End Sub
 
         ''' <summary>
         ''' Log message without output to console
@@ -181,6 +205,15 @@ Namespace CompuMaster
             _WriteDual(text & System.Environment.NewLine, html & "<br />", False)
         End Sub
 
+        ''' <summary>
+        ''' Log message without output to console
+        ''' </summary>
+        ''' <param name="text"></param>
+        Public Shared Sub LogLineDual(text As System.Text.StringBuilder, html As System.Text.StringBuilder)
+            _WriteDual(text, html, False)
+            _WriteDual(System.Environment.NewLine, "<br />", False)
+        End Sub
+
         Private Shared IsNewOutputLineAtConsole As Boolean = True
         Private Shared IsNewOutputLineAtLog As Boolean = True
 
@@ -982,7 +1015,7 @@ Namespace CompuMaster
         ''' Write with color setting for status warning messages
         ''' </summary>
         ''' <param name="text"></param>
-        Public Shared Sub WarnLine(text As System.Text.StringBuilder, html As System.Text.StringBuilder)
+        Public Shared Sub WarnLineDual(text As System.Text.StringBuilder, html As System.Text.StringBuilder)
             WarnDual(text, html)
             Warn(System.Environment.NewLine)
         End Sub

ConsoleTest/ConsoleLoggingTests.vb

@@ -404,6 +404,34 @@ Namespace ConsoleTest
             Next
         End Sub
 
+        <Test> Public Sub DualFeatureStringArgsCompletionTest()
+            Dim Text As String = "Plain Text"
+            Dim Html As String = "<h2>HTML code</h2>"
+
+            CompuMaster.Console.WriteDual(Text, Html)
+            CompuMaster.Console.WriteLineDual(Text, Html)
+            CompuMaster.Console.WarnDual(Text, Html)
+            CompuMaster.Console.WarnLineDual(Text, Html)
+            CompuMaster.Console.OkayDual(Text, Html)
+            CompuMaster.Console.OkayLineDual(Text, Html)
+            CompuMaster.Console.LogDual(Text, Html)
+            CompuMaster.Console.LogLineDual(Text, Html)
+        End Sub
+
+        <Test> Public Sub DualFeatureStringBuilderArgsCompletionTest()
+            Dim Text As New System.Text.StringBuilder("Plain Text")
+            Dim Html As New System.Text.StringBuilder("<h2>HTML code</h2>")
+
+            CompuMaster.Console.WriteDual(Text, Html)
+            CompuMaster.Console.WriteLineDual(Text, Html)
+            CompuMaster.Console.WarnDual(Text, Html)
+            CompuMaster.Console.WarnLineDual(Text, Html)
+            CompuMaster.Console.OkayDual(Text, Html)
+            CompuMaster.Console.OkayLineDual(Text, Html)
+            CompuMaster.Console.LogDual(Text, Html)
+            CompuMaster.Console.LogLineDual(Text, Html)
+        End Sub
+
     End Class
 
 End Namespace