求高人解答vb问题 List1.Selected(k)什么意思
PrivateSubCommand1_Click()Dimk%Fork=List1.ListCount-1To0Step-1IfList1.Selected(k)=Tru...
Private Sub Command1_Click()
Dim k%
For k = List1.ListCount - 1 To 0 Step -1
If List1.Selected(k) = True Then
List2.AddItem List1.List(k)
List1.RemoveItem k
End If
Next k
End Sub
Private Sub Command2_Click()
Dim k%
Text1 = "已经选中的城市有:"
For k = 0 To List2.ListCount - 1 Step 1
Text1 = Text1.Text & " " & List2.List(k)
Next k
End Sub
List2.AddItem List1.List(k)
List1.RemoveItem k 一个用为什么List1.List(k) 一个用k 都用List1.List(k)不行么 展开
Dim k%
For k = List1.ListCount - 1 To 0 Step -1
If List1.Selected(k) = True Then
List2.AddItem List1.List(k)
List1.RemoveItem k
End If
Next k
End Sub
Private Sub Command2_Click()
Dim k%
Text1 = "已经选中的城市有:"
For k = 0 To List2.ListCount - 1 Step 1
Text1 = Text1.Text & " " & List2.List(k)
Next k
End Sub
List2.AddItem List1.List(k)
List1.RemoveItem k 一个用为什么List1.List(k) 一个用k 都用List1.List(k)不行么 展开
1个回答
展开全部
1. List1.Selected(k) 就是 List1 中被选中的项
2. List2.AddItem List1.List(k) 是要将 List1 中第 k 项的内容复制到 List2 的末尾(List1.List(k)是字符型)
3. List1.RemoveItem k 是要将 List 中第 k 项移除(k 是数值型)
如果 List1.RemoveItem List1.List(k)是错误的,因为 RemoveItem 的参数是数值型
同样 List2.AddItem k 是错误的,因为 AddItem 的参数是字符型
2. List2.AddItem List1.List(k) 是要将 List1 中第 k 项的内容复制到 List2 的末尾(List1.List(k)是字符型)
3. List1.RemoveItem k 是要将 List 中第 k 项移除(k 是数值型)
如果 List1.RemoveItem List1.List(k)是错误的,因为 RemoveItem 的参数是数值型
同样 List2.AddItem k 是错误的,因为 AddItem 的参数是字符型
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询