单元判断题功能的设计与实现PPT课件

VisualBasic程序设计项目化教程 1 单元六判断题功能的设计与实现 2 教学目标 通过本课题的学习 使学生掌握单选按钮控件的基本设置和使用方法 掌握判断题的题目读取 答案读取和答案保存的方法 教学重点 单选按钮控件的基本属性 方法和事件 3 6 1任务描述6 2相关知识点6 3任务分析6 4任务设计6 5任务实现6 6任务拓展 授课内容 4 6 1任务描述 判断题界面由1个标签和2个单选按钮控件组成 为2选1题目 当单击目录树判断题下的结点时 根据目录树控件选中的结点显示该题的题目内容 答案选项和考生答案 当单击答案选项时 将对应的答案保存到数据库中 5 6 2相关知识点 6 2 1ComboBox 组合框 控件6 2 2ListBox 列表框 控件 6 6 2 1ComboBox 组合框 控件 ComboBox 组合框 控件很简单 可以节省空间 从用户角度来看 这个控件是由一个文本输入控件和一个下拉菜单组成的 用户可以从一个预先定义的列表里选择一个选项 同时也可以直接在文本框里面输入文本 7 6 2 1ComboBox 组合框 控件 1 向控件添加Items 在ComboBox控件的List属性里面添加 一行表示ComboBox下拉列表中的一行 换行用ctrl 回车 利用函数AddItem 向ComboBox控件添加Items 例如 Combo1 AddItem Data1 Combo1 AddItem Data2 Combo1 AddItem Data3 8 6 2 1ComboBox 组合框 控件 2 从控件得到选定的Item假设在控件列表中已经选定某项 现在要得到被选定项的内容 首先要得到该项的位置 然后得到对应位置的内容 这里会用到两个函数 例如 DimstrTextAsStringstrText Combo1 Text这样 得到的内容就保存在strText中 9 6 2 1ComboBox 组合框 控件 3 删除控件中的Item该操作可以利用函数RemoveItem 需要指定被删除项的位置 例如 Combo1 RemoveItem Index 10 6 2 2ListBox 列表框 控件 ListBox 列表框 控件可以供用户进行多个项目的选择 用户通过单击某一项选择自己所需要的项目 如果项目太多 超出了列表框设计时的长度 则自动增加垂直滚动条 11 6 2 2ListBox 列表框 控件 1 向控件添加Items 在ListBox控件的List属性里面添加 一行表示ListBox下拉列表中的一行 换行用ctrl 回车 利用函数AddItem 向ListBox控件添加Items 例如 ListBox1 AddItem Data1 ListBox1 AddItem Data2 ListBox1 AddItem Data3 12 6 2 2ListBox 列表框 控件 2 从控件得到选定的Item假设在控件列表中已经选定某项 现在要得到被选定项的内容 首先要得到该项的位置 然后得到对应位置的内容 这里会用到两个函数 例如 DimstrTextAsStringstrText ListBox1 Text这样 得到的内容就保存在strText中 13 6 2 2ListBox 列表框 控件 3 删除控件中的Item该操作可以利用函数RemoveItem 需要指定被删除项的位置 例如 ListBox1 RemoveItem Index 14 6 3任务分析 要完成任务描述的功能 应该实现以下功能 显示题目内容 显示答案选项 显示考生答案 保存考生答案 15 6 4 1功能描述6 4 2界面设计6 4 3属性设计 6 4任务设计 16 6 4 1功能描述 判断题界面由1个标签和2个单选按钮控件组成 为2选1的题目 当单击目录树判断题下的结点时 根据目录树控件选中的结点显示该题的题目内容 答案选项和考生答案 当单击答案选项时 将对应的答案保存到数据库中 运行情况 运行界面如图6 1所示 17 6 4 1功能描述 图6 1判断题运行界面 18 6 4 2界面设计 判断题界面由1个框架 1个标签和2个单选按钮控件组成 为2选1的题目 界面如图6 2所示 图6 2判断题设计界面 19 6 4 3属性设计 20 6 5任务实现 修改主界面代码 实现判断题各控件的位置和大小的自动排列 PrivateSubForm Resize 略 判断题控件frmJudge Left tvwTopic Left tvwTopic Width 10frmJudge Top tvwTopic TopfrmJudge Width Me ScaleWidth tvwTopic Width 20frmJudge Height tvwTopic HeightlblJudgeTopic Top 20 15lblJudgeTopic Left 20 15lblJudgeTopic Width frmJudge Width 40 15optJudgeKey 0 Top lblJudgeTopic Top lblJudgeTopic Height 20optJudgeKey 0 Left lblJudgeTopic LeftoptJudgeKey 0 Width lblJudgeTopic WidthoptJudgeKey 1 Top optJudgeKey 0 Top optJudgeKey 0 Height 20optJudgeKey 1 Left lblJudgeTopic LeftoptJudgeKey 1 Width lblJudgeTopic WidthEndSub 21 6 5任务实现 修改主界面代码 读取判断题的题目内容 答案选项 修改主界面代码 实现保存答案功能 PrivateSuboptJudgeKey Click IndexAsInteger Adodc1 Recordset Fields Item stukey Chr 65 Index Adodc1 Recordset UpdateEndSub 22 6 6任务拓展 我们已经实现了判断题功能 但是实际使用过程中 还可能遇到很多的问题 题目为长文本时如何实现 题目中有图片时如何处理 判断题的答案选项如果用组合框控件如何实现 判断题的答案选项如果用列表框