单元7：填空题功能的设计与实现

1、 Visual Basic项目化教程 1单元七 填空题功能的设计与实现2教学目标通过本课题的学习，使学生掌握文本框控件的基本设置和使用方法。掌握填空题的题目读取、答案读取和答案保存的方法。教学重点文本框控件的基本属性、方法和事件。37.1 任务描述7.2 相关知识点7.3 任务分析7.4 任务设计7.5 任务实现7.6 任务拓展授课内容47.1 任务描述 填空题界面由1个标签和1个文本框控件组成。当单击目录树填空题下的结点时，根据目录树控件选中的结点显示该题的题目内容和考生答案。当考生答案失去输入焦点时，将对应的答案保存到数据库中。57.2 相关知识点7.2.1 电影(ActiveMovie)

2、控件7.2.2 动画(Animation)控件7.2.3 多媒体(MMControl)控件7.2.4 数据组合框(DataCombo)控件7.2.5 数据型电子表格(DataGrid)控件7.2.6 电子表格(MSFlexGrid)控件7.2.7 数据列表(DataList)控件7.2.8 图像组合框(ImageCombo)控件67.2 相关知识点7.2.9 图像列表 (ImageList) 控件7.2.10 图表 (MSChard) 控件7.2.11 月视图(MonthView)控件7.2.12 进度栏(ProgressBar)控件7.2.13 RichTextBox控件7.2.14 滑动块

3、(Slider)控件7.2.15 选项卡(SSTab)控件7.2.16 UpDown控件77.2.1 电影(ActiveMovie)控件属性说明(Name)ActiveMovie控件的名称AutoRewind媒体播放完后是否自定重放。取值为：True或FalseAutoStart在打开媒体文件后是否自定播放。取值为：True或FalseVolume获得或设置多媒体音量87.2.2 动画(Animation)控件属性说明(Name)Animation框控件的名称AutoPlay获得或设置Animation控件是否自动播放。取值为：True或FalseCenter获得或设置.avi的播放是否居中。

4、取值为：True 根据图像的大小，在控件中心居中播放.avi文件，此为默认值。False avi文件定位在控件内的(0,0)处。97.2.3 多媒体(MMControl)控件107.2.4 数据组合框(DataCombo)控件属性说明(Name)数据组合框(DataCombo)控件的名称(自定义)打开属性页DataField获得或设置一个值，将控件绑定到当前记录的一个字段DataFormat返回数据格式对象，用于该部件的可绑定性(打开属性页)DataMember获得或设置一个值，为数据连接描述数据成员DataSource设置一个数值，指出数据控件通过它将当前控件绑定到数据库Text获得或设置控

5、件中包含的文本117.2.5 数据型电子表格(DataGrid)控件属性说明(Name)数据型电子表格控件的名称(自定义)打开属性页Align获得或设置一个值，决定对象在窗体上的位置。取值为：0 vbAlignNone(自选)、1 vbAlignTop(顶端)、2 vbAlignBottom(底端)、3 vbAlignLeft(左端)、4 vbAlignRight(右端)AllowAddNew允许添加交互纪录。取值为：True或FalseAllowDelete允许删除交互纪录。取值为：True或FalseAllowUpdate允许或禁止纪录更新。取值为：True或FalseCaption获得或

6、设置网络标题文本DataMember获得或设置一个值，为数据连接描述数据成员DataSource获得或设置控件的数据源127.2.6 电子表格(MSFlexGrid)控件属性说明(Name)电子表格控件的名称(自定义)打开属性页Clos决定FlexGrid中的总列数FillStyle决定是否设置FlexGrid的文本属性或单元格属性之一可以应用到全部已选的单元。取值为：0 flexFillSingle或1 flexFillRepeatFixedCols获得或设置FlexGrid的固定（不可滚动）列的总数FixedRows获得或设置FlexGrid的固定（不可滚动）行的总数PictureType

