Приложение замораживается при создании datagridview

Question

Я использую следующий код для чтения файла Excel в datagridview (EquipmentDataGrid). В первый раз, когда он создает datagridview, он отлично работает, однако, если я вернусь к закладке (и, таким образом, запустив код), она зависнет и займет около 10 минут, чтобы пользовательский интерфейс стал отзывчивым. Я не могу понять, в чем проблема, поскольку он всегда отлично работает с первого раза. Я ОЧЕНЬ новичок в программировании (только началось около 1 недели назад из-за отсутствия опыта), так что извините, если это простое исправление.

Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged 

    If TabControl1.SelectedTab Is Equipment Then 
     Dim xlApp As Excel.Application 
     Dim xLBook As Excel.Workbook 
     Dim xLSheet As Excel.Worksheet 
     Dim x As Integer 

     EquipmentDataGrid.Rows.Clear() 
     EquipmentDataGrid.Columns.Clear() 

     xlApp = New Excel.Application 


     xLBook = xlApp.Workbooks.Open(My.Settings.SharefilePath + "Equipment Moves\EquipmentLog") 
     xLSheet = xLBook.Worksheets("Summary") 

     EquipmentDataGrid.ColumnCount = 5 
     EquipmentDataGrid.Columns(0).Name = "Date" 
     EquipmentDataGrid.Columns(1).Name = "Equipment Number" 
     EquipmentDataGrid.Columns(2).Name = "Description" 
     EquipmentDataGrid.Columns(3).Name = "Hours" 
     EquipmentDataGrid.Columns(4).Name = "Location" 


     For x = 1 To xLSheet.Range("F1").Value 
      EquipmentDataGrid.Rows.Add() 
      EquipmentDataGrid.Item(0, x - 1).Value = xLSheet.Cells(1 + x, 1).Text 
      EquipmentDataGrid.Item(1, x - 1).Value = xLSheet.Cells(1 + x, 2).value 
      EquipmentDataGrid.Item(2, x - 1).Value = xLSheet.Cells(1 + x, 5).value 
      EquipmentDataGrid.Item(3, x - 1).Value = xLSheet.Cells(1 + x, 3).value 
      EquipmentDataGrid.Item(4, x - 1).Value = xLSheet.Cells(1 + x, 4).value 
     Next 
     xLBook.Saved = True 
     xLBook.Close() 
     xlApp.Quit() 
     System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp) 
     System.Runtime.InteropServices.Marshal.ReleaseComObject(xLBook) 
     System.Runtime.InteropServices.Marshal.ReleaseComObject(xLSheet) 

     x = Nothing 
     xLBook = Nothing 
     xLSheet = Nothing 
     xlApp = Nothing 

     GC.Collect() 
     GC.WaitForPendingFinalizers() 
     GC.Collect() 
    End If 
End Sub 

Answer 1

Если проблема только запускается после первого запуска, мое предположение было бы, что очистка сетки является проблемой. Как предлагает JabberWocky, придерживайте точку останова перед линиями, очищающими сетку, и один после этого, чтобы вы могли понять, как долго этот шаг.

Если это проблема, похоже, не так много. Вы можете обернуть линии выравнивания в некоторой логике, чтобы они не запускались, если данные в файле Excel соответствуют тому, что находится в вашей сетке, но это не поможет, если есть новые/измененные данные для загрузки.