列表框、组合框.docVIP

江苏省无锡立信职教中心校教案 课 题 列表框、组合框 课 型 讲 授、练习 授课日期 2010.5.10 授课时数 2 教学目标 掌握列表框、组合框添加、删除项目的方法 学会收集表单信息的方法 提高分析问题、解决问题的能力 教学重点 添加、删除项目的方法 教学 难点 相似方法和属性较难区分 学情分析 采用项目教学，让学生做中学，碰到问题求解知识点，效果易于学生接受。 板 书 设 计 项目一：列表框 项目二：组合框 1创建用户界面 2设置属性 3编写代码 4调试和运行 教师提出问题、继而解决 学生练习、教师辅导 归纳总结 教学 后记 项目教学效果显著，采用对比法是解决教学难点的一个有效手段。 江苏省无锡立信职教中心校备课笔记 教 学 内 容 学生活动 项目一：列表框 1创建用户界面 2设置属性 3编写代码 提出问题1：如何将计算机系和商务系添加到列表框中呢？ 解决：使用列表框的AddItem ()方法 提出问题2：运行时如何让列表框自动显示某个值呢？ 解决：使用列表框的ListIndex属性 提出问题3：当在 列表框1中选计算机系时，列表框2对应出现计算机网络和计算机应用，以及当在 列表框1中选商务系时，列表框2对应出现电子商务和国际贸易呢？ 解决：通过在列表框1的click事件中编代码，用AddItem ()方法将对应项目加到列表框2中。 附代码： Private Sub Form_Load() Combo1.AddItem (计算机系) Combo1.AddItem (商务系) Combo1.ListIndex = 0 End Sub Private Sub Combo1_Click() Combo2.Clear Select Case Combo1.Text Case 计算机系 Combo2.AddItem (计算机应用) Combo2.AddItem (计算机网络) Case 商务系 Combo2.AddItem (电子商务) Combo2.AddItem (国际贸易) End Select Combo2.ListIndex = 0 End Sub 教师提出问题、继而解决 学生练习、教师辅导 总结 学生按照书本所示图、表进行制作 学生练习 学生练习 江苏省无锡立信职教中心校备课笔记 教 学 内 容 项目二：组合框 提出问题4：如何将组合框2中选定的项目添加到组合框1中呢？ 解决：使用组合框的AddItem ()方法 提出问题5：如何将组合框2中选定的项目删除呢？ 解决：使用组合框的RemoveItem ()方法 总结：AddItem ()方法和RemoveItem ()方法使用时区别 提出问题6：如何将组合框2中选定的项目全部添加到组合框1中呢？ 解决：使用循环结合组合框的ListCount属性 提出问题7：单击“提交”按钮后，如何将当前所选信息进行提交？ 解决：使用msgbox函数结合赋值语句 附代码： Private Sub Command3_Click() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End Sub Private Sub Command4_Click() For i = List2.ListCount - 1 To 0 Step -1 List1.AddItem List2.List(i) List2.RemoveItem (i) Next End Sub Private Sub Command5_Click() Dim str As String xi = Combo1.Text zy = Combo2.Text For i = 0 To List1.ListCount - 1 kc = kc + List1.List(i) + Next str = 你的选课结果： + vbCrLf + 所在系： + xi + vbCrLf + 所学专业： + zy + vbCrLf + 选修课程 + kc MsgBox str End Sub 教师提出问题、继而解决 学生练习、教师辅导 总结