7、获得或设置应由Picture属性生成的图片类型。取值为：0 flexPictureColor1 flexPictureMonochromeRows决定电子表格中的行的总数。137.2.7 数据列表(DataList)控件属性说明(Name)数据列表(DataList)控件的名称DataBindings获得或设置一数据绑定集合对象，他收集开发人员可利用的可绑定属性。DataField获得或设置一个值，将控件绑定到当前记录的一个字段DataFormat返回数据格式对象，用于该部件的可绑定性DataMember获得或设置一个值，为数据连接描述数据成员DataSource设置一个数值，指出数据控件通过

8、它将当前控件绑定到数据库RowMember获得或设置RowSource的数据成员名RowSource返回或设置列表项数据源147.2.8 图像组合框(ImageCombo)控件属性说明(Name)图像组合框(ImageCombo)控件的名称DataBindings获得或设置一数据绑定集合对象，他收集开发人员可利用的可绑定属性。DataField获得或设置一个值，将控件绑定到当前记录的一个字段DataFormat返回数据格式对象，用于该部件的可绑定性(打开属性页)DataMember获得或设置一个值，为数据连接描述数据成员DataSource设置一个数值，指出数据控件通过它将当前控件绑定到数据库

9、Text获得或设置控件中包含的文本157.2.9 图像列表 (ImageList) 控件属性说明(Name)图像列表控件的名称ImageHeight图像列表控件控件的高度ImageWidth图像列表控件控件的宽度Index在对象数组中的编号MaskColor获得或设置一个值，决定在图像列表的图形操作中透明的颜色。可从弹出的调色板选择。UseMaskColor获得或设置一个值，决定图像列表控件是否使用MaskColor属性。取值为：True或False167.2.10 图表 (MSChard) 控件属性说明MaxDate获得或设置能被显示或者通过控件接受的最近的日期。MaxSelCount获得或

10、设置限制在用户能多重选择日期的数量。MinDate获得或设置能被显示或者通过控件接受的最早期的日期。MonthColumns获得或设置显示水平控件的月的数量。MonthRows获得或设置显示在控件中垂直的月的数量。ScrollRate返回或设置某个值来决定当用户单击滑动按钮时控件移动的月的数量。ShowToday返回或设置某个值来决定控件是否在MonthView的底部显示Today xx/xx/xx文字。取值为：True或FalseShowWeekNumbers返回或设置某个值来决定控件是否在每一天的行的左边显示星期数。取值为：True或FalseStartOfWeek返回或设置某个值来决定控

11、件是否在每一天的纵列的左边显示星期数Mon-Sun 。Value获得或设置当前选择日期Week获得或设置当前选定日期的星期数量1-52177.2.11 月视图(MonthView)控件属性说明(Name)图表控件的名称chartType获得或设置用于图示数据网格中数据的图表类型。Column获得或设置数据网格的活动列。Data获得或设置数据网格中由Column和Row标识的指定数据点的值。DataMember获得或设置一个值，为数据连接描述数据成员DataSource获得或设置控件的数据源Row获得或设置数据网格活动行。SeriesType获得或设置用于显示由Column属性标识的系列的图表类

12、型。ShowLegend决定图表中是否显示图例。取值为：True或FalseTitleText获得或设置图表标题文本187.2.12 进度栏(ProgressBar)控件属性说明(Name)进度栏(ProgressBar)控件的名称Align获得或设置一个值，决定对象在窗体上的位置。Height进度栏(ProgressBar)控件的高度Max获得或设置控件的最大值Min获得或设置控件的最小值Scrolling获得或设置一个值，决定该控件显示进度时是使用标准的分段进度栏，还是使用平滑的进度栏。197.2.13 RichTextBox控件207.2.14 滑动块(Slider)控件属性说明(Nam

13、e)滑动块控件对象的名称BorderStyle获得或设置边界样式。Height滑动块控件对象的高度Max获得或设置控件的最大值Min获得或设置控件的最小值SelectRange获得或设置滑动控件是否能有选定区域。取值为：True或FalseSelLength获得或设置选定的长度SelStart获得或设置选定起始位置的值。SmallChange获得或设置按下左箭头或右箭头时增加的值。TextPosition获得或设置一个值，决定有关滑块改变位置的工具提示所显示的位置。Value获得或设置对象的值。Width设置该对象的宽度217.2.15 选项卡(SSTab)控件属性说明Caption获得或设置

