VB.net跨线程操作无效

Question

我想我最好弄清楚如何去这个错误我感到reciving：

跨线程操作无效：控制“ListView1的”从访问线程不是它创建的线程。

我有一个背景工作即是从Excel工作表中提取单元格，并将它们放入列表视图。

在形式负载我这样做：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Call createListView() 
End Sub 

Private Sub createListView() 
    ListView1.View = View.Details 
    ListView1.GridLines = True 
    ListView1.FullRowSelect = True 
    ListView1.HideSelection = False 
    ListView1.MultiSelect = False 

    ListView1.Columns.Add("Column Name", 150) 
    ListView1.Columns.Add("Column Number", 150) 
End Sub 

然后我所呼叫的用户之后BackgroundWorker的选择了一个文件：

If openFileDialog1.ShowDialog() = DialogResult.OK Then 
     stFilePathAndName = openFileDialog1.FileName 
     ProgressBar1.Style = ProgressBarStyle.Marquee 
     BGWxml2excel = New System.ComponentModel.BackgroundWorker 
     BGWxml2excel.WorkerReportsProgress = True 
     BGWxml2excel.WorkerSupportsCancellation = True 
     BGWxml2excel.RunWorkerAsync() 
End If 

然后我与得到的Excel列计数和值，使得处理我可以用它填充ListView：

Private Sub BGWxml2excel_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGWxml2excel.DoWork 
    Call xml2Excel(stFilePathAndName) 
End Sub 

Private Sub xml2Excel(ByRef theDirOfFile As String) 
    Dim xlsApp As Excel.Application 
    Dim xlsWB As Excel.Workbook 
    Dim xlsSheet As Excel.Worksheet 
    Dim columnCount As Integer = 0 

    xlsApp = New Excel.Application 
    xlsApp.Visible = False 
    xlsApp.DisplayAlerts = False 

    xlsWB = xlsApp.Workbooks.OpenXML(Filename:=theDirOfFile, LoadOption:=XlXmlLoadOption.xlXmlLoadImportToList) 
    xlsSheet = xlsWB.Worksheets(1) 
    xlsSheet.Select() 
    columnCount = xlsSheet.UsedRange.Columns.Count 

    Dim lvi As New ListViewItem 
    Dim x As Integer = 1 

    Do Until x = columnCount + 1 
     lvi.Text = xlsSheet.Cells(1, x).value 
     lvi.SubItems.Add(x) 

     ListView1.Items.Add(lvi) 
     x = x + 1 
    Loop 

    'xlsSheet.SaveAs("c:\_tempExcelFile.xlsx", FileFormat:=51, CreateBackup:=False) 
    xlsWB.Close() 
    xlsApp.Quit()  
End Sub 

的错误是在这条线：

ListView1.Items.Add(lvi) 

我该怎么办才能纠正这个奇怪的proglem？

谢谢！

大卫

Answer 1

见接受的答案来this StackOverlow question。

Answer 2

的问题是，只有UI线程可以更新UI。因为您正在向工作人员添加ListView项目，所以您会收到此例外情况。

为了解决这个问题，你可以将你想要添加到列表视图中的项目存储到一个共享变量中（UI线程和你的工作人员都可以访问的项目），在你的表单上放置一个计时器（所以UI线程命中tick事件处理程序）并在tick处理程序中添加项目。

淡化例如（在C＃中，因为它的速度快了很多对我来说:-)）：

private List<ListViewItem> _itemsToBeAdded = new List<ListViewItem>(); 
private readonly object _lockObject = new object(); 

// worker method: 
private void xml2Excel(string input) 
{ 
    // do some processing... 
    ListViewItem lvi = new ListViewItem(); 
    // set up lvi 

    lock(_lockObject) 
    { 
     _itemsToBeAdded.Add(lvi); 
    } 
} 

private void timer1_Tick(object sender, EventArgs e) 
{ 
    lock(_lockObject) 
    { 
     foreach(var item in _itemsToBeAdded) 
     { 
      ListView1.Add(item); 
     } 
    } 
} 

Answer 3

只有UI线程才能访问UI。你的后台工作人员在另一个线程上。你需要使用.InvokeRequired/.Invoke来回到UI线程。

http://msdn.microsoft.com/en-us/library/ms171728(v=vs.80).aspx

事件处理程序对后台工作人员会在主线程上得到提升;你可以安全地改变那里的用户界面。但实际上在后台线程中，您必须调用。像这样：

Delegate Sub SetTextCallback([text] As String) 

Private Sub SetText(ByVal [text] As String) 

     ' InvokeRequired required compares the thread ID of the 
     ' calling thread to the thread ID of the creating thread. 
     ' If these threads are different, it returns true. 
     If Me.textBox1.InvokeRequired Then 
      Dim d As New SetTextCallback(AddressOf SetText) 
      Me.Invoke(d, New Object() {[text]}) 
     Else 
      Me.textBox1.Text = [text] 
     End If 
    End Sub