Dim MonThread As New Thread(AddressOf Rangeloops)
Public Delegate Sub Callback(ByVal s As Control, ByVal v As Object)
Dim Thread2 As New Thread(AddressOf Clearalltxtboxthread)
Private Sub UpdateUI(ByVal this_Control As Control, ByVal vRange As Object)
this_Control.Text = CType(vRange, String)
End Sub
Private Sub TreeView_Insp_Records_AfterSelect(sender As System.Object, e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView_Insp_Records.AfterSelect
Dim thread As New Thread(Sub() ExecuteWork(e.Node.Text))
thread.Start()
Dim thread2 As New Thread(Sub() Clearalltxtboxthread(String.Empty))
thread2.Start()
Ping_network()
End Sub
Private Sub Clearalltxtboxthread(ByVal text As String)
txtNodeTextSearch.Invoke(New Callback(AddressOf UpdateUI), txtNodeTextSearch, String.Empty)
TextBox_RDIMS.Invoke(New Callback(AddressOf UpdateUI), TextBox_RDIMS, String.Empty)
TextBox_RSIG.Invoke(New Callback(AddressOf UpdateUI), TextBox_RSIG, String.Empty)
TextBox_LocationNAME.Invoke(New Callback(AddressOf UpdateUI), TextBox_LocationNAME, String.Empty)
TextBox_Railway.Invoke(New Callback(AddressOf UpdateUI), TextBox_Railway, String.Empty)
TextBox_Type.Invoke(New Callback(AddressOf UpdateUI), TextBox_Type, String.Empty)
TextBox_ABC.Invoke(New Callback(AddressOf UpdateUI), TextBox_ABC, String.Empty)
TextBox_issue.Invoke(New Callback(AddressOf UpdateUI), TextBox_issue, String.Empty)
TextBox_InspFROM.Invoke(New Callback(AddressOf UpdateUI), TextBox_issue, String.Empty)
TextBox_InspTO.Invoke(New Callback(AddressOf UpdateUI), TextBox_InspTO, String.Empty)
TextBox_Total_Insp.Invoke(New Callback(AddressOf UpdateUI), TextBox_Total_Insp, String.Empty)
TextBox_Date.Invoke(New Callback(AddressOf UpdateUI), TextBox_Date, String.Empty)
TextBox_Year.Invoke(New Callback(AddressOf UpdateUI), TextBox_Year, String.Empty)
TextBox_Lead_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_Lead_RSI, String.Empty)
TextBox_2nd_RSI.Invoke(New Callback(AddressOf UpdateUI), TextBox_2nd_RSI, String.Empty)
TextBox_Letterofconcern.Invoke(New Callback(AddressOf UpdateUI), TextBox_Letterofconcern, String.Empty)
TextBox_Prenotice.Invoke(New Callback(AddressOf UpdateUI), TextBox_Prenotice, String.Empty)
TextBox_notice_order.Invoke(New Callback(AddressOf UpdateUI), TextBox_notice_order, String.Empty)
TextBox_AMP.Invoke(New Callback(AddressOf UpdateUI), TextBox_AMP, String.Empty)
TextBox_NAIAT.Invoke(New Callback(AddressOf UpdateUI), TextBox_NAIAT, String.Empty)
TextBox_letterofwarning.Invoke(New Callback(AddressOf UpdateUI), TextBox_letterofwarning, String.Empty)
TextBox_Comments.Invoke(New Callback(AddressOf UpdateUI), TextBox_Comments, String.Empty)
TextBox_selectednodes.Invoke(New Callback(AddressOf UpdateUI), TextBox_selectednodes, String.Empty)
TextBox_insp_type.Invoke(New Callback(AddressOf UpdateUI), TextBox_insp_type, String.Empty)
End Sub