《第8章表单控件》由会员分享，可在线阅读，更多相关《第8章表单控件（107页珍藏版）》请在金锄头文库上搜索。
1、Visual foxpro 漳州师范学院计算中心Visual FoxPro 6.0Visual FoxPro 6.0 程序设计与应用教程程序设计与应用教程程序设计与应用教程程序设计与应用教程漳州师范学院漳州师范学院计算中心计算中心2003.92003.9Visual foxpro 漳州师范学院计算中心第八章表单控件表单控件Visual foxpro 漳州师范学院计算中心表单控件的常用属性表单控件的常用属性、方法、方法、 事件和事件和主主要功能要功能本章学习要点本章学习要点 8/15/2024Visual foxpro 漳州师范学院计算中心 简简 介介VFP有有21个基类控件，可分为个基类控件，
2、可分为5大类：大类：1.输出类输出类：标签、图像、线条、形状：标签、图像、线条、形状2.输入类输入类：文本框、编辑框、微调控件、列表框、：文本框、编辑框、微调控件、列表框、 组合框组合框3.控制类控制类：命令按钮、命令按钮组、复选框、：命令按钮、命令按钮组、复选框、 选项按钮组、计时器选项按钮组、计时器4.多重容器类多重容器类：表格、页框、：表格、页框、Container容器容器5.连接类连接类：ActiveX控件、控件、ActiveX绑定控件、超级链接绑定控件、超级链接控件控件 以上分类仅是按控件的主要功能，其实每个控件都有很多特性，例如：一般的控件都可起到控制的作用，因为都含有Click事
3、件。 8/15/2024Visual foxpro 漳州师范学院计算中心常用控件的公共属性常用控件的公共属性name：控控件件的的名名称称，它它是是代代码码中中访访问问控控件件的的标标识识（表表单或表单集除外）。单或表单集除外）。Fontname：字体名。字体名。Fontbold：字体样式为粗体。字体样式为粗体。Fontsize：字体大小。字体大小。Fontitalic：字体样式为斜体。字体样式为斜体。Forecolor：前景色。前景色。Height：控件的高度控件的高度Width：控控件件的的宽宽度度。控控件件的的高高度度和和控控件件的的宽宽度度，也也可可在设计时通过鼠标拖曳进行可视化调整。
4、在设计时通过鼠标拖曳进行可视化调整。Visible：控件是否显示。控件是否显示。Enable：控控件件运运行行时时是是否否有有效效。如如果果为为 .T.，则则表表示示控件有效，否则运行时控件不可使用。控件有效，否则运行时控件不可使用。 8/15/2024Visual foxpro 漳州师范学院计算中心8.1输出类控件输出类控件8.1.18.1.1 标签标签( (label)label) 在表单中，标签对象常被用来显示一些说明信息、在表单中，标签对象常被用来显示一些说明信息、对象标题等信息对象标题等信息1.1.标签的创建标签的创建 ( (1)1)利用表单控件工具栏利用表单控件工具栏 ( (2)2
5、)从数据环境的表中拖一字段至表单上从数据环境的表中拖一字段至表单上表单上创建的第表单上创建的第1 1个标签名：个标签名：Label1Label1n属性选介属性选介CaptionCaption：用于指定标签对象的标题，是字符型数据用于指定标签对象的标题，是字符型数据AutosizeAutosize：为为. .T.T.时，标签对象将根据其内容自动地时，标签对象将根据其内容自动地改变大小，缺省为改变大小，缺省为. .F.F. 8/15/2024Visual foxpro 漳州师范学院计算中心WordWrapWordWrap：为为. .T.T.时，标签的内容可实现自动换行时，标签的内容可实现自动换行(
6、 (Auto sizeAuto size应为应为. .T.)T.)BackStyleBackStyle：为为0 0时，使标签对象透明，缺省为时，使标签对象透明，缺省为1 1，不，不透明透明BorderStyleBorderStyle：指定标签对象的边框风格，为指定标签对象的边框风格，为0 0无边框，无边框，为为1 1时，单线框时，单线框n两种设置属性的方法两种设置属性的方法：1.1.在属性窗口中设置在属性窗口中设置2.2.用事件代码设定用事件代码设定n说明说明：字符型属性在属性窗口中设置时，不用界限：字符型属性在属性窗口中设置时，不用界限符号，而用代码时则要。符号，而用代码时则要。如：如：TH
7、ISFORM.THISFORM.label1label1.Caption=.Caption=“学生学号学生学号” 8/15/2024Visual foxpro 漳州师范学院计算中心8.1.2 图像、线条、形状图像、线条、形状1.图像图像 图像控件可支持的图像文件类图像控件可支持的图像文件类型有：型有：BMP、JPG、ICO、GIF等等表单及表单中对象的图像创建方法：表单及表单中对象的图像创建方法： 利用表单控件工具栏利用表单控件工具栏表单中创建的第表单中创建的第1个图像名：个图像名：Image1设置值设置值描述描述0剪裁剪裁(默认默认) 图像按剪贴方式来适应控件图像按剪贴方式来适应控件1等比填
8、充等比填充 调整图像大小来适应控件，保持原比例调整图像大小来适应控件，保持原比例2变比填充调整图像大小来适应控件，不保持原比例变比填充调整图像大小来适应控件，不保持原比例属性选介属性选介Picture:在属性窗口中为表单或对象指定一个图像文件在属性窗口中为表单或对象指定一个图像文件Stretch：图像如何调整大小适应图像如何调整大小适应Image控件控件 8/15/2024Visual foxpro 漳州师范学院计算中心2. 线条线条(Line) 画水平线画水平线(height=0)、垂直线垂直线(width=0)、斜线。斜线。在表单中创建的第在表单中创建的第1 个线条对象名：个线条对象名：L
9、ine1属性选介属性选介 LineSlant：斜线方向属性斜线方向属性( 或或 / )3. 形状形状(Shape)画圆、椭圆、正方形、矩形、圆角矩形、圆角正方形画圆、椭圆、正方形、矩形、圆角矩形、圆角正方形在表单中创建的第在表单中创建的第1个形状对象名：个形状对象名：Shape1 Curvature：确定圆角大小。确定圆角大小。CurvatureWidth=heightWidthheight0正方形正方形长方形长方形1 99小圆角正方形小圆角正方形大圆角大圆角正方形正方形圆圆小圆角矩形小圆角矩形大圆大圆角矩形椭角矩形椭圆圆 8/15/2024Visual foxpro 漳州师范学院计算中心例例
10、8.1 设计如图所示的应用程序封面设计如图所示的应用程序封面 表单文件表单文件P8-1.scx 8/15/2024Visual foxpro 漳州师范学院计算中心说明说明：表单设置在桌面上，无标题栏，封面文字放：表单设置在桌面上，无标题栏，封面文字放在水平中间，垂直在水平中间，垂直1/3处。必须将标签的文字定位代处。必须将标签的文字定位代码编写在表单的码编写在表单的Activate事件中，若编写在表单的事件中，若编写在表单的init事件中，因此时表单尚未最大化，而表单大小与事件中，因此时表单尚未最大化，而表单大小与位置要依表单大小确定的。位置要依表单大小确定的。完成后再添加一个形状完成后再添加
11、一个形状属性参照属性参照P196表表8-3设置设置 8/15/2024Visual foxpro 漳州师范学院计算中心8.2 输入类控件输入类控件输入类控件有：文本框、编辑框、列表框、和组合输入类控件有：文本框、编辑框、列表框、和组合框。其中列表框和下拉列表框只能让用户选择数据，框。其中列表框和下拉列表框只能让用户选择数据，其余控件都可接受用户从键盘输入数据。其余控件都可接受用户从键盘输入数据。8.2.1 文本框文本框(TextBox)文本框可供用户输入、编辑数据。文本框可供用户输入、编辑数据。文本框可接受的数据类型有：文本框可接受的数据类型有：C、N、D、L型。型。创建文本框对象的方法有两种
12、：创建文本框对象的方法有两种：(1) 利用表单工具栏的文本框按钮利用表单工具栏的文本框按钮(2) 从数据环境中拖一字段至表单中从数据环境中拖一字段至表单中 8/15/2024Visual foxpro 漳州师范学院计算中心1.属性选介属性选介Value：指定文本框中对象的值，属性值可以是指定文本框中对象的值，属性值可以是C、N、D或或L型。型。说明：文本框中只能输入一段的数据说明：文本框中只能输入一段的数据(只接受一次回车只接受一次回车)ControlSource：文本框的控制数据源。文本框的控制数据源。Format：指定指定Value值的约束格式。值的约束格式。Format属性是为属性是为整
13、个文本框整个文本框规定一个格式。规定一个格式。P197表表设置值设置值描描 述述A只只允许字母字符允许字母字符K当当光标移到文本框上时光标移到文本框上时,框中数据就被选定框中数据就被选定L在在文本框中显示数据的前导文本框中显示数据的前导0(取代空格取代空格)。只有数值可用。只有数值可用T截去输入字段中的前导空格和尾随空格截去输入字段中的前导空格和尾随空格!转换小写字母到大写字母，仅用在字符型数据转换小写字母到大写字母，仅用在字符型数据 8/15/2024Visual foxpro 漳州师范学院计算中心InputMask（输入掩码）：约束文本框中指定位置输入掩码）：约束文本框中指定位置字符的格式
14、。字符的格式。该属性规定文本框中该属性规定文本框中指定位置字符指定位置字符的格式。的格式。显示当前的货币符号显示当前的货币符号$指定小数点的位置指定小数点的位置.允许输入数字、空格和正负号允许输入数字、空格和正负号#只只允许输入数字与正负号允许输入数字与正负号9只只允许输入字母允许输入字母A可可键入任何字符键入任何字符X描述描述设置值设置值，分隔小数点左边的数字串分隔小数点左边的数字串 8/15/2024Visual foxpro 漳州师范学院计算中心例：设置文本框的例：设置文本框的Value：字符型数据字符型数据 (无无)、InputMask：AAA表示文本框中只接受字母字符、且最多为表示文
15、本框中只接受字母字符、且最多为3位位例：设置文本框的例：设置文本框的Value：字符型数据字符型数据 (无无)、InputMask：9999-9999999表示文本框中只接受数字字符型数据表示文本框中只接受数字字符型数据 8/15/2024Visual foxpro 漳州师范学院计算中心ReadOnly:指定文本框是否允许编辑指定文本框是否允许编辑 .F.允许允许 (默认默认) .T.只读只读Alignment:指定文本框中数据对齐方式指定文本框中数据对齐方式, 0- 左对齐左对齐, 1-右对齐右对齐 , 2- 居中居中, 3- 自动自动(默认默认),此时对齐方式与此时对齐方式与Value的数
16、据类型有的数据类型有关关,N型右对齐型右对齐,其余左对齐其余左对齐 。PasswordChar:指定文本框所键入字符的显示符号，指定文本框所键入字符的显示符号， 该属性不影响该属性不影响Value的值。的值。 8/15/2024Visual foxpro 漳州师范学院计算中心2. 方法选介方法选介SetFocus：为文本框对象设置当前焦点为文本框对象设置当前焦点 设置为焦点后操作所作的输入都是针对它的设置为焦点后操作所作的输入都是针对它的如：如：Thisorm.text1.setfocus3. 事件选介事件选介(1)When：文本框获得焦点前发生文本框获得焦点前发生(2)GotFocus：文本
17、框获得焦点时发生文本框获得焦点时发生(3)Valid：文本框失去焦点前发生文本框失去焦点前发生 (4)LostFocus：文本框失去焦点时发生文本框失去焦点时发生(5)KeyPress：当在文本框中按动键时发生当在文本框中按动键时发生 (6) InteractivateChange:当用户用键盘当用户用键盘 或鼠标改变或鼠标改变文本框对象的值时发生。文本框对象的值时发生。 8/15/2024Visual foxpro 漳州师范学院计算中心4. 文本框生成器文本框生成器生成器可用来设置生成器可用来设置常用属性常用属性。但不能设置所有属性。但不能设置所有属性。(且不是所有控件都有生成器。且不是所有
18、控件都有生成器。)例：文本框中的例：文本框中的Value、ControlSource、InputMask、Enabled.可用生成器来设置。可用生成器来设置。文本生成器的打开文本生成器的打开 右键单击控件选择右键单击控件选择 8/15/2024Visual foxpro 漳州师范学院计算中心文本生成器包括：格式、样式、值三个选项卡文本生成器包括：格式、样式、值三个选项卡1. 格式选项卡格式选项卡(1)数据类型数据类型：表示文本框的数据类型：表示文本框的数据类型(2)仅字母表中的字符仅字母表中的字符：表示文本框中只允许字母字：表示文本框中只允许字母字符，符，(相当于相当于Format中的格式码中
19、的格式码“A”)(3)显示前导零显示前导零：显：显示数字中小数点左示数字中小数点左的前导的前导0。(相当相当Format中的格式码中的格式码“L”) 8/15/2024Visual foxpro 漳州师范学院计算中心(4)进入时选定进入时选定：表示当非空的文本框获得焦点时，框：表示当非空的文本框获得焦点时，框中数据就被选定中数据就被选定(相当相当Format中的格式码中的格式码“K”)(5)隐藏显示内容隐藏显示内容：表示当文本失去焦点时，框中所选：表示当文本失去焦点时，框中所选定数据的选定状态就被取消，否则，所选定仍将保定数据的选定状态就被取消，否则，所选定仍将保持选定状态持选定状态( 相应于
20、相应于Hide Selection属性属性)(6)在运行时启用在运行时启用：表示：表示文本框是否可用；文本框是否可用；(选中选中相当于相当于Enable=.T.)(7)使其只读使其只读：表示是否：表示是否禁止文本框中的数据禁止文本框中的数据(选选中对应中对应ReadOnly的的.T.)(8)输入掩码输入掩码：对应：对应InputMask属性。属性。 8/15/2024Visual foxpro 漳州师范学院计算中心2. 样式选项卡样式选项卡(1)特殊效果特殊效果：“三维三维” 和和“平面平面” (对应对应 SpecialEffect 属性属性 3D、Plain)(2)边框边框：“单线单线”和和
21、“无无”(对应对应BorderStyle属性的属性的单线框和无边框单线框和无边框(3)字符对齐方式字符对齐方式：对应：对应Alignment属性属性(4)调整文本框尺寸调整文本框尺寸：调：调整文本框的大小，使其恰整文本框的大小，使其恰好容纳数据好容纳数据(应与应与InputMast配合配合) 8/15/2024Visual foxpro 漳州师范学院计算中心3.值选项卡值选项卡 对应对应ControlSource属性，可利用该字段名组合框属性，可利用该字段名组合框的列表指定表或视图中的某一项。的列表指定表或视图中的某一项。 8/15/2024Visual foxpro 漳州师范学院计算中心例例
22、8.2 某铁路上共有某铁路上共有n(1)个个车站，需要准备多少种车票车站，需要准备多少种车票？设任两个车站都有往返车？设任两个车站都有往返车票。票。表单文件表单文件P8-2.scxCommand1Command1的的ClickClick事件代码事件代码IF THISFORM.TEXT1.VALUE=1 RETURNENDIFS=0FOR M=1 TO THISFORM.TEXT1.VALUE FOR N=2 TO THISFORM.TEXT1.VALUE S=S+1 ENDFORENDFORTHISFORM.TEXT2.VALUE=STHIS.ENABLED=.F.THISFORM.COMMA
23、ND2.ENABLED=.T.Command2Command2的的ClickClick事件代码事件代码THISFORM.TEXT1.VALUE=0THISFORM.TEXT2.VALUE=0THIS.ENABLED=.F.THISFORM.COMMAND1. ENABLED=.T. 8/15/2024Visual foxpro 漳州师范学院计算中心例例8.3 设计如图表单，任设计如图表单，任意设置圆形的大小和颜意设置圆形的大小和颜色。色。 表单文件表单文件P8-3.scx命令按钮确定命令按钮确定ClickClick事件代码事件代码thisform.shape1.height=val(thisf
24、orm.text1.value)thisform.shape1.width=thisform.shape1.heightif val(thisform.text2.value)255 returnendifif val(thisform.text3.value)255 returnendifif val(thisform.text4.value)255 returnendifthisform.shape1.backcolor=rgb(val(thisform.text2.value), val(thisform.text3.value),val(thisform.text4.value) re
25、turn 8/15/2024Visual foxpro 漳州师范学院计算中心8.2.2 编辑框编辑框利用编辑框控件可实现文本数据的输入与编辑，其利用编辑框控件可实现文本数据的输入与编辑，其中的文本可以是一段或多段。中的文本可以是一段或多段。(编辑框常用于绑定备注型字段编辑框常用于绑定备注型字段)1. 属性选介属性选介Value：用于指定编辑框的值，并在框中显示。只能用于指定编辑框的值，并在框中显示。只能C型。可输入多段数据。型。可输入多段数据。ScrollBar：为为2时，当编辑框包含的数据超出编辑框时，当编辑框包含的数据超出编辑框时，出现垂直滚动条，为时，出现垂直滚动条，为0时无滚动条时无滚
26、动条ControlSource：设置编辑框对象的数据源。一般为设置编辑框对象的数据源。一般为备注型字段备注型字段 8/15/2024Visual foxpro 漳州师范学院计算中心SelText：返回用户在编辑框中所选定的文本内容，该返回用户在编辑框中所选定的文本内容，该属性不在属性窗口中设置，在代码中设置属性不在属性窗口中设置，在代码中设置.例：例：Thisform.edit1.value=Thisform.edit2.seltextThisform.edit1.seltext=Thisform.edit2.seltext将将edit2中选中的内容复制到中选中的内容复制到edit1中。中。S
27、elstart：指定用户在文本框或编辑框中选定内容的起指定用户在文本框或编辑框中选定内容的起始位置，第一个字符位置为始位置，第一个字符位置为0Sellength：指定指定 返回用户在文本框或编辑框中选定内返回用户在文本框或编辑框中选定内容的长度容的长度例：选中表单编辑例：选中表单编辑edit1从第从第4个字符开始的个字符开始的6个字符个字符 THISFORM.Edit1.Setfocus 须先获得焦点须先获得焦点 THISFORM.Edit1.Selstart=3 THISFORM.Edit1.Sellength=6 8/15/2024Visual foxpro 漳州师范学院计算中心例例8.4
28、 设计表单，实现在一个编辑框中查找另一个编设计表单，实现在一个编辑框中查找另一个编辑框选定项内容。辑框选定项内容。 表单文件表单文件P8-4 .scxCommand1的的Click事件代码事件代码if !empty(thisform.edit1.seltext) findstring=alltrim(thisform.edit1.seltext) loc=at(findstring,thisform.edit2.value) if loc=0 thisform.label3.caption=未找到字符串未找到字符串 else thisform.label3.caption=找到字符串找到字符串
29、 thisform.edit2.setfocus thisform.edit2.selstart=loc-1 thisform.edit2.sellength=len(findstring) endifelse thisform.label3.caption=请在左边编辑框中选定要查找的字符串请在左边编辑框中选定要查找的字符串endif 8/15/2024Visual foxpro 漳州师范学院计算中心例例8.5 设计如图表单，利用剪贴板实现文本框选定内设计如图表单，利用剪贴板实现文本框选定内 容复制到编辑框中，要求如下：容复制到编辑框中，要求如下： 在文本框中选定内容后在文本框中选定内容后
30、，“复制复制”命令按钮被激活命令按钮被激活 若若“复制复制”命令按钮按下，实现文本框选定内容粘贴命令按钮按下，实现文本框选定内容粘贴到编辑框位置。到编辑框位置。 表单文件表单文件P8-5 .scx 8/15/2024Visual foxpro 漳州师范学院计算中心Command1(Command1(复制复制) )的的ClickClick事件代码事件代码_CLIPTEXT=THISFORM.Text1.SelTextTHIS.Enabled=.F.THISFORM.Command2.Enabled=.T.Command2(Command2(粘贴粘贴) )的的ClickClick事件代码事件代码T
31、HISFORM.Edit1.SelText=_CLIPTEXTTHISFORM.Edit1.SetFocusText1(Text1(文本框文本框) )的的MouseUpMouseUp事件代码事件代码LPARAMETERS nButton, nShift, nXCoord, nYCoord*判断判断Text1中是否有选定内容，有则中是否有选定内容，有则Command1IF LEN(THIS.SelText)0 THISFORM.Command1.Enabled=.T.ENDIFForm1Form1的的InitInit事件代码事件代码THISFORM.Text1.SetFocus_CLIPTEXT
32、=&清空剪贴板，清空剪贴板，_CLIPTEXT是一系统内是一系统内存变量，用于提供剪贴板内容。存变量，用于提供剪贴板内容。将将选选定定内内容容复复制制到到剪剪贴贴板板 8/15/2024Visual foxpro 漳州师范学院计算中心8.2.3 列表框与组合框列表框与组合框 列表框与组合框都有一个可选择单项或多项选项的列表框与组合框都有一个可选择单项或多项选项的列表，列表框全部显示，组合框只显示一项，只在单列表，列表框全部显示，组合框只显示一项，只在单击右端向下按钮才显示列表，组合框分为下拉组合框击右端向下按钮才显示列表，组合框分为下拉组合框(可输入可输入)和下拉列表框和下拉列表框1.属性选介
33、属性选介ColumnCount： 指定列表框或组合框的列数指定列表框或组合框的列数Style：组合框属性，如下表：组合框属性，如下表：属性值组合框类型功能0下拉组合框 即可在列表框中选项，也可在组合框中输入一个值2下拉列表框 仅可在列表框中选项 8/15/2024Visual foxpro 漳州师范学院计算中心值值源类型源类型说说 明明0无无缺省值，运行时用缺省值，运行时用Additem或或Addlistitem方法添加列表项方法添加列表项1值值Rowsource应设置逗号分隔的数据项来填应设置逗号分隔的数据项来填充列充列2别名别名Rowsource应设置表名，表由数据环境提应设置表名，表由数
34、据环境提供，用供，用ColumnCount确定字段数确定字段数3SQL语句语句Rowsource应设置应设置SQL SELECT命令以选命令以选出记录，出记录， SQL SELECT应包括应包括INTO子项，子项，以创建一个临时表或表以创建一个临时表或表4查询查询(.qpr)Rowsource应设置一个应设置一个.QPR文件名文件名RowSourceType：指定列表框或组合框数据类型。共指定列表框或组合框数据类型。共有有9类，如下表：类，如下表： 8/15/2024Visual foxpro 漳州师范学院计算中心值值源类型源类型说说 明明5数组数组Rowsource应设置数组名应设置数组名6
35、字段字段Rowsource应设置逗号分隔的字段应设置逗号分隔的字段列表，字段首有表名前缀，表来自列表，字段首有表名前缀，表来自数据环境数据环境7文件文件Rowsource应设置路径，可用通配应设置路径，可用通配符或掩码，结果以目录与文件名填符或掩码，结果以目录与文件名填充充8结构结构Rowsource应设置表名，结果以该应设置表名，结果以该表字段名来填充列表字段名来填充列9弹出式菜弹出式菜单单为与以前版本兼容而设置为与以前版本兼容而设置 8/15/2024Visual foxpro 漳州师范学院计算中心RowSource：指定列表框数据源。必须与指定列表框数据源。必须与RowSourceTyp
36、e 匹配匹配Listcount：返回组合框或列表框中返回组合框或列表框中列表项的个数列表项的个数（行行数数） 例例:Thisform.Combo1.Listcount 可可返回组合框中行返回组合框中行数数Value：返回组合框或列表框中选定行的内容。对于多返回组合框或列表框中选定行的内容。对于多列式列表框，选定项中的哪一列作为列式列表框，选定项中的哪一列作为Value属性值，属性值，决定于决定于BoundColumn属性。属性。Tbo1.boundcolumn=5Thisform.print(Tbo1.Value) 8/15/2024Visual foxpro 漳州师范学院计算中心Displa
37、yValue：返回组合返回组合框中显示的文本内容框中显示的文本内容如如:thisform.print(bo1.displayvalue)MultiSelected：指定用户是否在指定用户是否在列表框列表框中进行多重选择。中进行多重选择。( .T.允许、允许、.F.不允许，用不允许，用Ctrl、Shift配合配合)BoundColumn：指定哪一列作为指定哪一列作为Value属性的值属性的值，缺省，缺省第第1列。列。Columncount：显示的列数显示的列数ControlSource：指定指定Value值值存储的绑定字段存储的绑定字段。ListIndex：返回组合框或列表框中选定项的顺返回组合
38、框或列表框中选定项的顺序号序号例：例：thisform.print(bo1.listindex) thisform.list1.listindex=2 8/15/2024Visual foxpro 漳州师范学院计算中心List：返回组合框或列表框行号，列号的内容返回组合框或列表框行号，列号的内容格式：格式：Object.List(行号行号,列号列号) 例：例：thisform.print(bo1.list(3,2)Selected：当某一项被选中时，当某一项被选中时，Selected属性返回属性返回.T.，否则为否则为.F.格式：格式：Object.Selected(N)=Lexpr 例：例：
39、Tbo1.selected(3)=.t.FirstElement：当数据类型为当数据类型为数组数组时指定数组中第一个时指定数组中第一个显示在列表框或组合框中的元素显示在列表框或组合框中的元素 例：例：Tbo1.firstelement=2NumberofElements：当数据类型为当数据类型为数组数组，指定一个数，指定一个数组中有多少项用来填充组合框或列表框组中有多少项用来填充组合框或列表框 例：例：bo1.NumberofElements=3 8/15/2024Visual foxpro 漳州师范学院计算中心2. 方法选介方法选介(1)AddItem：当组合框或列表框的当组合框或列表框的R
40、owSourceType属性为属性为0时，使用本方法程序时，使用本方法程序可在列可在列表中添加一个新项表中添加一个新项格式：格式：Object.Additem(cItem,行号行号)(2)RemoveItem：当组合框或列表框的当组合框或列表框的Row Source Type属性为属性为0时，使用本方法程序时，使用本方法程序可在列表中删除一可在列表中删除一项项。格式：格式：Object.RemoveItem(n)说明：说明：n为数值表达式，取值范围为数值表达式，取值范围1Listcount(3)Clear：清除列表框中的所有项清除列表框中的所有项 8/15/2024Visual foxpro
41、漳州师范学院计算中心3.事件选介事件选介(1)InteractiveChange：当列表框或组合框值发生当列表框或组合框值发生改变时触发改变时触发(2)Click：当用户单击列表框或组合框时触发当用户单击列表框或组合框时触发【例例8.6】列表框的应用：按下图设计一个表单。要】列表框的应用：按下图设计一个表单。要求表单运行时，求表单运行时，LIST1列表框显示列表框显示STUD表的所有字表的所有字段，单击左箭头按钮时，段，单击左箭头按钮时，LIST1中选择的字段加入到中选择的字段加入到LIST2中。中。表单文件表单文件P8-6 .scx 8/15/2024Visual foxpro 漳州师范学院
42、计算中心操作步骤：操作步骤： 按按图图所所示示在在表表单单中中加加入入二二个个列列表表框框、二二个个标标签签、二二个命令按钮。个命令按钮。 在表单的在表单的INIT事件中加入如下代码：事件中加入如下代码：thisform.list1.value=0 thisform.list2.value=0open database xsgluse studentfor i=1 to fcount() thisform.list1.additem(fields(i)nextclose database 8/15/2024Visual foxpro 漳州师范学院计算中心 在在右右向向箭箭头头按按钮钮(添添加加
43、)COMMAND1的的CLICK事事件件中中加入如下代码：加入如下代码：if thisform.list1.value=0 returnendiffor i=1 to thisform.list2.listcount if thisform.list1.listitemthisform.list1.value= thisform.list2.list(i) messagebox(已有已有该该字段了字段了) return endifendforthisform.list2.addlistitem(thisform.list1. listitemthisform.list1.value) 8/15
44、/2024Visual foxpro 漳州师范学院计算中心在在左左向向箭箭头头按按钮钮(删删除除)COMMAND2的的CLICK事事件件中中加入如下代码：加入如下代码：if thisform.list2.value=0 or thisform.list2.listindex=0 return endifthisform.list2.removeitemthisform.list2.value在在双双左左向向箭箭头头按按钮钮(=60 =60 INTO ARRAY INTO ARRAY X XTHISFORM.TEXT1.VALUE=X(1)THISFORM.TEXT1.VALUE=X(1)THI
45、SFORM.LIST1.REFRESHTHISFORM.LIST1.REFRESHTHISFORM.TEXT1.REFRESHTHISFORM.TEXT1.REFRESH 8/15/2024Visual foxpro 漳州师范学院计算中心8.2.4 微调控件微调控件(Sprinner) 用于接受给定范围之内的数值输入，既可以键盘输用于接受给定范围之内的数值输入，既可以键盘输入也可以单击控件的上下箭头按钮增减当前值。入也可以单击控件的上下箭头按钮增减当前值。1 1. . 属性选介属性选介 ValueValue：表示微调控件的当前值表示微调控件的当前值 KeyBoardHighValue KeyB
46、oardHighValue：设定键盘输入数值上限设定键盘输入数值上限 KeyBoardLowValueKeyBoardLowValue：设定键盘输入数值下限设定键盘输入数值下限 SpinnerHighValueSpinnerHighValue：设定微调数值上限设定微调数值上限 SpinnerLowValue SpinnerLowValue：设定微调数值下限设定微调数值下限 8/15/2024Visual foxpro 漳州师范学院计算中心 increment increment：微调增量值微调增量值 InputMaskInputMask：设置输入掩码设置输入掩码 ControlSource：设
47、置微调控件的数据源，只能是设置微调控件的数据源，只能是数数值型值型的变量或字段。的变量或字段。2. 事件事件(1)DownClick：按微调控件的向下按钮时触发按微调控件的向下按钮时触发(2)UpClick：按微调控件的向上按钮时触发按微调控件的向上按钮时触发 8/15/2024Visual foxpro 漳州师范学院计算中心8.3 控件类控件控件类控件8.3.1 命令按钮命令按钮1. 常用属性选介常用属性选介(1)Caption：设置命令按钮标题；可为命令按钮设设置命令按钮标题；可为命令按钮设置热键，方法：在某字母前加置热键，方法：在某字母前加“ ”，用，用 Alt 激活。激活。 如：如：(
48、2)Enabled：确定命令按钮是否响应确定命令按钮是否响应(不能响应时，不能响应时，按钮呈浅色按钮呈浅色) (3)Visible：确定命令按钮是不可见。当不可确定命令按钮是不可见。当不可见时，还可用代码访问。见时，还可用代码访问。 如如: mand1.visible=.t. 8/15/2024Visual foxpro 漳州师范学院计算中心(4)Default：若表单上有不止一个命令按钮，可将其若表单上有不止一个命令按钮，可将其中一个按钮设为缺省按钮，当所有的按钮均为非焦中一个按钮设为缺省按钮，当所有的按钮均为非焦点时，按动点时，按动Enter，则执行该按钮的则执行该按钮的Click事件。事
49、件。(5)Cancel：若该命令按钮的若该命令按钮的Cancel属性为属性为.T.，用户用户按按Esc键将执行该命令按钮的键将执行该命令按钮的Click事件。事件。(6)Picture：设置命令按钮上显示图形。若要在命令设置命令按钮上显示图形。若要在命令按钮上同时显示图文，可设置按钮上同时显示图文，可设置picture与与Caption属性属性(7)ToolTipText：设置提示文本。设置提示文本。(须须表单的表单的ShowTips属性为属性为.T.)2. 常用事件选介常用事件选介(1)Click：命令按钮的单击鼠标左键事件命令按钮的单击鼠标左键事件(2)RightClick：命令按钮的单击
50、鼠标右键事件命令按钮的单击鼠标右键事件 8/15/2024Visual foxpro 漳州师范学院计算中心8.3.2 命令按钮组命令按钮组命令按钮组是一组包含若干命令按钮的容器。其中的命令按钮组是一组包含若干命令按钮的容器。其中的各个按钮均有各自的属性、方法、事件。各个按钮均有各自的属性、方法、事件。第第1个被创建的命令按钮组对象名：个被创建的命令按钮组对象名：CommandGroup11. 属性选介属性选介(1)ButtonCount：设置组容器所包含的设置组容器所包含的 命令按钮的个数命令按钮的个数(2)Value：若为数值时，单击组控件内某个按钮，若为数值时，单击组控件内某个按钮，Val
51、ue将返回此命令按钮的顺序号；将返回此命令按钮的顺序号；若为字符，单击组控件内某个命令按钮，若为字符，单击组控件内某个命令按钮，Value将返将返回此命令按钮的回此命令按钮的Caption属性值。属性值。 8/15/2024Visual foxpro 漳州师范学院计算中心2. 命令按钮组生成器命令按钮组生成器(1)按钮选项卡按钮选项卡ButtonCount：指定所包含命令按钮个数指定所包含命令按钮个数表格：包括各命令按钮的表格：包括各命令按钮的Caption和和Picture(2)布局选项卡布局选项卡布局按钮、按钮间隔、边框样式布局按钮、按钮间隔、边框样式 8/15/2024Visual fo
52、xpro 漳州师范学院计算中心3. 命令按钮组与命令按钮命令按钮组与命令按钮按钮组容器按钮组容器及其所包含的及其所包含的命令按钮命令按钮有各自独立的属有各自独立的属性、方法、事件性、方法、事件(1)容器组及命令按钮的编辑容器组及命令按钮的编辑命令按钮组命令按钮组的编辑（属性、方法、事件）的编辑（属性、方法、事件）单击单击组容器中的组容器中的命令按钮命令按钮的编辑（属性、方法、事件）的编辑（属性、方法、事件） 属性窗口中选择属性窗口中选择 或或 单击单击 编辑编辑 选定命令按钮选定命令按钮 (2)为组容器中的某些命令按钮设置共同属性，如为组容器中的某些命令按钮设置共同属性，如caption属性值
53、。属性值。 单击单击 编辑编辑 Shift+选定命令按钮选定命令按钮 8/15/2024Visual foxpro 漳州师范学院计算中心(3)Click事件的区别事件的区别若命令按钮组及其所包含的各命令按钮分别设置了若命令按钮组及其所包含的各命令按钮分别设置了Click事件代码，则用户单击组内空白处，事件代码，则用户单击组内空白处，组控件组控件的的Click事件被触发；而若单击组内某命令按钮，则该事件被触发；而若单击组内某命令按钮，则该命令按钮命令按钮的的Click事件被触发。事件被触发。若仅命令按钮组设置了若仅命令按钮组设置了Click事件，则用户不论单击组事件，则用户不论单击组控件的何处，
54、都触发组控件的控件的何处，都触发组控件的Click事件事件 8/15/2024Visual foxpro 漳州师范学院计算中心例例8.8在学生成绩数据库中增加在学生成绩数据库中增加USER.DBF表，存表，存放账号与密码，表结构：放账号与密码，表结构：USER: 账号账号 C(6)、密码密码 C(6)，要求设计如图表单实现按账号核对密码。密要求设计如图表单实现按账号核对密码。密码由数字字符构成。码由数字字符构成。表单文件表单文件P8-8.scxCombo1Combo1的的ValidValid事件代码事件代码if this.if this.listindexlistindex=0=0 messa
55、gebox messagebox(没有此账号，请重新输入，或从组合框中选择没有此账号，请重新输入，或从组合框中选择) this. this.displayvaluedisplayvalue=elseelse thisform thisform.text1.enabled=.t.text1.enabled=.t.endifendifCommandGroup1CommandGroup1的的ClickClick事件代码事件代码do casedo casecase this.value=2case this.value=2 thisformthisform.release.releasecase th
56、is.value=1case this.value=1 if if alltrim alltrim( (thisformthisform.text1.value)=.text1.value)=alltrimalltrim(user.(user.密码密码) ) messagebox messagebox(欢迎使用本系统欢迎使用本系统) ELSE ELSE messagebox messagebox(密码错不能使用本系统！密码错不能使用本系统！) quitquit endifendifendcaseendcasethisformthisform.release.release 8/15/2024V
57、isual foxpro 漳州师范学院计算中心8.3.3 复选框复选框(checkbox)复选框有两种状态：复选框有两种状态：.T.、.F. 。复选框外形有两种：方形、按钮复选框外形有两种：方形、按钮第一个创建的复选框名为第一个创建的复选框名为check11. 属性选介属性选介(1)Style：属性设置如表属性设置如表style属性值属性值外外 观观选定状态选定状态0-标准标准方框，其右侧显示方框，其右侧显示Caption文本文本出现复选标记出现复选标记1-按钮图形按钮图形指定指定Picture图形图形图形按钮，图形按钮，Caption文本在图形文本在图形下方下方按钮呈按下状按钮呈按下状1-按
58、钮图形按钮图形Picture未设置未设置文本按钮，文本按钮，Caption文本居中文本居中 8/15/2024Visual foxpro 漳州师范学院计算中心(2)Value：设置或返回复选框选定状态。设置或返回复选框选定状态。若若Value设置为数值型：设置为数值型：0 未选定、未选定、1 选定、选定、2 灰色灰色若若Value设置为逻辑型：设置为逻辑型：.F. 未选定、未选定、.T. 选定选定(3)ControlSource ：设置复选框数据源，常绑定逻辑设置复选框数据源，常绑定逻辑型字段型字段2. 事件选定事件选定Click：单击复选框时触发单击复选框时触发Interactive Cha
59、nge：复选框值发生改变时触发复选框值发生改变时触发 8/15/2024Visual foxpro 漳州师范学院计算中心8.3.4 选项按钮组选项按钮组 选项按钮组是包含选项按钮的容器选项按钮组是包含选项按钮的容器(多选一多选一)，当选，当选定某个按钮，其他的选项按钮自动便成为选定。定某个按钮，其他的选项按钮自动便成为选定。1. 属性选介属性选介(1) style：决定选项按钮的外观决定选项按钮的外观Style属性值外 观选定状态0-标准圆圈，其右侧显示Caption文本出现单选标记1-按钮图形指定Picture图形图形按钮，Caption文本在图形下方按钮呈按下状1-按钮图形Picture未
60、设置文本按钮，Caption文本居中 8/15/2024Visual foxpro 漳州师范学院计算中心(2)Value：要要区分选项按钮组与组内的选项按钮区分选项按钮组与组内的选项按钮各自的属性各自的属性选项组选项组的的Value属性：有属性：有数值数值与与字符字符两种两种数值型：数值型：则返回被选定按钮的序号则返回被选定按钮的序号(默认默认1，表，表示第示第1个选项被选定个选项被选定) 字符型：字符型：则返回被选定按钮的则返回被选定按钮的Caption属性。属性。选项按钮选项按钮的的Value属性：有属性：有数值数值与与逻辑逻辑两种，表两种，表示选项按钮的状态，示选项按钮的状态，1或或.T
61、.表示选定，表示选定，0或或.F.表示未选定表示未选定 8/15/2024Visual foxpro 漳州师范学院计算中心(3)ControlSource：设置选项组的数据源设置选项组的数据源若将本属性设置为某字段名，会将选项的若将本属性设置为某字段名，会将选项的caption属属性值存在该字段中，要注意字段类型与性值存在该字段中，要注意字段类型与Value属性的属性的匹配。若选项按钮组的匹配。若选项按钮组的Value属性为字符型，则应选属性为字符型，则应选择字符型字段作为数据源。当选定某个选项按钮时，择字符型字段作为数据源。当选定某个选项按钮时，将在该字段中保存该选项按钮的标题；将在该字段中
62、保存该选项按钮的标题；若若Value为数值型时，则应选择数值型字段伯为为数值型时，则应选择数值型字段伯为数据源，当选定某个选项按钮时，将在该字段中保数据源，当选定某个选项按钮时，将在该字段中保存该选项按钮的序号。存该选项按钮的序号。(4)ButtonCount：设置选项按钮组包含的选项按钮个设置选项按钮组包含的选项按钮个数数2. 选项按钮组生成器选项按钮组生成器三个卡：按钮、布局、值三个卡：按钮、布局、值 8/15/2024Visual foxpro 漳州师范学院计算中心例例8.9 设计如图表单实现按专业统计人数。设计如图表单实现按专业统计人数。表单文件表单文件P8-9.scx P217Opt
63、iongroup1Optiongroup1的的ClickClick事件代码事件代码count for student.count for student.专业专业= =this.value to xthis.value to xthisformthisform.text1.value=x.text1.value=x 8/15/2024Visual foxpro 漳州师范学院计算中心8.3.5 计时器控件计时器控件(Timer) 计时器控件是当规定时间间隔一到，系统便自动触计时器控件是当规定时间间隔一到，系统便自动触发发Timer事件。第一个被创建的计时器对象为事件。第一个被创建的计时器对象为T
64、imer1,在表单运行时，计时器对象将自动隐藏。在表单运行时，计时器对象将自动隐藏。1.属性选介属性选介(1)Interval：指定触发时间间隔，单位为毫秒。指定触发时间间隔，单位为毫秒。(如如500)当为当为0 时时(缺省缺省)，将阻止，将阻止Timer事件发生事件发生(2)Enabled：为为.T.时系统按时系统按Interval属性规定的时间属性规定的时间间隔触发间隔触发Timer事件，事件，.F.时不触发，直到再为时不触发，直到再为.T.时。时。2.事件选介事件选介Timer事件：在事件：在Interval属性规定的时间间隔到后触发属性规定的时间间隔到后触发 8/15/2024Visu
65、al foxpro 漳州师范学院计算中心 8/15/2024Visual foxpro 漳州师范学院计算中心例例8.10 修改本章修改本章例例8.1的封面表单，使封面标题实的封面表单，使封面标题实现由大至小或由小至大的动态变化。现由大至小或由小至大的动态变化。表单文件表单文件P8-9.scx P218 8/15/2024Visual foxpro 漳州师范学院计算中心例8.10 设计一个TEST.DBF表，TEST表结构为：题号N(2)，题名M，A C(100)，B C(100)，C C(100)，D C(100)，学生答案C(2)，正确答案 C(2)。创建如图的表单，实现如下要求：单击表单的
66、命令按钮组某命令按键， 表单右侧显示题号与命令按钮标题号一样的试题，包括该试题的题目内容及A、B、C、D四个选择答案内容 8/15/2024Visual foxpro 漳州师范学院计算中心选定以图形化方式显示的选项按钮A、B、C、D之一时，将在表单“txt学生答案”文本框中显示学生的选择答案，即所选的选项按钮标题若“正确答案”复选框选定，则在Text1中显示正确答案，否则不显示 8/15/2024Visual foxpro 漳州师范学院计算中心8.4 多重容器类表格、页框、Container容器都是多重容器类。如：表格可包含列、列标题和列文本控件；页框可由多个页构成，而每个页可包含一个表格或其
67、他对象；Container容器中可包含除表单表单集之外的各种控件。 8/15/2024Visual foxpro 漳州师范学院计算中心8.4.1容器(Container)Container容器可以包含除表单与表单集之外的多个不同类型的对象。(如复选框、页框、命令按钮)第一个创建的容器名：container1 8/15/2024Visual foxpro 漳州师范学院计算中心创建Container容器可用表单控件工具栏的容器按钮，要往Container容器内添加对象时，必须先激活容器，常用属性Specialeffect: 0-突起、1-凹下、2-平面 Enabled: .T.容器可用；.F.容器
68、不可用Visible： .T.容器可见；.F.容器隐藏 8/15/2024Visual foxpro 漳州师范学院计算中心例8.10 设计如图所示的调查表表单。表单文件8-10 8/15/2024Visual foxpro 漳州师范学院计算中心8.4.2 表格(Grid)表格是按行和列显示数据的容器类控件。表格及所包含的列、列标头、列控件都有各自的属性、方法、事件。在表单上第1个被创建的表格对象名为Grid11. 表格组成(1)表格(Grid)：容器对象，由若干列组成。(2)列(Column)：也是容器类对象，由列标头和列控件组成 8/15/2024Visual foxpro 漳州师范学院计算
69、中心(3)列标题(Header)：默认值为某字段名或字段标题，可修改(4)列控件：一列必须设置一个列控件，该列中的每个单元格都可用此控件来显示字段值。列控件默认为文本框，但允许修改为本控件字段类型相容的其他控件。例：逻辑型字段列控件除了可为文本框列控件外，也可为复选框 8/15/2024Visual foxpro 漳州师范学院计算中心2. 创建表格对象(1)利用表单控件工具栏生成器有四个选项卡：表格项、样式、布局、关系(2)利用数据环境将数据表拖至表单即可 8/15/2024Visual foxpro 漳州师范学院计算中心3. 表格的编辑(1)改变列数(2)列的增删(通过字段的增删)(3)调整
70、表格行高与列宽说明：若要禁止在运行时改变表格标题栏或内容行的行高，可设Allowheadersizing或Allowrowsizing为.F. 8/15/2024Visual foxpro 漳州师范学院计算中心4.属性选介(1)表格属性ColumnCount：指定表格的列数RecordSourceType：指定表格数据源的类型(5种)表、别名、提示、查询(.qpr)、SQL说明RecordSource：指定表格对象数据源 8/15/2024Visual foxpro 漳州师范学院计算中心演示举例：lRecord Source Type：0Record Source选表匹配； lRecord S
71、ource Type：1Record Source选别名匹配；lRecord Source Type：3Record Source选查询文件(.qpr)匹配； 8/15/2024Visual foxpro 漳州师范学院计算中心lRecord Source Type：4Record Source选SQL语句匹配；可用表单Init代码：thisform.grid1.recordsource=select * from student into cursor temp1或在属性窗口中Record Source： select * from student into cursor temp1 8/15
72、/2024Visual foxpro 漳州师范学院计算中心AllowAddNew：为.T.时，可在表格中的表添加记录。为.F.时只能用Append和Insert命令对表添加记录ReadOnly：指定只读属性(2)列属性( 设置列属性前，须先让表格处于编辑状态)ControlSource：指定表格对象某列的数据源 8/15/2024Visual foxpro 漳州师范学院计算中心CurrentControl：为列指定活动控件(每列可以拥有多个控件，可由生成器指定，默认为Text1)Sparse: 取值.T.时，在列中只有选中的单元格以CurrentControl指定的控件显示，其他单元格仍以文本
73、显示。(3)列标题属性Caption：为列标题Header1指定标题 8/15/2024Visual foxpro 漳州师范学院计算中心例8.11 设计表单编辑STUDENT表，其中性别字段标题改为男性否 ，用复选框表示；并要求能在表格中添加记录与删除记录。表单文件8-11.SCX 8/15/2024Visual foxpro 漳州师范学院计算中心表单文件8-11-1.SCX实现单击专业字段下某单元格时，由组合框显示。 8/15/2024Visual foxpro 漳州师范学院计算中心(操作：使表格为编辑状态，选专业列对象，控件工具栏选组合框，单击表单中专业列的列控件) 8/15/2024Vi
74、sual foxpro 漳州师范学院计算中心例8.12 设计如图表单，实现按课程名浏览学生选课信息表单文件8-12.SCX 8/15/2024Visual foxpro 漳州师范学院计算中心8.4.3 页框与页面(pageframe、page)页框是一包含若干页面的容器。如图所示 8/15/2024Visual foxpro 漳州师范学院计算中心1. 页框的创建利用控件工具按钮创建。表单中首创的页框名：PageFrame1在页框中创建页时，必须先使页框处于编辑状态,首页名Page1 2.页框属性选介(1)PageCount：指定页框对象所含的页面数(2)TabStretch：指定页框不能容纳选
75、项卡标题时的处理方式 8/15/2024Visual foxpro 漳州师范学院计算中心(3)tablestyle: 页框选项卡是否两端对齐(且应tabstretch为0：多重行)(3)PageWidth：指定页框对象的宽度(4)PageHeight：指定页框对象的高度(5)ActivePage:指定页框对象中活动页的页码(如：thisform.PageFrame1.ActivePage=2) 8/15/2024Visual foxpro 漳州师范学院计算中心例：8.13 在表单上创建一个含有二个页面的表单，如图所示，分别用来编辑STUDENT表和COURSE表 8/15/2024Visual
76、 foxpro 漳州师范学院计算中心例8.14 设计如图表单，以实现STUDENT表的浏览、编辑、添加、删除。 8/15/2024Visual foxpro 漳州师范学院计算中心8.4.4 表单集formset表单集是一个包含若干个表单的父层的容器类控件。特点：可以同时显示或隐藏表单集中的全部表单以可视的方式调整多个表单位置表单集及其下的所有表单都存放在同一个.scx表单集中的所有表单共享同一个数据环境运行表单集时，其下的所有表单都 被加载 8/15/2024Visual foxpro 漳州师范学院计算中心1.表单集的创建表单集创建步骤表单集中的表单的添加与删除2.表单集的删除3.表单集的运行
77、与释放运行：do form 文件名.scx表单集一经运行，所包含的表单均被加载 8/15/2024Visual foxpro 漳州师范学院计算中心表单集释放方法1：在代码中 release thisfromset方法2：表单集随最后一个表单释放而释放例8.15 用表单集查看学生及学生选修课程情况。如图 8/15/2024Visual foxpro 漳州师范学院计算中心 8/15/2024Visual foxpro 漳州师范学院计算中心8.5 连接类VFP可以使用其他应用程序创建的数据与控件，以扩展它的功能VFP提供ActiveX控件、ActiveX绑定控件、超级链接控件 8/15/2024Vi
78、sual foxpro 漳州师范学院计算中心8.5.1 ActiveX绑定控件oleboundcontrolActiveX绑定控件可在表单上显示表中通用字段的数据(如：通用字段中的文本、声音、图片、视频等)1. 向表单添加ActiveX绑定控件可将数据环境中的某通用字段拖至表单中；或先插入ActiveX绑定控件、在数据环境中添加表、控件的controlsource属性选表的通用型字段 8/15/2024Visual foxpro 漳州师范学院计算中心说明：首个ActiveX绑定控件的名称为oleboundcontrol12. 属性选介(1)control source：设置ActiveX绑定控
79、件的数据源 8/15/2024Visual foxpro 漳州师范学院计算中心(2)stretch：指定对图像尺寸进行调整以放入一个OLE对象0：剪裁，即超出ActiveX绑定对象范围部分的图像不显示1：等比填充，等比调整图像长宽，使图像不变形2：变比填充，不等比调整图像长宽，图像可能变形 8/15/2024Visual foxpro 漳州师范学院计算中心(3)Autoverbmenu：指定ActiveX绑定对象有否快捷菜单(.T. .F.) 8/15/2024Visual foxpro 漳州师范学院计算中心例8.16 创建如图的表单实现对student表的相片字段内容进行浏览与替换表单文件-
80、16.scx 8/15/2024Visual foxpro 漳州师范学院计算中心(补) ActiveX控件概念：(1)ActiveX控件ActiveX是Microsoft公司提出的一组标准，ActiveX控件是指封装了属性、方法、事件的控件。(数量现已超过1000种Active控件) 8/15/2024Visual foxpro 漳州师范学院计算中心演示举例利用ActiveX控件的添加控件( .ocx)插入控件( Calendar控件 )VFP不具有创建ActiveX控件的功能(VB、VC则可) 8/15/2024Visual foxpro 漳州师范学院计算中心(2)OLE(对象的链接与嵌入)
81、 对象在表单中除了可以插入ActiveX控件，还可以插入OLE对象。说明：OLE对象有源与目标之分：存储对象的应用程序称为OLE服务器，嵌入或链接的目标称为OLE客户利用ActiveX控件首个获得的ActiveX控件对象名称为olecontro1 8/15/2024Visual foxpro 漳州师范学院计算中心2.向表单添加OLE对象(1)利用ActiveX控件插入对象(新建、由文件创建)演示举例利用ActiveX控件的插入OLE(相片) 8/15/2024Visual foxpro 漳州师范学院计算中心8.5.2 超级链接“超级链接”对象可以使用户从当前位置跳转到Internet的一个目标
82、地址上。创建的第一个超级链接对象名为：Hyperlink1超级链接对象在运行时是不可见的“超级链接”对象的功能主要通过一个方法程序Navigate to实现，由用户指定地址 8/15/2024Visual foxpro 漳州师范学院计算中心例8.17 在表单上创建一个命令按钮，要求表单运行时，单击该命令按钮可跳转到微软网站。表单文件8-17.scx 8/15/2024Visual foxpro 漳州师范学院计算中心 8/15/2024Visual foxpro 漳州师范学院计算中心 8/15/2024Visual foxpro 漳州师范学院计算中心EndThank you very much! 8/15/2024
