Merge pull request #243 from IDEMSInternational/master

update
Vitalis95 · May 23, 2024 · 0a4095c · 0a4095c
2 parents 7b974a2 + f5fc35a
commit 0a4095c
Show file tree

Hide file tree

Showing 9 changed files with 1,014 additions and 764 deletions.
diff --git a/instat/Model/Output/clsOutputLogger.vb b/instat/Model/Output/clsOutputLogger.vb
@@ -71,52 +71,51 @@ Public Class clsOutputLogger
     End Property
 
     Public Sub AddOutput(strScript As String, strOutput As String, bAsFile As Boolean, bDisplayOutputInExternalViewer As Boolean)
-        'Note this always takes the last script added as corresponding script
+        ' Note this always takes the last script added as corresponding script
         If String.IsNullOrWhiteSpace(strScript) Then
             Throw New Exception("Cannot find script to attach output to.")
             Exit Sub
         End If
 
-        'add the R script as an output element
+        ' Add the R script as an output element
         Dim rScriptElement As New clsOutputElement
         rScriptElement.SetContent(strScript, OutputType.Script, "")
         _outputElements.Add(rScriptElement)
-        'raise event for output pages
+        ' Raise event for output pages
         RaiseEvent NewOutputAdded(rScriptElement, False)
 
-
-        If Not String.IsNullOrEmpty(strOutput) Then
-            Dim outputElement As New clsOutputElement
-            Dim outputType As OutputType
-            If bAsFile Then
-                Dim strFileExtension As String = Path.GetExtension(strOutput).ToLower
-                Select Case strFileExtension
-                    Case ".png"
-                        outputType = OutputType.ImageOutput
-                    Case ".html"
-                        outputType = OutputType.HtmlOutput
-                    Case ".txt"
-                        outputType = OutputType.TextOutput
-                    Case Else
-                        MessageBox.Show("The file type to be added is currently not suported",
-                                    "Developer Error",
-                                    MessageBoxButtons.OK,
-                                    MessageBoxIcon.Error)
-                        Exit Sub
-                End Select
-            Else
-                outputType = OutputType.TextOutput
+        ' Split the strOutput into an array of lines, removing empty entries
+        Dim arrFilesPaths() As String = strOutput.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
+
+        For Each output In arrFilesPaths
+            If Not String.IsNullOrEmpty(output) Then
+                Dim outputElement As New clsOutputElement
+                Dim outputType As OutputType
+
+                If bAsFile Then
+                    Dim strFileExtension As String = Path.GetExtension(output).ToLower
+                    Select Case strFileExtension
+                        Case ".png"
+                            outputType = OutputType.ImageOutput
+                        Case ".html"
+                            outputType = OutputType.HtmlOutput
+                        Case ".txt"
+                            outputType = OutputType.TextOutput
+                        Case Else
+                            MessageBox.Show("The file type to be added is currently not supported", "Developer Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                            Exit Sub
+                    End Select
+                Else
+                    outputType = OutputType.TextOutput
+                End If
+
+                ' Add the output with its R script as another output element
+                outputElement.SetContent("", outputType, output)
+                _outputElements.Add(outputElement)
+                ' Raise event for output pages
+                RaiseEvent NewOutputAdded(outputElement, bDisplayOutputInExternalViewer)
             End If
-
-            'add the output with it's R script as another output element
-            outputElement.SetContent("", outputType, strOutput)
-            '_outputElements.Add(outputElement)
-            'raise event for output pages
-            RaiseEvent NewOutputAdded(outputElement, bDisplayOutputInExternalViewer)
-
-        End If
-
-
+        Next
 
     End Sub
 

diff --git a/instat/UserControl/ucrOutputPage.vb b/instat/UserControl/ucrOutputPage.vb
@@ -22,6 +22,10 @@ Imports RInsightF461
 ''' </summary>
 Public Class ucrOutputPage
     Private _checkBoxes As List(Of CheckBox)
+
+    ''' <summary> lastCheckedBox used to store a reference to a CheckBox control. </summary>
+    Private lastCheckedBox As CheckBox = Nothing
+
     Private _bCanReOrder As Boolean
     Private _bCanRename As Boolean
     Private _bCanDelete As Boolean
@@ -115,6 +119,15 @@ Public Class ucrOutputPage
         Next
     End Sub
 
+    ''' <summary>
+    ''' Selects all check boxes on the page
+    ''' </summary>
+    Public Sub SelectAllCheckBoxes()
+        For Each checkbox In _checkBoxes
+            checkbox.Checked = True
+        Next
+    End Sub
+
     ''' <summary>
     ''' Clears all outputs on the page
     ''' </summary>
@@ -215,8 +228,6 @@ Public Class ucrOutputPage
         End If
     End Sub
 
-
-
     Private Sub AddNewTextOutput(outputElement As clsOutputElement)
         Dim panel As Panel = AddElementPanel(outputElement)
 
@@ -377,12 +388,11 @@ Public Class ucrOutputPage
         }
         panel.Controls.Add(checkBox)
         _checkBoxes.Add(checkBox)
