数据库学习vfp-7.pptVIP

* 第七章 表单控件设计 VFP 表单控件分类 １、输出类：标签、图象、线条、形状 ２、输入类：文本框、编辑框、微调控件、列表框、组合框 ３、控制类：命令按钮、命令按钮组、复选框、选项按钮组 　　计时器 ４、容器类：表格、页框、Container容器 ５、连接类：ActiveX控件、ActiveX绑定控件、超级链接 7.1 输出类控件 7.1.1 标签 标签控件：能在表单上显示文本，常用作提示或说明 一、标签的标题 标签的 Caption 属性用于指定该标签的标题，可用如下三 　方法实现（注：首先创建标签控件） １、在属性窗口修改该标签控件的 Caption 属性（字符型） ２、在某一事件的代码中写入命令 THISFORM.LAB名称=‘标签名称’ ３、若 aa 是一个公共变量（且 aa=‘编号’） THISFORM.LAB名称=aa 二、属性简介（标签１.scx） １、将标签区域自动调整为与标题文本一样大小： 　　属性 AutoSize 设置为 .T. ２、标签标题竖排 　　属性　WordWrap 设置为 .T. 且在水平方向压缩标签区 　域，迫使文本换行。 ３、使标签与表单背景色一致 　　属性　BackStyle 设置为 0 (透明) ４、使标签带边框 　　属性 BorderStyle 设置为 1（单线框） 例：在表单上显示一段文本，在文本的下方显示日期，且添 　加计时器控件（使文本与日期周期性地按时间间隔显示（通过对 　计时器的 Timer 事件编写代码）） 实施步骤 　１、在表单上方创建控件：标签１（Label1）、标签２（Label2） 　　　再创建两个计时器控件：Timer1、Timer2 　２、Label1 属性设置 　AutoSize　.T. 自动调整控件大小以容纳其内容 　Caption 数据库应用系统 　… 　３、Label2　属性设置… … 　４、编写计时器 Timer1 的 timer 事件代码 　if thisform.label1.visible=.t.　若标签１可见 　　thisform.label1.visible=.f.　使其隐藏 　else 　 　thisform.label1.visible=.t.　否则使其可见 　endif ５、编写 Timer2 的Timer 事件代码 　thisform.label2.caption=allt(str(year(date())))+‘ 年 　　+allt(str(month(date())))+ 月 +allt(str(day(date())))+ 日 　————设置 Label2 属性值 　if thisform.label2.visible=.t. 若 Label2 可见 　thisform.label2.visible=.f.　使其不可见 　else 　thisform.label2.visible=.t.　否则使其可见 　endif ６、为计时器１、计时器２设置时间间隔 Intervar 1000 以毫秒为单位 7.1.2 图象、线条与形状 一、图象（标签2.scx） 利用图象控件的 Picture 属性可在表单上设置图形 方法： １、在表单上创建一个图象控件 ２、单击文本框右侧“对话”按钮，在指定的文件夹中选定一 　图象。 注：图象文件：.BMP、.ICO、.GIF、.JPG 　　图形文件的查找： 开始——搜索——文件或文件夹… 例：在图象控件上设置图形，且设置计时器，使图形运动。 实施步骤 　１、在表单创建图象控件，添加图象 　２、创建计时器控件 　３、控件 Left 属性说明 　对于控件，指定其最左边相对其父对象的距离；对于 Form 对象， 　指定表单的左边与 Visual FoxPro 主窗口的距离。 ４、为计时器 Timer 事件编写代码 　if thisform.image1.left+thisform.image1.width0 thisform.image1.left=thisform.image1.width 　else thisform.image1.left=thisform.image1.left-10 　endif 　if thisform.image2.left+thisform.image2.width0 thisform.image2.left=thisform.image2.width 　else thisform.image2.left=thisform.image2.left-10 　endif