UC知道来给解释个源代码
来源：百度知道 编辑：UC知道 时间：2024/05/16 19:20:29
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
给解释清楚点，如果弄明白了，一定会追加高分的，谢谢了！
我想知道第二行的：dim x as lnteger 和倒第二行的wend在代码中有什么作用，谢谢了
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
给解释清楚点，如果弄明白了，一定会追加高分的，谢谢了！
我想知道第二行的：dim x as lnteger 和倒第二行的wend在代码中有什么作用，谢谢了
Private Sub CmdRight_Click()
Dim X As Integer
While LstLeft.SelCount > 0 //循环LstLeft控件有多少个列表
For X = 0 to LstLeft.LstCount - 1 //循环第个列表
If LstLeft.Selected(X) = True Then //如果LstLeft的第X行被选中了
LstRight.AddItem LstLeft.List(X) //就把这行的内容添加到LstRight
LstLeft.RemoveItem X //删除LstLeft选中的这一行
Exit For //退出这个循环.
End If
Next X //继续查找还有没其它选中的行.
Wend
End Sub
-----------------
Wend 跟While 是配套的啊..就像for 和next X
dim x as lnteger 就是声明一个变量X 他的类型是interger型的
如果说这还不清楚的话..那....sorry
循环显示lstleft.selcount个LstLeft.Selected(X) 值吧..当然X值应该是变动的..
显示在列表框中...
不知道对不对...