+        AddHandler checkBox.CheckedChanged, AddressOf CheckBox_CheckedChanged
         AddHandler checkBox.Click, AddressOf checkButton_Click
         AddHandler checkBox.MouseLeave, AddressOf panelContents_MouseLeave
     End Sub
 
-
-
     ''' <summary>
     ''' Copies selected elements to clipboard
     ''' </summary>
@@ -478,7 +488,6 @@ Public Class ucrOutputPage
         Next
     End Sub
 
-
     Private Sub SetRichTextBoxHeight(richTextBox As RichTextBox)
         richTextBox.Height = (richTextBox.GetLineFromCharIndex(richTextBox.Text.Length) + 1) * (richTextBox.Font.Height + richTextBox.Margin.Vertical) + 5
     End Sub
@@ -487,6 +496,41 @@ Public Class ucrOutputPage
         pictureBox.Height = pictureBox.Width / (pictureBox.Image.Width / pictureBox.Image.Height)
     End Sub
 
+    Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs)
+        Dim currentBox As CheckBox = DirectCast(sender, CheckBox)
+
+        If lastCheckedBox IsNot Nothing AndAlso Control.ModifierKeys = Keys.Shift Then
+            Dim startIndex As Integer = _checkBoxes.IndexOf(lastCheckedBox)
+            Dim endIndex As Integer = _checkBoxes.IndexOf(currentBox)
+
+            ' Toggle check state for checkboxes between startIndex and endIndex
+            For i As Integer = Math.Min(startIndex, endIndex) To Math.Max(startIndex, endIndex)
+                _checkBoxes(i).Checked = currentBox.Checked
+            Next
+        End If
+
+        lastCheckedBox = currentBox
+    End Sub
+
+    Private Sub CheckBox_MouseDown(sender As Object, e As MouseEventArgs)
+        Dim currentBox As CheckBox = DirectCast(sender, CheckBox)
+
+        If e.Button = MouseButtons.Left AndAlso Control.ModifierKeys = Keys.Shift Then
+            ' Deselect all checkboxes between lastCheckedBox and currentBox
+            Dim startIndex As Integer = _checkBoxes.IndexOf(lastCheckedBox)
+            Dim endIndex As Integer = _checkBoxes.IndexOf(currentBox)
+
+            For i As Integer = Math.Min(startIndex, endIndex) + 1 To Math.Max(startIndex, endIndex) - 1
+                _checkBoxes(i).Checked = False
+            Next
+        ElseIf currentBox.Checked AndAlso Not Control.ModifierKeys = Keys.Shift Then
+            ' Deselect the current checkbox if already checked without Shift key
+            currentBox.Checked = False
+        End If
+
+        lastCheckedBox = currentBox
+    End Sub
+
     Private Sub checkButton_Click(sender As Object, e As EventArgs)
         RaiseEvent RefreshContextButtons()
     End Sub

diff --git a/instat/UserControl/ucrOutputPages.resx b/instat/UserControl/ucrOutputPages.resx
@@ -124,7 +124,7 @@
   <data name="tdbAddToExisting.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -139,7 +139,7 @@
   <data name="tbAddToNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -154,7 +154,7 @@
   <data name="tbCopy.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -169,7 +169,7 @@
   <data name="tbMoveUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -184,7 +184,7 @@
   <data name="tbMoveDown.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -199,7 +199,7 @@
   <data name="tbDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -214,7 +214,7 @@
   <data name="tbRename.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -229,7 +229,7 @@
   <data name="tbSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
@@ -244,7 +244,7 @@
   <data name="tbHelp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
+        YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
         YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
         0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
         bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc

diff --git a/instat/UserControl/ucrOutputPages.vb b/instat/UserControl/ucrOutputPages.vb
@@ -25,6 +25,7 @@ Public Class ucrOutputPages
     Private _outputLogger As clsOutputLogger
     Private _selectedOutputPage As ucrOutputPage
     Private _strSaveDirectory As String
+    Private checkBoxSelectAll As New CheckBox()
     Public Sub New()
 
         ' This call is required by the designer.
@@ -38,6 +39,10 @@ Public Class ucrOutputPages
         EnableDisableTopButtons()
     End Sub
 
+    Private Sub ucrOutputPages_Load(sender As Object, e As EventArgs) Handles Me.Load
+        AddSelectAllCheckBoxToToolStripControl()
+    End Sub
+
     ''' <summary>
     ''' Holds options.
     ''' ToDo InstatOptions should be able to be accessed from anywhere
