知道list的内容如何得到item值 ..

Question

List1.RemoveItem ? 只知道内容如何得到后面这个 ...?  可以这样吗 ??
      我想自动添加 又自动删除

Answer 1

Option Explicit
Dim i As Long, j As Long
Private Sub Command1_Click()
        i = i + 1
        List1.AddItem i
        j = i
End SubPrivate Sub Command2_Click()
        j = j - 1
        List1.RemoveItem (j - 1)
End Sub

Answer 2

上面:List1.RemoveItem (j - 1)改为List1.RemoveItem (j)

Answer 3

'还是这样比较好
'仅供参考
Option Explicit
Dim i As Long
Private Sub Command1_Click()
        i = i + 1
        List1.AddItem i
End SubPrivate Sub Command2_Click()
        On Error Resume Next
        List1.RemoveItem (List1.ListCount - 1)
End Sub