列表框、组合框.doc

江苏省无锡立信职教中心校教案课 题列表框、组合框课 型讲 授、练习授课日期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 = 0End SubPrivate Sub Combo1_Click()Combo2.ClearSelect Case Combo1.Text Case 计算机系 Combo2.AddItem (计算机应用) Combo2.AddItem (计算机网络) Case 商务系 Combo2.AddItem (电子商务) Combo2.AddItem (国际贸易)End SelectCombo2.ListIndex = 0End Sub教师提出问题、继而解决学生练习、教师辅导总结学生按照书本所示图、表进行制作学生练习学生练习江苏省无锡立信职教中心校备课笔记教 学 内 容项目二：组合框提出问题4：如何将组合框2中选定的项目添加到组合框1中呢？解决：使用组合框的AddItem ()方法提出问题5：如何将组合框2中选定的项目删除呢？解决：使用组合框的RemoveItem ()方法总结：AddItem ()方法和RemoveItem ()方法使用时区别提出问题6：如何将组合框2中选定的项目全部添加到组合框1中呢？解决：使用循环结合组合框的ListCount属性提出问题7：单击“提交”按钮后，如何将当前所选信息进行提交？解决：使用msgbox函数结合赋值语句附代码：Private Sub Command3_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd SubPrivate Sub Command4_Click()For i = List2.ListCount - 1 To 0 Step -1 List1.AddItem List2.List(i) List2.RemoveItem (i)NextEnd SubPrivate Sub Command5_Click()Dim str As Stringxi = Combo1.Text zy = Combo2.TextFor i = 0 To List1.ListCount - 1 kc = kc + List1.List(i) + Nextstr = 你的选课结果： + vbCrLf + 所在系： + xi