@@ -84,6 +89,7 @@ Public Class ucrOutputPages
 
     Private Sub AddNewOutput(outputElement As clsOutputElement, bDisplayOutputInExternalViewer As Boolean)
         ucrMainOutputPage.AddNewOutput(outputElement, bDisplayOutputInExternalViewer)
+        UpdateSelectAllCheckBoxText()
     End Sub
 
     Private Sub AddNewOutputToTab(outputElement As clsOutputElement, tabName As String)
@@ -153,6 +159,7 @@ Public Class ucrOutputPages
             tbMoveUp.Enabled = False
         End If
         tbRename.Enabled = _selectedOutputPage.BCanRename
+        UpdateSelectAllCheckBoxText()
     End Sub
 
     Private Sub RefreshPage()
@@ -213,6 +220,7 @@ Public Class ucrOutputPages
             _outputLogger.AddOutputToFilteredList(element.Clone, strTabName)
         Next
         _selectedOutputPage.ClearAllCheckBoxes()
+        UpdateSelectAllCheckBoxText()
     End Sub
 
     Private Sub tbCopy_Click(sender As Object, e As EventArgs) Handles tbCopy.Click
@@ -239,6 +247,7 @@ Public Class ucrOutputPages
         Else
             RefreshPage()
         End If
+        UpdateSelectAllCheckBoxText()
     End Sub
 
     ''' <summary>
@@ -303,4 +312,74 @@ Public Class ucrOutputPages
             End If
         Next
     End Sub
+
+    Private Sub AddSelectAllCheckBoxToToolStripControl()
+        ' Create a ToolStripControlHost to host the CheckBox
+        Dim checkBoxHost As ToolStripControlHost = New ToolStripControlHost(checkBoxSelectAll)
+
+        ' Insert the CheckBox host at the beginning of tsButtons items
+        tsButtons.Items.Insert(0, checkBoxHost)
+
+        ' Create a ToolTip for the checkBoxSelectAll CheckBox
+        Dim ttcheckBoxSelectAll As New ToolTip
+        ttcheckBoxSelectAll.SetToolTip(checkBoxSelectAll, "Toggle selection for all elements")
+
+        ' Add a Click event handler to the checkBoxSelectAll CheckBox
+        AddHandler checkBoxSelectAll.Click, AddressOf checkBoxSelectAll_Click
+    End Sub
+
+    ''' <summary>
+    ''' Updates the text and state of checkBoxSelectAll based on selected elements and output count.
+    ''' </summary>
+    Private Sub UpdateSelectAllCheckBoxText()
+        ' Check if _outputLogger is initialized
+        If _outputLogger Is Nothing Then
+            Exit Sub ' Exit the sub if logger is not initialized
+        End If
+
+        ' Variable to hold the count of output elements
+        Dim iCountOutputElements As Integer = 0
+
+        ' Determine the count of output elements based on the selected tab
+        If SelectedTab() = "Main" Then
+            iCountOutputElements = _outputLogger.OutputElements.Count
+        Else
+            iCountOutputElements = _outputLogger.GetFilteredList(SelectedTab).Output.Count
+        End If
+
+        ' Enable or disable checkBoxSelectAll based on the count of output elements
+        checkBoxSelectAll.Enabled = iCountOutputElements > 0
+
+        ' Get the count of selected elements
+        Dim iSelectedElements = _selectedOutputPage.SelectedElements.Count
+
+        ' Determine the text and check state of checkBoxSelectAll based on selected and total elements
+        Select Case True
+            Case iSelectedElements > 0 AndAlso iCountOutputElements > iSelectedElements
+                ' Indeterminate state when some but not all elements are selected
+                checkBoxSelectAll.Text = $"{iSelectedElements} item(s)"
+                checkBoxSelectAll.CheckState = CheckState.Indeterminate
+            Case iSelectedElements > 0 AndAlso iCountOutputElements = iSelectedElements
+                ' All elements selected
+                checkBoxSelectAll.Text = "Deselect All"
+                checkBoxSelectAll.CheckState = CheckState.Checked
+            Case Else
+                ' No elements selected
+                checkBoxSelectAll.Text = "Select All"
+                checkBoxSelectAll.CheckState = CheckState.Unchecked
+        End Select
+    End Sub
+
+    Private Sub checkBoxSelectAll_Click(sender As Object, e As EventArgs)
+        ' Handle CheckBox checked changed event here
+        Dim checkBoxSelectAll As CheckBox = TryCast(sender, CheckBox)
+
+        If checkBoxSelectAll.Checked Then
+            _selectedOutputPage.SelectAllCheckBoxes()
+        Else
+            _selectedOutputPage.ClearAllCheckBoxes()
+        End If
+        EnableDisableTopButtons()
+    End Sub
+
 End Class