vb这些代码什么意思

vb这些代码什么意思

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帮助！！那里有你不懂的所有的东西2009-05-29

List2.AddItem List1.Text 将表1中选中的项内容添加到表2
List1.RemoveItem List1.ListIndex 删除表1所选中项 如果没有选中程序将会出错~
RemoveItem移除项 ListIndex返回或设置list控件当前选择项目的索引
Dim k As Integer 定义变量 你也可以不定义 不定义K就成了变体型变量
使用变体型变量会使程序慢了点~准确定义变量类型才能使程序运行快点

其他楼上已经说了~2009-05-29