《列表框、组合框》由会员分享，可在线阅读，更多相关《列表框、组合框（3页珍藏版）》请在金锄头文库上搜索。
1、江苏省无锡立信职教中心校教案江苏省无锡立信职教中心校教案课 题列表框、组合框课 型讲 授、练习 授课日期2010.5.10授课时数2教学目标掌握列表框、组合框添加、删除项目的方法 学会收集表单信息的方法 提高分析问题、解决问题的能力教学重点添加、删除项目的方法教学 难点相似方法和属性较 难区分学情分析采用项目教学，让学生做中学，碰到问题求解知识点，效果易 于学生接受。板 书 设 计项目一：列表框项目二：组合框1 创建用户界面 2 设置属性 3 编写代码 4 调试和运行教师提出问题、继而解决 学生练习、教师辅导 归纳总结教学 后记项目教学效果显著，采用对比法是解决教学难点的一个有效手 段。江苏省
2、无锡立信职教中心校备课笔记江苏省无锡立信职教中心校备课笔记教 学 内 容学生活动 项目一：列表框项目一：列表框 1 创建用户界面 2 设置属性 3 编写代码 提出问题 1：如何将“计算机系“和“商务系“添加到列表框 中呢？ 解决：使用列表框的 AddItem ()方法提出问题 2：运行时如何让列表框自动显示某个值呢？ 解决：使用列表框的 ListIndex 属性提出问题 3：当在 列表框 1 中选“计算机系“时，列表框 2 对应出现“计算机网络“和“计算机应用“，以及当在 列表框 1 中选“商务系“时，列表框 2 对应出现“电子商务“和“国际 贸易“呢？ 解决：通过在列表框 1 的 click
3、 事件中编代码，用 AddItem ()方法将对应项目加到列表框 2 中。附代码：附代码： Private Sub Form_Load() Combo1.AddItem (“计算机系“) Combo1.AddItem (“商务系“) Combo1.ListIndex = 0 End Sub Private Sub Combo1_Click() Combo2.Clear Select Case Combo1.TextCase “计算机系“Combo2.AddItem (“计算机应用“)Combo2.AddItem (“计算机网络“)Case “商务系“Combo2.AddItem (“电子商务“
4、)Combo2.AddItem (“国际贸易“) End Select Combo2.ListIndex = 0 End Sub 教师提出问题、继而解决 学生练习、教师辅导 总结学生按照书 本所示图、 表进行制作学生练习学生练习江苏省无锡立信职教中心校备课笔记江苏省无锡立信职教中心校备课笔记教 学 内 容 项目二：组合框项目二：组合框 提出问题 4：如何将组合框 2 中选定的项目添加到组合框 1 中呢？ 解决：使用组合框的 AddItem ()方法提出问题 5：如何将组合框 2 中选定的项目删除呢？ 解决：使用组合框的 RemoveItem ()方法 总结：AddItem ()方法和 Remo
5、veItem ()方法使用时区别提出问题 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 St
6、ep -1List1.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 - 1kc = kc + List1.List(i) + “ Next str = “你的选课结果：“ + vbCrLf + “所在系：“ + xi + vbCrLf + “所学专业：“ + zy + vbCrLf + “选修课程“ + kc MsgBox str End Sub 教师提出问题、继而解决 学生练习、教师辅导 总结
