下面是我编写的关于删除列表框内容的代码。

Private Sub Command1_Click()
Dim a As Integer
For a = 0 To List2.ListIndex
If List2.Selected(a) = True Then
List2.RemoveItem a
End If
Next a
End Sub

这段代码运行后，只能每点击一次，才能删除一次，那位高手能帮我加点东西，使得删除上一个内容后，附近的一项内容直接被选中而可能够继续删除。谢谢

设置ListIndex

我设过了
还存在一个问题，如果删除了列表框中的最后一项，就会出现错误，我不知道怎么处理

你巨幽默，我这里就没错嘛

把完整的代码给我看一下啊

就是你给的这代码呀……改都没改

[CODE]VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 615
Left = 2400
TabIndex = 1
Top = 1080
Width = 1695
End
Begin VB.ListBox List2
Height = 1815
ItemData = "Form1.frx":0000
Left = 360
List = "Form1.frx":0013
TabIndex = 0
Top = 600
Width = 1575
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a As Integer
For a = 0 To List2.ListIndex
If List2.Selected(a) = True Then
List2.RemoveItem a
End If
Next a
End Sub[/CODE]

不好使

我觉得很好使啊

不明白？删除的话一般都是倒叙……