第8章 常用控件

1、8.1 常用控件8.2 小型案例实训8.3 本章小结第8章 常用控件l 掌握表单中常用控件的基本概念、属性、事件与方法。l 熟练使用常用控件8.1 常常 用用 控控 件件命令按钮组控件的基本属性如表命令按钮组控件的基本属性如表8-1所示。所示。8.1.1 命令按钮组控件命令按钮组控件属属 性性 名名功功 能能Autosize 是否自动调整按钮的大小Buttoncount按钮的数目Buttons访问按钮的数组Backstyle背景是否为透明Enabled按钮是否有效Value当值为1时，表示按下第一个命令按钮，当值为2时，表示按下第二个命令按钮，以此类推。通过生成器，我们可以对命令按钮组进行设通

2、过生成器，我们可以对命令按钮组进行设置，如图置，如图8-2所示。所示。图图8-1 命令按钮组控件命令按钮组控件 图图8-2 命令组生成器命令组生成器【实例【实例8-1】 命令按钮组示例。命令按钮组示例。要求：通过单击命令按钮组改变文本框中的字体，如图要求：通过单击命令按钮组改变文本框中的字体，如图8-3所示。所示。图图8-3 实例实例8-1的运行结果的运行结果在CommandGroup1的Click事件中输入以下代码：DoCaseCaseThis.Value=1Thisform.Text1.Fontname=宋体CaseThis.Value=2Thisform.Text1.Fontname=黑

3、体CaseThis.Value=3Thisform.Text1.Fontname=楷体_gb2312EndCase 8.1.2 选项按钮控件选项按钮控件选项按钮OptionGroup是包含一个或多个选项按钮的容器，通过它可以指定对话框中几个操作选项中的一个，而不用输入数据。本属性如表8-2所示。属性名称属性名称功功 能能Autosize 是否自动调整按钮的大小Buttoncount按钮的数目Buttons访问按钮的数组Backstyle背景是否为透明Enabled按钮是否有效Visible控件运行后是否可见Value当值为1时，表示选中第一个选项按钮，当值为2时，表示选中第二个选项按钮，以此类

4、推。【实例【实例8-2】 使用选项按钮，改变文本框中的字号，如图使用选项按钮，改变文本框中的字号，如图8-4所示。所示。图图8-4 实例实例8-2的运行结果的运行结果在OptionGroup1的Click事件中输入以下代码：DoCaseCaseThis.Value=1Thisform.Text1.Fontsize=20CaseThis.Value=2Thisform.Text1.Fontsize=30EndCase8.1.3 复选框控件复选框控件 复选框是一种逻辑框，当其处于被选中状态时，复选框内显示复选框是一种逻辑框，当其处于被选中状态时，复选框内显示“”符号，表示取符号，表示取.T.或者或

5、者1；否则，复选框内为空白。；否则，复选框内为空白。 属性名称说 明 Caption用来指定复选框右侧显示的文本Value用来指明复选框当前的状态，0，表示未被选中；1，表示被选中Controlsource指定与复选框选项建立联系的数据源【实例【实例8-3】 要求：通过单击复选框控件改变文本框中文字的粗体、斜体要求：通过单击复选框控件改变文本框中文字的粗体、斜体、下划线的状态，如图、下划线的状态，如图8-5所示。所示。在Check1的Click事件中输入以下代码：IfThisform.Check1.Value=1ThenThisform.Text1.Fontbold=.T.ElseThisfo

6、rm.Text1.Fontbold=.F.EndIf在Check2的Click事件中输入以下代码：IfThisform.Check2.Value=1ThenThisform.Text1.Fontitalic=.T.ElseThisform.Text1.Fontitalic=.F.EndIf在Check3的Click事件中输入以下代码：IfThisform.Check3.Value=1ThenThisform.Text1.Fontunderline=.T.ElseThisform.Text1.Fontunderline=.F.EndIf图图8-5 实例实例8-3运行结果运行结果8.1.3 复选框

7、控件复选框控件复选框是一种逻辑框，当其处于被选中状态时，复选框内显示“”符号，表示取.T.或者1；否则，复选框内为空白。属性名称说 明 Caption用来指定复选框右侧显示的文本Value用来指明复选框当前的状态，0，表示未被选中；1，表示被选中Controlsource指定与复选框选项建立联系的数据源【实例8-3】要求：通过单击复选框控件改变文本框中文字的粗体、斜体、下划线的状态，如图8-5所示。在Check1的Click事件中输入以下代码：IfThisform.Check1.Value=1ThenThisform.Text1.Fontbold=.T.ElseThisform.Text1.F

