Question

InvalidArgument=“0”的值对于“index”无效。

Private Sub 图片按钮4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 图片按钮4.Click
Dim I
For I = ListView1.SelectedItems(0).Index To ListView1.Items.Count - 2
Pass(I) = Pass(I + 1)
YinS(I) = YinS(I + 1)
Next
ListView1.SelectedItems(0).Remove()
WriteQQData()
End Sub

Answer 1

点击这个按钮的之前，请先确保你有选中ListView1中的任何一项。
或者在你的函数第一行插入以下代码：
If ListView1.SelectedItems.Count = 0 Then
Return
End If