HYTOS



Imports System.Threading

Module MThread

    '@brief Listview Get Delegate

    '@author : Gyusu Park

    '@date : 2018-04-09

    '@history:

    Public Delegate Function GetListViewDelegate(ByVal oListView As ListView) As List(Of String)

    '@brief Listview control(load) Invoke 

    '@author : Gyusu Park

    '@date : 2018-04-09

    '@history:

    Public Function GetListViewItems(ByVal oListView As ListView) As List(Of String)

        '  Return the list back To the Delegate

        Dim pathList = New List(Of String)

        For Each item As ListViewItem In oListView.Items

            If item.Checked Then

                pathList.Add(item.Text)

            End If

        Next

        Return pathList

    End Function

    '@brief Progressbar Input Delegate

    '@author : Gyusu Park

    '@date : 2018-04-09

    '@history:

    Public Delegate Sub SetProgressBarDelegate(ByVal oProgressBar As ToolStripProgressBar, ByVal dValue As Double)

    '@brief Progressbar control Invoke 

    '@author : Gyusu Park

    '@date : 2018-04-09

    '@history:

    Public Sub SetProgressbar(ByVal oProgressBar As ToolStripProgressBar, ByVal dValue As Double)

        Try

            If oProgressBar.GetCurrentParent.InvokeRequired Then

                oProgressBar.GetCurrentParent.Invoke(New SetProgressBarDelegate(AddressOf SetProgressbar), oProgressBar, dValue)

            Else

                If dValue >= 100 Then

                    oProgressBar.Value = 99

                Else

                    oProgressBar.Value = dValue

                End If

                oProgressBar.GetCurrentParent.Refresh()

            End If

        Catch ex As Exception

        End Try

    End Sub

    '@brief Listview Add Delegate

    '@author : Gyusu Park

    '@date : 2018-04-10

    '@history:

    Public Delegate Sub SetListBoxItemDelegate(ByVal oListbox As ListBox, ByVal sValue As String)

    '@brief Listview control(add) Invoke 

    '@author : Gyusu Park

    '@date : 2018-04-10

    '@history:

    Public Sub SetListBoxItems(ByVal oListbox As ListBox, ByVal sValue As String)

        Try

            If oListbox.InvokeRequired Then

                oListbox.Invoke(New SetListBoxItemDelegate(AddressOf SetListBoxItems), oListbox, sValue)

            Else

                oListbox.Items.Add(sValue)

                oListbox.SelectedIndex = oListbox.Items.Count - 1

            End If

        Catch ex As Exception

        End Try

    End Sub

    Public Sub SetProgressValue(ByVal sTextBox As ToolStripLabel, ByVal sValue As String)

    End Sub

    '@brief Gridview Add Delegate

    '@author : Gyusu Park

    '@date : 2018-04-10

    '@history:

    Public Delegate Sub SetGridViewDelegate(ByVal oDataGrid As DataGrid, ByVal oDt As DataTable)

    '@brief Gridview control(add) Invoke 

    '@author : Gyusu Park

    '@date : 2018-04-10

    '@history:

    Public Sub SetGridViewInvoke(ByVal oDataGrid As DataGrid, ByVal oDt As DataTable)

        If oDataGrid.InvokeRequired Then

            oDataGrid.Invoke(New SetGridViewDelegate(AddressOf SetGridViewInvoke), oDataGrid, oDt)

        Else

            oDataGrid.DataSource = oDt

        End If

    End Sub

    '@brief TreeView Add Delegate

    '@author : Gyusu Park

    '@date : 2018-04-10

    '@history:

    Public Delegate Function SetTreeViewDelegate(ByVal oTreeView As TreeView, ByVal oNodeCollection As TreeNodeCollection, ByVal sNodeKey As String, ByVal sNodeName As String) As TreeNode

    '@brief TreeView control(add) Invoke 

    '@author : Gyusu Park

    '@date : 2018-04-10

    '@history:

    Public Function SetTreeViewItems(ByVal oTreeView As TreeView, ByVal oNodeCollection As TreeNodeCollection, ByVal sNodeKey As String, ByVal sNodeName As String) As TreeNode

        Dim oResultNode As New TreeNode

        If oTreeView.InvokeRequired Then

            oTreeView.Invoke(New SetTreeViewDelegate(AddressOf SetTreeViewItems), oTreeView, oNodeCollection, sNodeKey, sNodeName)

        Else

            Return oNodeCollection.Add(sNodeKey, sNodeName)

        End If

        Return oResultNode

    End Function

End Module