列表框、组合框

《列表框、组合框》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、江苏省无锡立信职教中心校教案课题列表框、组合框课型讲授、练习授课日期2010.5.10授课时数2教学目标掌握列表框、组合框添加、删除项目的方法学会收集表单信息的方法提高分析问题、解决问题的能力教学重点添加、删除项目的方法教学难点相似方法和属性较难区分学情分析采用项目教学，让学生做中学，碰到问题求解知识点，效果易于学生接受。板书设计项目一：列表框项目二：组合框1创建用户界面2设置属性3编写代码4调试和运行教师提出问题、继而解决学生练习、教师辅导归纳总结教学后记项目教学效果显著，采用对比法是解决教学难点的一个有效手段。江苏省无锡立信职教中心校备课笔记教学内容学生活动项目一

2、：列表框1创建用户界面2设置属性3编写代码提出问题1：如何将"计算机系"和"商务系"添加到列表框中呢？解决：使用列表框的AddItem()方法提出问题2：运行时如何让列表框自动显示某个值呢？解决：使用列表框的ListIndex属性提出问题3：当在列表框1中选"计算机系"时，列表框2对应出现"计算机网络"和"计算机应用"，以及当在列表框1中选"商务系"时，列表框2对应出现"电子商务"和"国际贸易"呢？解决：通过在列表框1的click事件中编代码，用AddItem()方法将对应项目加到列表框2中。附代码：PrivateSubForm_Load()Combo1.AddIte

3、m("计算机系")Combo1.AddItem("商务系")Combo1.ListIndex=0EndSubPrivateSubCombo1_Click()Combo2.ClearSelectCaseCombo1.TextCase"计算机系"Combo2.AddItem("计算机应用")Combo2.AddItem("计算机网络")Case"商务系"Combo2.AddItem("电子商务")Combo2.AddItem("国际贸易")EndSelectCombo2.ListIndex=0EndSub教师提出问题、继而解决学生练习、教师辅导总结学生按照书本所示图、表进

4、行制作学生练习学生练习江苏省无锡立信职教中心校备课笔记教学内容项目二：组合框提出问题4：如何将组合框2中选定的项目添加到组合框1中呢？解决：使用组合框的AddItem()方法提出问题5：如何将组合框2中选定的项目删除呢？解决：使用组合框的RemoveItem()方法总结：AddItem()方法和RemoveItem()方法使用时区别提出问题6：如何将组合框2中选定的项目全部添加到组合框1中呢？解决：使用循环结合组合框的ListCount属性提出问题7：单击“提交”按钮后，如何将当前所选信息进行提交？解决：使用msgbox函数结合赋值语句附代码：PrivateSubCo

5、mmand3_Click()List1.AddItemList2.TextList2.RemoveItemList2.ListIndexEndSubPrivateSubCommand4_Click()Fori=List2.ListCount-1To0Step-1List1.AddItemList2.List(i)List2.RemoveItem(i)NextEndSubPrivateSubCommand5_Click()DimstrAsStringxi=Combo1.Textzy=Combo2.TextFori=0ToList1.ListCount-1kc=kc+Li

6、st1.List(i)+""Nextstr="你的选课结果："+vbCrLf+"所在系："+xi+vbCrLf+"所学专业："+zy+vbCrLf+"选修课程"+kcMsgBoxstrEndSub教师提出问题、继而解决学生练习、教师辅导总结