VB while 解释一下

[futurepi]

Private Sub CmdRight_Click()
　Dim X As Integer
　While LstLeft.SelCount > 0
　　For X = 0 to LstLeft.LstCount - 1
　　　If LstLeft.Selected(X) = True Then
　　　　LstRight.AddItem LstLeft.List(X)
　　　　LstLeft.RemoveItem X
　　　　Exit For
　　　End If
　　Next X
　Wend
End Sub

While LstLeft.SelCount > 0
　　For X = 0 to LstLeft.LstCount - 1这句是什么意思啊，

[yachong]

For X = LstLeft.LstCount - 1 To 0 Step -1
If LstLeft.Selected(X) = True Then
LstRight.AddItem LstLeft.List(X), 0
LstLeft.RemoveItem X
Exit For
End If
Next X
这样就行了，外层的while循环没必要。

删除的时候从后向前删，可以保证没有漏删的，从而可以省略掉外层的while。

[贝隆]

楼主在侮辱各位的智商

[zydscaline]

LstLeft.LstCount 应该是某一个文件的记录数吧（LstLft的吧）

因为VB的什么（我不记得术语是什么了《郁闷）类似行数，列数，记录个数之类的，它是以0开头，例如我们说的123456这六个记录，如果VB来表示的语就是012345这六个记录了，所以一些数据要从0开始做循环，从记录数-1结束，


反正就是这个意思，我没有表达清楚，你再查查学VB的基础书吧