高手请进，多线程加载数据的问题！！

[LYDF4151]

使用多线程加载listview1数据时，窗体其他控件不可用,同样的方法加载Datagrid其他控件可以正常使用。
dim thr as new system.threading.threadstart(addressof aa)
dim th as new system.threading.thread(thr)
thr.start

Public Sub lvdata()
Dim cn1 As New SqlClient.SqlConnection
Dim adapter1 As New SqlClient.SqlDataAdapter

If cn1.State = ConnectionState.Closed Then
cn1.ConnectionString = "server=lewis;database=demo1;uid=sa;pwd="
cn1.Open()

End If

adapter1.SelectCommand = New SqlClient.SqlCommand
adapter1.SelectCommand.Connection = cn1
adapter1.SelectCommand.CommandType = CommandType.Text
adapter1.SelectCommand.CommandText = "select top 10000 * from tblbomdetails"

adapter1.Fill(ds1)

lv.Invoke(New bb(AddressOf aa), New Object() {})


End Sub

Private Delegate Sub bb()

Private Sub aa()
For i As Int16 = 0 To ds1.Tables(0).Rows.Count - 1
lv.Items.Add(ds1.Tables(0).Rows(i)(0).ToString)
Next
End Sub

[LYDF4151]

难道没有人知道吗？

[boblaw]

使用lv.Invoke之後，aa過程會在UI線程執行，而你有上萬條記錄要刷新，當然會出現界面無響應的問題。

[LYDF4151]

谢谢楼上的回答，我想问的是为什么委托的代码如果是 DATAGRID1.DATASOURCE=DS1.TABLES(0)时，不会窗体假死。

[LYDF4151]

boblaw:
我要用线程实现这个功能，而且窗体不假死，怎么搞？

[sunyou]

窗口进程负责界面空间的控制，其余线程不能直接操作界面控件，否则界面会异常；
使用BeginInvoke;EndInvoke在工作线程中处理界面－这才是安全的做法。
具体参考MSDN

[hixiaosheng]

路过，学习。

[boblaw]

對ListView在加載數據時使用BeginUpdate和EndUpdate能夠大量提高速度。

    Private Sub aa() 
        lv.BeginUpdate();
        For i As Int16 = 0 To ds1.Tables(0).Rows.Count - 1 
            lv.Items.Add(ds1.Tables(0).Rows(i)(0).ToString) 
        Next 
        lv.EndUpdate();
    End Sub