第3课时 TextBox的使用
一、教学目标
1、了解TextBox控件的应用
2、掌握TextBox控件的主要属性
3、了解TextBox控件的主要事件
4、能运用TextBox控件设计一个简单的程序
二、重点难点
重点：
1、TextBox控件的主要属性
2、运用TextBox控件设计一个简单的程序
难点：
1、TextBox控件的主要事件
2、运用TextBox控件设计一个简单的程序
TextBox的应用
文本框控件在工具箱中的名称为TextBox，在VB中，可以使用文本框控件输入、输出数据。
Windows系统的"搜索文件夹"、计算器等程序中都应用了文本框控件。
TextBox的主要属性：
（1）Text属性：字符串类型。
返回或设置文本框中显示的内容。
例如：Text1.text=”年年有余”
（2）MultiLine属性：布尔型。
当MultiLine属性为True时，文本框可以输入或显示多行文本。
（3）Passwordchar属性：字符串类型。
当MultiLine属性值为False时，该属性可以用于口令输入。如果把
Passwordchar属性设置为一个字符，如星号（*），则在文本框中键入字符时，只显示星号，不显示键入的字符。
（4）ScrollBars属性：数值型。
该属性用于确定文本框是否带滚动条。有以下4种选择：
0-None 没有滚动条
1-Horizontal 只有水平滚动条
2-Vertical 只有垂直滚动条
3-Both 同时具有水平和垂直滚动条
只有当MultiLine属性值为True时，文本框才显示滚动条。
TextBox的事件和事件过程：
1、事件：
我们先来了解一下什么是事件.事件的含义很广泛，最常见的是鼠标事件，包括鼠标移动，鼠标左右键的单击双击，鼠标位于窗口的位置等。
在程序设计中，事件是指由用户操作触发或由系统触发，能被特定对象所识
别并作出响应的动作。
文本框除了支持鼠标的Click、DblClick事件外，还支持Change、GotFocus、LostFocus、KeyPress等事件。本节课，我们先学习Change事件。
2、事件过程：处理事件的步骤。
事件过程由对象名、下划线和事件名组合而成。例如：命令按钮command1
的鼠标单击事件过程为：
Private Sub Command1_Click()
......
End Sub
（1）Change事件：当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发Change事件。（2）示例：建立两个文本框，名称分别为：t1、t2。运行时，用户在文本框t1 中输入内容的同时，文本框t2显示相同的内容。
程序代码：
Private Sub t1_Change()
t2.Text=t1.Text
End Sub
程序运行
作业（界面如下图所示）：
程序代码如下：
Access窗体操作题 2、考生文件夹下存在一个数据库文件"Access3.mdb"，里面已经设计好窗体对象"教师"。试在此基础上按照以下要求补充窗体设计： （1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为"bTitle"，标题显示为"教师奖励信息"；（2）在主体节区位置添加一个选项组控件，将其命名为"opt"，选项组标签显示内容为"奖励"，名称为"bopt"； （3）在选项组内放置二个单选按钮控件，选项按钮分别命名为"opt1"和"opt2"，选项按钮标签显示内容分别为"有"和"无"，名称分别为"bopt1"和"bopt2"。 （4）在窗体页脚节区位置添加两个命令按钮，分别命名为"bOk"和"bQuit"，按钮标题分别为"确定"和"退出"； （5）将窗体标题设置为"教师奖励信息"。 注意：不允许修改窗体对象"教师"中已设置好的属性。 等级：3 难度：3 知识点：access知识点/窗体题 3、考生文件夹下存在一个数据库文件"Access3.mdb"，里面已经设计好窗体对象"教师"。试在此基础上按照一下要求补充窗体设计： （1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为"bTitle"，标题显示为"教师基本信息输出"；（2）在主体节区中"年龄"标签右侧的文本框显示内容设置为"年龄"字段值，并将文本框名称更名为"tAge"；（3）在主体节区添加一个标签控件，该控件放置在距左边0.1厘米、距上边5.0厘米，标签显示内容为"出生地"，名称为"bMem"； （4）在窗体页脚节区位置添加两个命令按钮，分别命名为"bOk"和"bQuit"，按钮标题分别为"确定"和"退出"； （5）将窗体标题设置为"教师基本信息"。 注意：不允许修改窗体对象"教师"中未涉及的控件和属性。
基本题(1) 【解题思路】MaxLength属性设置文本框中输入的字符串长度是否有限制。默认值为0，表示该单行文本框中字符串的长度只受操作系统内存的限制；若设置为大于0的数，则表示能够输入的最大字符数目。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.162。 表3.162 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基本题(2) 【解题思路】按照题目要求设置标签和命令按钮的属性，在命令按钮的Click事件过程中，通过设置标签的FontSize属性值实现标签内容字体的放大和还原。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.163和表3.164。 表3.163 表3.164 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 2 End Sub Private Sub Command2_Click() Label1.FontSize = 12
End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1) 【解题思路】在Cmd Click 事件过程中，通过Select Case语句判断选择命令按钮数组的Index属性值，Case 0表示单击"开始"按钮，计时器Timer1和"暂停"按钮的Enabled属性为True，状态变为可用，且如果Cmd(0)的Caption属性是"开始"按钮，那么Cmd(0)的Caption属性变为"继续"，且Cmd(0)为不可用，单击"继续"按钮，则Timer1接着开始工作，"继续"按钮变为不可用，"暂停"按钮变为可用。同理Case 1表示单击"暂停"按钮，则Timer1停止工作，"暂停"按钮变为不可用，"继续"按钮变为可用；Case 2表示单击"结果"按钮，则结束程序运行。 Timer1 Timer 事件过程通过If判断语句，实现秒向分钟，分钟向小时的转换，并在三个文本框中显示出来。 【操作步骤】 步骤1：打开本题工程文件，画1个计时器timer1，设置计时器Interval属性为1000，Enabled属性设置为False。 步骤2：分析并编写程序代码。 程序提供代码 Dim t(3) As Integer Private Sub Cmd_Click(Index As Integer) ' Select Case ? Case 0 'Timer1.Enabled = ? Cmd(1)．Enabled = True If Cmd(0)．Caption = "开始" Then Cmd(0)．Caption = "继续" End If 'Cmd(0)．Enabled =? Case 1 Timer1.Enabled = False Cmd(0)．Enabled = True Cmd(1)．Enabled = False Case 2 End End Select End Sub Private Sub Timer1_Timer() t(3) = t(3) + 1 ' If t(3) = ? Then t(3) = 0 t(2) = t(2) + 1 If t(2) = 60 Then t(2) = 0
[教案] (四）窗体的设计 授课方式：讲授法 授课学时：1学时 教学目的： 通过本次课的学习，学生应该掌握窗体的常用属性、事件和方法，掌握多种窗体的建立方法，学会设置启动窗体和启动工程。 教学重点和难点： 1．窗体的常用属性、常用事件以及窗体的五种方法； 2．多重窗体的建立 教学过程： 4.1 窗体的属性、事件和方法 一、窗体的常用属性 介绍窗体的Name属性、Picture属性和AutoRedraw属性 二、窗体的常用事件 通过例题来详细讲解窗体的以下几种常用事件 ——Load事件与Unload事件；Click事件与DblClick事件；KeyPress事件、KeyDown 事件和KeyUp事件；MouseMove事件、MouseDown事件和MouseUp事件；Resize 事件；Activeate事件与Deactivate事件 1．事件的具体应用情况 2．触发事件的条件 三、窗体的常用方法 通过例题使学生掌握以下五种方法的应用Cls方法、Hide方法与Show方法、Move 方法和Print方法 1．每个方法的具体功能和用途 2．方法调用的语法格式 4.2 多重窗体 一、设置启动窗体 使学生掌握启动窗体设置的步骤 二、设置启动工程 使学生掌握启动工程设置的两种方法
学生作业： 上机实验二：窗体的使用 （五）文本框和标签 授课方式：讲授法 授课学时：1学时 教学目的： 通过本次课的学习，学生应该能会使用文本框处理字符信息，能灵活使用文本框的属性、方法和事件，掌握使用标签控件显示字符信息的方法，并且能够灵活使用标签控件的属性、方法和事件。 教学重点和难点： 1．文本框控件的属性、方法和事件； 2．标签控件的属性、方法和事件。 教学过程： 第1节文本框和标签 一、文本框控件（Textbox） 1．介绍文本框在VB中的用途。 2．掌握以下9个文本框的主要属性 （1）Text、（2）MaxLength（3）MultiLine（4）ScrollBars（5）Locked（6）SelStart （7）SelLength（8）SelText（9）PasswordChar 3．掌握文本框的一个主要方法——SetFocus方法 （1）本方法的应用情况 （2）它的语法格式：[对象．] SetFocus 4．掌握文本框的4个主要事件 ——Chang事件、KeyPress事件、LostFocus事件和GotFocus事件 （1）掌握事件的应用情况 （2）掌握触发事件的条件 5．举例说明 讲解一道利用文本框来实现复制、剪贴和粘贴功能的例题，通过此例题的讲解使学生更加熟练的掌握有关文本框控件的常用属性、方法和事件。 二、标签控件(Label) 1．介绍标签在VB中的用途以及它的实际应用环境。 2．掌握以下4个标签的主要属性：
VB试题 一，填空 1.在文本框控件内输入，属性，可以屏蔽用户输入的密码，通过设置文本框的，属性，可以输入多行文本。 2.文本框的英文写法是，，标签的英文写法是。 3.文本框的scrollbars属性为2是，显示滚动条。 4.文本框的常用方法是setfcus,语法格式为：,可以将焦点移到文本框控件，如果一个名字为“textbox1”的文本框，想把焦点移至它的文本框，语法内容为。 5.文本框的sellength,selstart,seltext,这些属性用于对文本框的文本进行选定操作。其中，sellength属性返回或设置所选择的，selstart返回或设置所选择的文本的，，seltext属性返回或设置包含当前所选择文本的，如果没有选择字符，则为零字符串长度（“”）。 6.文本框的tabindex属性，可以返回或设置文本框访问键的顺序。 7.文本框的常用事件包括： （1）当文本框的内容发生改变时发生此事件 （2）和这些事件是当一个控件具有焦点时按下或松开一个键时发生。 8. 1.阴影字效果是可用位置上有一定偏移的标签来生成，这两个标签相应是。他们的前景颜色不一样，用作下方的标签作为，其前景颜色可以设为深灰色。阴影字效果是鼠标指向标签时出现，鼠标离开标签时消失，可通过标签和窗体的事件过程来设置。 2.新建的vb中的EXE程序一般有两个文件，分别是他们的扩展名分别是。 的汉语意思是 的汉语意思是。 的汉语意思是。 Forecolor的汉语意思是
6.运行程序的快捷键是 7.标签控件具有一些方法，其中最常用的是MOVE方法，用于在窗体上移动标签控件，语法格式如下：left,top,width,height 其中和是必选的，分别指定objict左边的水平坐标和顶边的垂直坐标。
1：在“窗体视图”中显示窗体时，窗体中没有记录选定器，应将窗体的“记录选定器”属性值设置为 A、是 B、否 C、有 D、无 2：如果在文本框内输入数据后，按Enter键或按Tab键，输入焦点可立即移至下一指定文本框，应设置的属性是______。 A、"制表位"属性 B、"Tab键索引"属性 C、"自动Tab键"属性 D、"Enter键行为"属性 3：在教师信息输入窗体中，为职称字段提供"教授"、"副教授"、"讲师"等选项供用户直接选择，最合适的控件是______。 A、标签 B、复选框 C、文本框 D、组合框 4：在学生表中用"照片"字段存放相片，当使用向导为该表创建窗体时，照片字段使用的默认控件是______。 A、图形 B、图像 C、绑定对象框 D、未绑定对象框 5：下列属性中，属于窗体的"数据"类属性的是______。 A、记录源 B、自动居中 C、获得焦点 D、记录选择器 6：在Access中为窗体上的控件设置Tab键的顺序，应选择"属性"对话框的 ______。 A、"格式"选项卡 B、"数据"选项卡 C、"事件"选项卡 D、"其他"选项卡
7：若在"销售总数"窗体中有"订货总数"文本框控件，能够正确引用控件值的是______。 A、Forms.[销售总数].[订货总数] B、Forms![销售总数].[订货总数] C、Forms.[销售总数]![订货总数]: D、Forms![销售总数]![订货总数] 8：主窗体和子窗体通常用于显示多个表或查询中的数据，这些表或查询中的数据一般应该具有的关系是______。 A、一对一 B、一对多 C、多对多 D、关联 9:能够接受数值型数据输入的窗体控件是______。 A、图形 B、文本框 C、标签 D、命令按钮 10:下列可用于创建窗体或修改窗体的视图是______。 A、设计视图 B、窗体视图 C、数据表视图 D、透视表视图 11：设计窗体时，可通过设置命令按钮的一个属性来指定按钮上要显示的文字，该属性是______。 A、名称 B、标题 C、格式: D、图像 12：在窗体设计时，要设置标签文字的显示格式应使用______。 A、格式工具栏 B、字段列表框 C、工具箱 D、窗体设计工具栏 13：下列关于窗体的叙述中，正确的是______。 A、窗体只能用作数据的输出界面 B、窗体可设计成切换面板形式，用以打开其他窗体 C、窗体只能用作数据的输入界面:
第5章窗体 窗体1-5：2、4、10、16、71 窗体6-10：2、3、18、32、35 窗体11-15：47、53、56、59、62 窗体16-20：70、72、107、109、130 Access窗体操作题 代码中常用的属性：标题 Caption ；前景色 foreColor ；是否可用 Enabled ；记录源 RecordSource 4、 （5）设置命令按钮bTest的单击事件属性为给定的宏对象m1； 本题直接选择事件，运行宏m1 如果要求写入运行宏的代码就为：docmd.runmacro “宏名称” 即：docmd.runmacro “m1” 35、 （5）设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色。要求用VBA代码实现。 属性设置为：对象名.属性名=值 窗体为：form.属性名=值如：form.caption=time() 也可以：me.caption=time() 本题是将CDID文本框所带标签改变颜色： CDID_标签.forecolor=vbred 或 CDID_标签.forecolor=rgb(255,0,0) 53、（1）将窗体"fEmp"上文本框"tSS"更改为组合框类型，保持控件名称不变。设置其相关属性实现下拉列表形式输入性别"男"和"女"； 选择文本框右键，选择更改为组合框，在属性窗口设置属性行来源：男;女（不要选择控件来源），行来源类型：值列表。 （2）修改查询对象"qEmp"为参数查询，参数为引用窗体对象"fEmp"上文本框"tSS"的输入值； 在查询qemp的设计视图下：添加性别字段，在条件行输入：[forms]![femp]![tss]。注意：性别不显示。 （3）设置窗体对象"fEmp"上文本框"tPa"为计算控件。要求依据"党员否"字段值显示内容："党员否"字段值为True，显示"党员"两字；"党员否"字段值为False，显示"非党员"三字； =iif([党员否]=true,”党员”,”非党员”) （4）单击"刷新"按钮（名为"bt1"），事件过程动态设置窗体记录源为查询对象"qEmp"，实现窗体数据按性别条件动态显示；单击"退出"按钮（名为"bt2"），关闭窗体。 Form.recordsource=”qemp” Docmd.close 56、（5）在窗体中有一个"显示全部记录"命令按钮（名称为bList），单击该按钮后，应实现将"tStudent"表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 Select * from tstudent 可以参考这条语句上面的语句。 59、（5）在窗体中有一个"退出"命令按钮（名称为bQuit），单击该按钮后，应关闭"fStudent"窗体。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 Docmd.close 62、（5）在窗体中还有"修改"和"保存"两个命令按钮，名称分别为"CmdEdit"和"CmdSave"，其中"保存"命令按钮在初始状态为不可用，当单击"修改"按钮后，应使"保存"按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 cmdsave.enabled=true 70、（1）将窗体"fEmp"上文本框"tSS"更改为组合框类型，并保持控件名称不变； 同53题 （2）修改查询对象"qEmp"为参数查询，参数为引用窗体对象"fEmp"上文本框"tSS"的输入值； 同53题
基础题(1) 【解题思路】文本框控件的MultiLine属性用于设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许；Font属性用于设置控件标题中文本的字体、字号和字型等。Text属性用于设置文本框中显示的文本。窗体标题通过其Caption属性设置。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.110和表3.111。 表3.110 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】在窗体上建立控件后，先设置控件的属性，再编写事件过程。 单击命令按钮触发Click事件。利用按钮的Height和Width属性来改变按钮的大小；利用按钮的Left和Top属性来改变按钮的位置。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.112。 表3.112 步骤2：编写程序代码。 参考答案 Option Explicit Private Sub Cmd1_Click() Cmd1.Left = 0 Cmd1.Top = 0 End Sub
简单题(1) 【解题思路】Rnd()函数用于产生一个小于1但大于或等于0的随机数。 本题程序用变量Max记录最大数，最初把数组的第一个元素的值赋给Max，然后通过For循环语句将其后的元素依次与之比较，如果其值大于Max则将其赋值给Max，依次类推，最终Max 的值就是数组各元素中的最大值。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim arrN(30) As Integer Dim Max As Integer Randomize For i = 1 To 30 'arrN(i) = Int(Rnd * ？) Next i '? = arrN(1) For i = 2 To 30 'If ? Then Max = arrN(i) End If Next i Print Max End Sub 程序结束 参考答案 第1个？处填入：1000 第2个？处填入：Max 第3个？处填入：arrN(i) > Max或Max < arrN(i) 简单题(2) 【解题思路】本题要求的是1000以内能被5或7整除的数的个数。在Visual Basic中，使用Mod 运算符来判断一个数是否可以被另一个数整除，如果计算结果为0，则表示可以整除，否则不能
电子信息工程学系实验报告 课程名称：面向对象程序设计 实验项目名称： 实验六 窗体、标签、文本框和按钮 实验时间： 班级： 姓名： 学号： 一 实 验 目 的: 1)学会添加多个窗体。 2)掌握启动窗体和切换窗体。 3)掌握为窗体添加事件代码。 4)掌握标签在属性和事件代码。 5)掌握文本框属性和事件代码。 6)掌握按钮事件代码。 二 实 验 环 境: Windows XP Visual https://www.doczj.com/doc/f516690594.html, 2003 三 实 验 内 容 过 程 及 结 果 分 析: 一．窗体和控件应用 1.创建窗体 创建一个项目。由两个窗体组成。Form1用于输入用户名和用户密码，当输入正确时单击 确定按钮显 示form2，同时掩藏form1；当输入出错则提示出错，单击退出按钮结束程序；form2中显示“欢迎登录！“，单击form2中在返回按钮回到form1.并关闭form2 新建一个 项目form1，然后选择项目菜单在添加windows 窗体命令，添加一个窗体form2。 2设置启动窗体 本程序默认的启动窗体是form1.，选择项目菜单在属性命令，再单击启动对象选择form1如下图所 示：
3．界面设计如下图所示：对form1设计属性窗口如下： Form2的界面窗口如下图所示： 4.编写事件代码： 在窗体1的文本框中分别输入用户名和口令，单击确定按钮，当用户名为“abc”并且口令为“123”是显示窗体2，否则提示出错。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "abc" And TextBox2.Text = "123" Then Dim form2 As New Form2 form2.Show() Else MsgBox("请输入正确在用户名和密码！", MsgBoxStyle.Critical) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '单击"退出"按钮结束程序。 End End Sub End Class 在form2中单击“返回”按钮，卸载form2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '单击"返回"按钮，退出form2。 Me.Close() End Sub 5.保存和运行 单击文件菜单选择全部保存命令来保存项目和窗体form1、form2 程序运行后，输入正确在用户名和密码显示入下图：
基础题(1) 【解题思路】先将窗体的Caption属性设置为"鼠标光标形状"，然后再添加一个名称为Text1的文本框。通过文本框和窗体的MousePointer属性的设置，使鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。 【操作步骤】 步骤1：新建一个窗体，在窗体中添加一个窗体和一个文本框，然后按照题目要求设置控件属性。程序中用到的控件及属性见表3.78。 表3.78 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】通过标签的Name、Caption属性设置标签的名称和标题，通过命令按钮的Name、Caption属性设置命令按钮的名称和标题。 【操作步骤】 步骤1：建立界面，在窗体中添加3个文本框，一个命令按钮和两个标签控件。并设置控件的属性。程序中用到的控件及属性见表3.79和表3.80。 步骤2：打开代码编辑窗口，在指定位置编写代码。
参考答案 Private Sub Command1_Click() Text3 = Text1.SelLength Text2 = Text1.SelStart End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第35套第二大题的第二小题来进行同类知识点的练习。 简单题(1) 【解题思路】窗体载入时，通过滚动条的Min、Max属性设置两个滚动条的移动刻度值的范围，滚动条刻度值的范围是圆可以在矩形中移动的范围。形状控件的Top和Left属性值随着滚动条的V alue属性值的变化而改变，使水平滚动条的滚动块在最左边时，圆靠在矩形的左边线上，滚动块在最右边时，圆靠在矩形的右边线上。垂直滚动条的情况与此类似。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Form_load() HScroll1.Min = Shape2.Left 'HScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ? VScroll1.Min = Shape2.Top 'VScroll1.Max = Shape2.Height + ? - Shape1.Height HScroll1.Value = 1000 VScroll1.Value = 1000 End Sub Private Sub HScroll1_Change() '？= HScroll1.V alue End Sub Private Sub VScroll1_Change() 'Shape1.Top = ? End Sub 程序结束 参考答案 第1个？处填入：Width 第2个？处填入：Shape2.Top 第3个？处填入：Shape1.Left 第4个？处填入：VScroll1.Value 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
基础题(1)【解题思路】根据题意，须在命令按钮的Click事件过程中，将标签和文本框的Visible属性值设置为False，并用Print方法将文本框的内容输出到窗体上。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.99。 表3.99 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Form1.Print Text1.Text Label1.Visible = False Text1.Visible = False End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2)【解题思路】FontSize属性可用来设置文本框中字体的大小。Value属性用于设置滚动条滑块的当前位置值，当滚动框的位置改变时，触发Change事件。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.100。 表3.100 步骤2：编写程序代码。 参考答案 Private Sub HScroll1_Change()
Text1.FontSize = HScroll1.Value End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1)【解题思路】 通过InpatBox函数接收用户输入信息，在"添加项目"单击事件过程中，运用AddItem方法添加列表框内容，在"删除项目"单击事件中运用RemaneItem方法移除列表框内容。 【操作步骤】 步骤1：打开本题工程文件，添加一个名称为List1列表框和一个名称为Text1文本框，然后建立一个菜单，其属性见表3.101。 表3.101 步骤2 程序提供代码 Private Sub Add_Click() Text1.Text = InputBox("请输入要添加的项目") 'List1.AddItem ? End Sub Private Sub Delete_Click() Text1.Text = InputBox("请输入要删除的项目") 'For i = 0 To ? 'If List1.List(i) = ? Then 'List1.RemoveItem ? End If Next i End Sub 程序结束 参考答案 第1个？处填入：Text1.Text 第2个？处填入：List1.ListCount - 1
第6章窗体设计_习题 一、选择题 1．关于窗体，下列说法错误的是（）。D A．窗体可以用来显示表中的数据，并对表中的数据进行修改、删除等操作 B．窗体本身不存储数据，数据保存在表对象中 C．要调整窗体中控件所在的位置，应该使用窗体设计视图 D．未绑定型控件一般与数据表中的字段相连，字段就是该控件的数据源 2．在窗体中，用来输入和编辑字段数据的交互控件是（）。A A．文本框 B．标签 C．复选框D．列表框 3．若字段类型为是/否型，通常会在窗体中使用的控件是（）。C A．标签 B．文本框 C．复选框 D．组合框 4．如果窗体上输入的数据总是取自表或查询中的字段数据，或某固定内容的数据，可以使用________控件来显示该字段。C
A．文本框 B．选项组 C．列表框D．选项卡 5．下面关于列表框和组合框的叙述，正确的是（）。D A．在列表框和组合框中均不可以输入新值 B．可以在列表框中输入新值，而组合框不能 C．在列表框和组合框中均可以输入新值 D．可以在组合框中输入新值，而列表框不能 6．在使用向导为“学生”表创建窗体时，“照片”字段所使用的默认控件是（）。B A．图像框 B．绑定对象框 C．非绑定对象框 D．列表框 7．用来显示与窗体关联的表或查询中字段值的控件类型是（）。A A．绑定型 B．计算型 C．关联型D．未绑定型 8．要改变窗体上文本框控件的数据源，应设置的属性是（）。B A．记录源 B．控件来源 C．筛选查阅D．默认值 9．（）节在窗体每页的顶部显示信息。C A．主体 B．窗体页眉 C．页
面页眉
D．控件页眉 10．要在窗体首页使用标题，应在窗体页眉添加（）控件。A A．标签 B．文本框 C．选项组 D．图片 二、填空题 1．能够唯一标识某一控件的属性是________。名称 2．在纵栏式窗体、表格式窗体和数据表窗体中，将窗体最大化后显示记录最多的窗体是________。数据表窗体 3．插入到其他窗体中的窗体称为。子窗体 4．选项组中可存放的控件有、和。复选框，选项按钮，切换按钮。 5．通过设置“窗体”的属性可以设定窗体数据源。记录源 6．假设已在Access中建立了包含“书名”、“单价”和“数量”3个字段的图书表，以该表为数据源创建的窗体中，有一个计算定购总金额的文本框，其控件来源为。=[单价]*[数量] 三、问答题 1．简述窗体的作用、类型及窗体的6种视图。 答：窗体是一个为用户提供的可以输入和编辑数据的良好界面，主要作用有：在数据库中输入和显示数据，利用切换面板来