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