一窗體,一按鈕, 一Listview,報表式,一列。Private Sub Command1_Click() Me.Enabled = False Dim i As Long For i = 1 To 10000 ListView1.ListItems.Add , , CStr(i) ListView1.ListItems(i).Selected = True ListView1.SelectedItem.EnsureVisible DoEvents Next Me.Enabled = True End Sub
在你的子类化过程中不处理 相关消息 就可以了
希望高手看看这个问题,分一起给!
http://community.csdn.net/Expert/topic/4619/4620000.xml?temp=.4568598
一Listview,報表式,一列。Private Sub Command1_Click()
Me.Enabled = False
Dim i As Long
For i = 1 To 10000
ListView1.ListItems.Add , , CStr(i)
ListView1.ListItems(i).Selected = True
ListView1.SelectedItem.EnsureVisible
DoEvents
Next
Me.Enabled = True
End Sub