UC知道vb这些代码什么意思
来源：百度知道 编辑：UC知道 时间：2024/06/14 17:45:46
Private Sub Form_Load()
List1.AddItem "性别"
List1.AddItem "班号"
List1.AddItem "简历"
List2.AddItem "学号"
List2.AddItem "姓名"
List2.AddItem "年龄"
List2.AddItem "照片"
End Sub
Private Sub C1_Click()
List2.AddItem List1.Text 这句话是什么意思，list1.text是什么属性，为什么这list2.additem直接连接list1.text
List1.RemoveItem List1.ListIndex 这句话是什么意思，这里的俩个属性是什么意思，这里为什么也可以直接连接
End Sub
Private Sub C2_Click()
Dim k As Integer 为什么要定义K
k = 0
While (k < List2.ListCount) 这里的listcount是什么意思，为什么k要大于他
If List2.Selected(k) = True Then 这里selected的属性是什么意思。为什么判断
List1.AddItem List2.Text
List2.RemoveItem k 这句话又是什么意思
End If
k = k + 1 这里为什么让k 加 1
Wend 是什么意思
End Sub
List1.AddItem "性别"
List1.AddItem "班号"
List1.AddItem "简历"
List2.AddItem "学号"
List2.AddItem "姓名"
List2.AddItem "年龄"
List2.AddItem "照片"
End Sub
Private Sub C1_Click()
List2.AddItem List1.Text 这句话是什么意思，list1.text是什么属性，为什么这list2.additem直接连接list1.text
List1.RemoveItem List1.ListIndex 这句话是什么意思，这里的俩个属性是什么意思，这里为什么也可以直接连接
End Sub
Private Sub C2_Click()
Dim k As Integer 为什么要定义K
k = 0
While (k < List2.ListCount) 这里的listcount是什么意思，为什么k要大于他
If List2.Selected(k) = True Then 这里selected的属性是什么意思。为什么判断
List1.AddItem List2.Text
List2.RemoveItem k 这句话又是什么意思
End If
k = k + 1 这里为什么让k 加 1
Wend 是什么意思
End Sub
Private Sub Form_Load()
List1.AddItem "性别"
List1.AddItem "班号"
List1.AddItem "简历"
List2.AddItem "学号"
List2.AddItem "姓名"
List2.AddItem "年龄"
List2.AddItem "照片"
End Sub
Private Sub Command1_Click()
List2.AddItem List1.Text '将列list1中的项添加到list2中
List1.RemoveItem List1.ListIndex '将移动的list1中的项删除
End Sub
Private Sub Command2_Click()
Dim k As Integer '很无奈，用到了当然要定义了
k = 0
While (k < List2.ListCount) ' 这里的listcount是list2的项数，只有k<list2.listcount才执行while循环否则跳出
If List2.Selected(k) = True Then '索引为k的项被选中
List1.AddItem List2.Text
List2.RemoveItem k '从list2中把选中的项删除
End If
k = k + 1 'k加1是为了遍历list2中所有的项以便查找到选中的项啊
Wend '结束while循环
End Sub
以上是我的注释，建议你能看看vb帮助！！那里有你不懂的所有的东西
List2.AddItem List1.Text 将表1中选中的项内容添加到表2
List1.RemoveItem List1.ListIndex 删除表1所选中项 如果没有选中程序将会出