主题：这句代码效率好低啊.

 

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.Images.LargeSize = New Size(150,110)

lvw.Rows.Clear()

lvw.Images.Clear()

lvw.View = ViewMode.LargeIcon

lvw.AllowDrag = True

lvw.AllowDrop = True

For Each dr As DataRow In DataTables("花型基础资料").Select("花号 Like '*" & e.Form.Controls("TextBox1").Text & "'")

    Dim Key As String = dr("花型图片")

    Dim vr As  WinForm.ListViewRow = lvw.Rows.Add()

    vr.Text = dr("花号")

    vr.Name = dr("花号")

    vr.ImageKey = Key

    lvw.Images.AddLargeImage(Key, Key)

Next

 

 

老师,能有改进的办法吗?执行完整个过程,用时差不多两分钟.我都以为死机了,郁闷死.

加了暂停和恢复绘制,还是不管用.

原来只有100行左右的时候是好的,现在加到了一万行,就跑不动了.我的电脑也是老的笔记本,这也有关系吧.