VB工程14--百例23---添加、删除列表项

Private Sub Form_Load()
List1.List(0) = "文件"
List1.List(1) = "编辑"
List1.List(2) = "视图"
List1.List(3) = "工程"
List1.List(4) = "格式"
List1.List(5) = "调试"
List1.List(6) = "运行"
List1.List(7) = "查询"
List1.List(8) = "图表"
List1.List(9) = "工具"
List1.List(10) = "外接程序"
List1.List(11) = "窗口"
List1.List(12) = "帮助"
End Sub

Private Sub List1_Click()
List2.AddItem List1.Text单击list1时，list2中增加list1的列项，sorted属性按字母排序

List1.RemoveItem List1.ListIndexlist1中的列项增加到list2中
End Sub

Private Sub List2_Click()
List1.AddItem List2.Text 单击list2时，list1中增加list2的列项，
List2.RemoveItem List2.ListIndexlist2中的列项增加到list1中

End Sub

原文地址：https://www.jb51.cc/vb/260442.html