8、ontbold=.F.EndIf在Check2的Click事件中输入以下代码：IfThisform.Check2.Value=1ThenThisform.Text1.Fontitalic=.T.ElseThisform.Text1.Fontitalic=.F.EndIf在Check3的Click事件中输入以下代码：IfThisform.Check3.Value=1ThenThisform.Text1.Fontunderline=.T.ElseThisform.Text1.Fontunderline=.F.EndIf图图8-5 实例实例8-3运行结果运行结果8.1.4 列表框控件列表框控件列表框

9、用于显示供用户选择的列表，用鼠标单击即可选中其中的条目，将选定的选项(值)存储到字段或内存变量中。 1. 列表框控件的属性列表框控件的属性属性名称属性名称说说 明明Rowsourcetype指定列表框中条目数据源的类型。Rowsource指定列表框中的显示条目的来源 Controlsource数据控制源，即列表框中选择的选项值存储在何处，如字段、内存变量等 Movebars指定是否在列表框的右侧显示滚动条 Listcount指定列表框中数据条目的数目 Selected指定列表框中的条目是否处于选定状态 List存取列表框中数据条目的字符数组 Multiselect指定是否允许在列表框中进行多重

10、选定。0或.F.(默认值)表示不允许，1或.T.表示允许 Value返回列表框中被选定的条目。返回值可以是数值型(被选定条目的序号)，也可以是字符型(被选定条目的本身内容) 2. 列表框控件的事件列表框控件的事件列表框控件主要响应鼠标单击事件Click、双击事件Dblclick及列表框当前值发生变化的Interactivechange事件。3. 列表框控件的方法列表框控件的方法方法名称方法名称功功 能能Additem用于向列表框中添加列表项 Removeitem 用于从列表框中删除选定的选项 Clear用于清除列表框中的所有项目4. 生成器生成器可用生成器来设置列表框的列表项、样式、排列方式、

11、值可用生成器来设置列表框的列表项、样式、排列方式、值等等【实例8-4】使用表框示例实现以下功能：要求：单击“添加”按钮，可将文本框的内容添加到列表框中，单击“删除”按钮，可将列表框中被选中的项目删除，单击“清除”按钮，可将列表框中所有的项目清除，如图8-8所示。在在Command1的的Click事件中事件中输入以下代码：输入以下代码： Thisform.List1.Additem(Thisform.Text1.Value) 在在Command2的的Click事件中事件中输入以下代码：输入以下代码： Thisform.List1.Removeitem(Thisform.List1.Listind

12、ex) 在在Command3的的Click事件中事件中输入以下代码：输入以下代码： Thisform.List1.Clear图图8-8 实例实例8-4的运行结果的运行结果【实例8-4】使用表框示例实现以下功能：要求：单击“添加”按钮，可将文本框的内容添加到列表框中，单击“删除”按钮，可将列表框中被选中的项目删除，单击“清除”按钮，可将列表框中所有的项目清除，如图8-8所示。在Command1的Click事件中输入以下代码：Thisform.List1.Additem(Thisform.Text1.Value)在Command2的Click事件中输入以下代码：Thisform.List1.Rem

13、oveitem(Thisform.List1.Listindex)在Command3的Click事件中输入以下代码：Thisform.List1.Clear图图8-8 实例实例8-4的运行结果的运行结果【实例8-5】利用列表框实现：输入读者编号、读者姓名、性别，选择所在院系、类别后，单击“插入信息”按钮，可将信息插入到Reader表中，如图8-10所示。在在Command1的的Click事件中输事件中输入以下代码：入以下代码： Id=Thisform.Text1.ValueXm=Thisform.Text2.ValueXb=Thisform.Text3.ValueYx=Thisform.Lis

14、t1.ValueLb=Val(Thisform.List2.Value)Insert Into Reader Values(Id,Xm,Xb,Yx,Lb)图图8-10 实例实例8-5的运行结果的运行结果8.1.5 组合框控件组合框控件组合框兼有文本框与列表框的功能，主要用于从列表项中选取其中的选项或者重新输入选项。实际上，组合框又可分为两种：下拉组合框和下拉列表框。组合框的Style属性值为0，则成为允许用户输入新选项的下拉组合框；而Style属性为2时，则成为只允许从下拉列表中选择的下拉列表框。 【实例8-6】使用组合框实现：在“图书编号：”组合框中选择一个图书的编号，则在列表框中显示借阅该

