高级程序设计实验指导书(11)

方法： 1.建立窗体。在窗体上添加两个标签框、两个列表框和一个命令按 钮等控件，窗体对象属性如表所示。 窗体、控件对象属性表 对象名称 属性名称 属性设置值 窗体 (名称) Form1 BackColor 浅蓝色 标签框 1 (名称) Label1 Caption 姓名 标签框 2 (名称) Label2 Caption 被选的学生 列表框 1 (名称) List1 MultiSelect 2 Sorted True 列表框 2 (名称) List2 命令按钮 (名称) Command1 Caption => 2.在窗体上设置如下事件过程代码： 窗体装载时向列表框添加项目： Private Sub Form_Load() "李明 李明" List1.AddItem "李明" "徐万英 徐万英" List1.AddItem "徐万英" "何明 何明" List1.AddItem "何明" List1.AddItem "王才" List1.AddItem "王才" 王才 "张伟 张伟" List1.AddItem "张伟" "宋华 宋华" List1.AddItem "宋华" "程功 程功" List1.AddItem "程功" List1.AddItem "王溪路" "王溪路" 王溪路 "李红 李红" List1.AddItem "李红" "黄铭 黄铭" List1.AddItem "黄铭" End Sub 单击“命令按钮”的事件代码： Private Sub Command1_Click() n = List1.ListCount - 1 i = 0 Do While i <= n List1.Selected(i) If List1.Selected(i) = True Then List2.AddItem List1.List(i) List1.RemoveItem i n = n - 19