＋设为首页 ＋添加到收藏夹
如果无限制的向listbox添加记录，会不会影响软件的运行，比如2万条，
你们怎么处理着这样的问题？
能不能限制listbox记录的条数，比如100条，当添加101条的时候，
第一条自动删掉，怎么实现？
Private Sub Command1_Click()
If List1.ListCount > 100 Then
For i = 0 To List1.ListCount - 100
List1.RemoveItem (i)
Next
End If
End Sub
Private Sub Form_Load()
For i = 1 To 102
List1.AddItem i
Next
End Sub
当数据超过100条时，每增加一条时执行下面过程
If List1.ListCount > 100 Then
For i = 0 To List1.ListCount - 100
List1.RemoveItem (i)
Next
End If
up
最多加32735条数据。
