工具栏和状态栏应用复习.docVIP

江苏省无锡立信职教中心校教案 课 题 工具栏和状态栏应用复习 课 型 讲 授、练习 授课日期 2010.6.2 授课时数 2 教学目标 巩固掌握工具栏、状态栏的制作 熟练掌握下拉式菜单的制作 培养学生学习VB的兴趣 教学重点 工具栏 状态栏 教学 难点 工具栏编码的理解 学情分析 本课通过项目教学来对工具栏和状态栏进行复习。 板 书 设 计 新授： 工具栏和状态栏应用复习 任务一：制作下拉式菜单 布置任务 学生练习、教师辅导 任务二：制作“格式工具栏” 1创建按钮图像 2工具栏创建 加粗、倾斜、左对齐、居中、右对齐 3编程 任务三：制作状态栏 1添加控件 2状态栏设置 3编码 教师示范演示 学生练习 作品上传 老师点评 总结 教学 后记 学生对内容比较感兴趣，因此整体做得比较好。 江苏省无锡立信职教中心校备课笔记 教 学 内 容 学生活动 教师展示样品 新授： 工具栏和状态栏应用复习 任务一：制作下拉式菜单 1创建用户界面 通过菜单编辑器 2设置属性 3编写代码 通过单击菜单项进入 4调试和运行 老师提出任务要求 学生练习、教师辅导 任务二：制作“格式工具栏” 1创建按钮图像 利用imagelist控件 2工具栏创建 利用toolbar控件 加粗、倾斜、左对齐、居中、右对齐 3编程 附代码： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 cuti_Click Case 2 xieti_Click Case 3 zuoduiqi_Click Case 4 juzhong_Click Case 5 youduiqi_Click End Select End Sub 教师示范演示 学生练习、教师辅导 学生看样品 学生练习 学生练习 江苏省无锡立信职教中心校备课笔记 教 学 内 容 学生活动 任务三：制作状态栏 1添加控件 2状态栏设置 3编码 Text1.FontBold = Not Text1.FontBold If Text1.FontBold = True Then StatusBar1.Panels(2).Text = 粗体 Else StatusBar1.Panels(2).Text = End If Text1.FontItalic = Not Text1.FontItalic If Text1.FontItalic = True Then StatusBar1.Panels(3).Text = 倾斜 Else StatusBar1.Panels(3).Text = End If Text1.Alignment = 0 StatusBar1.Panels(4).Text = 左对齐 教师示范演示 学生练习、教师辅导 附图： 学生作品上传 老师点评 总结 学生练习 作品上传