15、书的所有读者编号，如图8-12所示。在在Combo1的的Click事件中输事件中输入以下代码：入以下代码： Id=Alltrim(Thisform.Combo1.Value)Select Cardid From Borrow Where Bookid=Id Into Cursor TempidThisform.List1.Rowsource=TempidThisform.Refresh图图8-12 实例实例8-6运行结果运行结果8.1.6 编辑框控件编辑框控件编辑框控件的功能是输入、显示、编辑多行文本信息，但只能编辑长的字符型数据、备注型数据和字符型内存变量。 属性名称属性名称说说 明明 Hi

16、deselection 编辑框控件失去焦点时，选中的文本是否仍显示为选定状态 Readonly 只读属性，指定用户能否编辑编辑框中的内容 Scrollbars 编辑框是否有垂直滚动条 Controlsource 控件所绑定的数据源，即编辑框中文本的来源及保存在哪里 Selstart 返回编辑框中所选定文本的起始点位置或插入点位置，仅在运行时可用Sellength 返回编辑框内选定文本字符的数目，仅在运行时可用Seltext 返回编辑框内选定的文本，仅在运行时可用8.1.7 计时器控件计时器控件计时器控件用于在程序中按照一定的时间间隔触计时器控件用于在程序中按照一定的时间间隔触发和执行某一操作。

17、发和执行某一操作。 属性名称说 明 Interval 指定定时间隔的时间，即Timer事件发生的时间间隔(单位为毫秒)Enabled 属性值为.T.时表示启动计时器，为.F.则终止计时器 计时器控件的常用事件为Timer事件，由Interval属性指定的毫秒数触发一些周期性的动作程序。【实例8-7】使用计时器控件在表单中显示可移动的文字，如图8-13所示。设置设置Timer1的的interval属性值为属性值为100在在Timer1的的Timer事件中输入以下代事件中输入以下代码：码： Thisform.Label1.Left=Thisform.Label1.Left+10 在在Command

18、1的的Click事件中输入以下事件中输入以下代码：代码： Thisform.Timer1.Enabled=.T. 在在Command2的的Click事件中输入以下事件中输入以下代码：代码： Thisform.Timer1.Enabled=.F.图图8-13 实例实例8-7的运行结果的运行结果8.1.8 表格控件表格控件表格控件是一种功能非常强大的容器类对象控件，在VisualFoxPro中通常用来显示或维护数据表中的数据记录，或者用于处理一对多关系的数据表。属性名称属性名称说说 明明 Columncount 用于指定表格的列数Recordsource 指定表格控件的数据源，一般设定为一个表 R

19、ecordsourcetype 指定表格数据源的类型，一般为表、别名、查询和SQL说明等 Controlsource 指定列的数据源，一般设置为表中的字段 Allowaddnew 指定是否可以将表格中的新记录添加到表中 Readonly 指定是否允许编辑控件 通过表格生成器，可以对表格进行设置通过表格生成器，可以对表格进行设置。【实例【实例8-8】使用表格控件显示】使用表格控件显示Book表中的数据，根据输入的出版社名称表中的数据，根据输入的出版社名称查询该出版社所出图书的情况，如图查询该出版社所出图书的情况，如图8-15所示。所示。在Command1的Click事件中输入以下代码：Cb=Al

20、ltrim(Thisform.Text1.Value)Select*FromBookWherePublish=CbIntoCursorTempcbThisform.Grid1.Recordsource=TempcbThisform.Refresh 图8-15实例8-8的运行结果8.1.9 页框控件页框控件页框也是一个容器控件，包含多个页面，可在每个页面中添加其他控件。在一个表单上通过切换不同的页面可获得不同的内容。 属性或事件属性或事件 说说 明明 Pagecount指定页框中所包含的页面个数，系统默认为2 Tabstyle 指定页框中的页面是否大小相等，是否与页框的宽度相同 Tabs 指定页框中是否显示页面标签，.T.为显示，.F.为不显示 Activepage返回当前页框中活动页面的页号或指定页框中第几个页面为活动页面 【实例【实例8-9】使用页框，在一