14、活动选项卡中显示的文本Picture指定一个在当前选项卡位置显示的位图。Style获得或设置选项卡的样式。Tab获得或设置活动的选项卡号TabHeight获得或设置选项卡的高度TabIndex获得或设置父窗体中对象响应Tab键的顺序。TabMaxWidth获得或设置每个选项卡最大宽度TabOrientation获得或设置一个值，决定选项卡出现在控件的哪一边。Tabs获得或设置选项卡数目TabsPerRow获得或设置在每一行中出现的选项卡号。227.2.16 UpDown控件属性说明(Name)UpDown控件的名称Alignment获得或设置该控件与它的绑定控件的对齐方式。Increment获

15、得或设置每一次单击时改变的值Max获得或设置滚动范围的上界值Min获得或设置滚动范围的下界值Value获得或设置控件的当前值237.3 任务分析要完成任务描述的功能，应该实现以下功能：1显示题目内容；2显示考生答案；3保存考生答案。247.4.1 功能描述7.4.2 界面设计7.4.3 属性设计7.4 任务设计257.4.1 功能描述填空题界面由1个标签和1个文本框控件组成。当单击目录树填空题下的结点时，根据目录树控件选中的结点显示该题的题目内容和考生答案。当考生答案失去输入焦点时，将对应的答案保存到数据库中。运行情况：运行界面如图7-1所示。 267.4.1 功能描述图7-1 填空题运行界面

16、277.4.2 界面设计填空题界面由1个标签和1个文本框控件组成，界面如图7-2所示。图7-2 填空题设计界面287.4.3 属性设计控 件 类 型控 件 名 称控 件 属 性FramefrmClozeCaption=”填空题”FontSize=”小四”Visible=FalseLabellblClozeTopicHeight=750BackColor= &H80000010&FontSize=”小四”TextBoxtxtClozeKeyHeight=750Text=”FontSize=”小四”297.5 任务实现 修改主界面代码，实现单选题各控件的位置和大小的自动排列。Private Sub

17、 Form_Resize() (略) 填空题控件 frmCloze.Left=tvwTopic.Left+tvwTopic.Width+10 frmCloze.Top=tvwTopic.Top frmCloze.Width=Me.ScaleWidth-tvwTopic.Width-20 frmCloze.Height=tvwTopic.Height lblClozeTopic.Top=20 * 15 lblClozeTopic.Left=20 * 15 lblClozeTopic.Width=(frmCloze.Width-40)*15 txtClozeKey.Top=lblClozeTopi

18、c.Top + lblClozeTopic.Height+20 txtClozeKey.Left=lblClozeTopic.Left txtClozeKey.Width=lblClozeTopic.WidthEnd Sub307.5 任务实现 修改主界面代码，读取填空题的题目内容、考生答案。Private Sub tvwTopic_Click() If Not (tvwTopic.SelectedItem.Parent Is Nothing) Then (略) If tvwTopic.SelectedItem.Parent.Text=填空题 Then Adodc1.RecordSource=select * from cloze where studentcode= +StudentCode + Adodc1.Refresh 定位记录 Adodc1.Recordset.MoveFirst For i=1 To Mid(tvwTopic.SelectedItem.Key, 6)-1 Adodc1.Recordset.MoveNext Next i 读取试题 lblClozeTopic.Caption = 第+ Mid(tvwT