當在2.0使用，我得到了錯誤，跨線程操作無效：控制「ListView1的」從比它是在

Question

創建線程的線程上，請幫我把編碼轉換訪問...

Public Sub FillListView(ByVal lstbox As ListView, ByVal colwidth As Integer, ByVal dset As DataSet) 
    Dim c As DataColumn 
    For Each c In dset.Tables(0).Columns 
     Dim h As New ColumnHeader 
     h.Text = c.ColumnName 
     h.Width = colwidth 
     ' lstbox.Invoke(
     lstbox.Columns.Add(h) ''Problem here 
     ') 
    Next 

    Dim dt As DataTable = dset.Tables(0) 
    Dim str(dset.Tables(0).Columns.Count) As String 

    Dim rr As DataRow 
    For Each rr In dt.Rows 
     For col As Integer = 0 To dset.Tables(0).Columns.Count - 1 
      str(col) = rr(col).ToString() 
     Next 
     Dim ii As New ListViewItem(str) 
     lstbox.Items.Add(ii) ''Problem here 
    Next 
End Sub 

Answer 1

大概你必須從UI線程以外的線程調用它。爲了修復它，你需要調用回UI線程。這裏是你可以做的一種方式：

Public Delegate Sub FillListView(ByVal lstbox As ListView, ByVal colwidth As Integer, ByVal dset As DataSet) 

Public Sub FillListView(ByVal lstbox As ListView, ByVal colwidth As Integer, ByVal dset As DataSet) 

    ' Invoke back to the UI thread, if necessary 
    If lstbox.InvokeRequired Then 
     lstbox.Invoke(New FillListViewDelegate(AddressOf FillListView), listbox, colWidth, dset)) 
     Exit Sub 
    End If 

    Dim c As DataColumn 
    For Each c In dset.Tables(0).Columns 
     Dim h As New ColumnHeader 
     h.Text = c.ColumnName 
     h.Width = colwidth 
     lstbox.Columns.Add(h) 
    Next 

    Dim dt As DataTable = dset.Tables(0) 
    Dim str(dset.Tables(0).Columns.Count) As String 

    Dim rr As DataRow 
    For Each rr In dt.Rows 
     For col As Integer = 0 To dset.Tables(0).Columns.Count - 1 
      str(col) = rr(col).ToString() 
     Next 
     Dim ii As New ListViewItem(str) 
     lstbox.Items.Add(ii) 
    Next 
End Sub