VFP_实验6-1 利用输出类控件设计表单_--实验6-2利用输入类控件设计表单_--实验6-3 利用控制类控件设计表单.docVIP

实验6-1 利用输出类控件设计表单 一、实验目的 理解和掌握输出显示类控件标签（Label）、图像(Image)、线条（Line）和形状（Shape）。等的使用，熟练掌握Alignment 、AutoSize、Left、Top、Height、Width、ForeColor、BackColorCaption、Curverture、Value、Visible、WordWrap、Picture、Interval等属性；能恰当地为Init、Timer、Click等事件编写代码；准确地运用Refresh、Release等方法和Messagebox( )、RGB( )函数。 二、实验准备 复习本章的第1节内容，重点掌握上面提到的对象、属性、事件、方法和函数的概念及使用，注意观察例题的设计过程及方法。 三、实验内容 1．设计一个由标签、文本框、图像、形状等控件实现的显示信息界面，如图6-72、6-73所示。要求：图像用三维的立体形状框住，诗用标签16号隶书蓝底白字竖行显示，各对象的大小调整到协调即可。 图6-72 运行界面 图6-73 设计界面 2．运用文本框和计时器对象设计一个数字时钟表单，界面见图6-74、图6-75。要求：文本框文字为隶书、30号字，表单的标题为“数字时钟”，每隔1秒钟刷新一次时间。 图6-74 设计界面 图6-75 运行界面 3．设计一个圆球跳动表单。要求：球的宽和高为60，球的填充颜色为咖啡色，表单的标题为“圆球跳动”，按“开始”，球每隔0.5秒在表单的上下边之间跳动，按“停止”，球停止跳动。设计界面和运行界面见图6-76、图6-77。 图6-76 设计界面 图6-77 运行界面 4．编制一个表单完成表文件“职工.dbf”内容的自动只读浏览显示功能，设计界面和运行界面如图6-78、图6-79所示。具体要求如下：①表单初始显示内容为表文件“职工.dbf”的首记录；②表单内容将以1秒为间隔自动刷新，即自动顺序向后翻记录，当翻至表底时，将自动回到首记录循环翻动。 图6-78 职工表自动浏览表单设计界面 图6-79 职工表自动浏览表单运行界面 5．编制一个显示时钟和日期的表单，界面如图6-80、图6-81、图6-82所示。命令按钮及文本框的字体、颜色和大小设置为自己喜欢的形式。 图6-80 设计界面 图6-81 时间显示界面 图6-82 日期显示界面 四、实验6-1报告 1．实验过程报告 （1）写出第2题“数字时钟”表单的Init事件和Timer事件的代码。 thisform.text1.value=LEFT(TIME(),2)+ 时 +SUBSTR(TIME(),4,2)+ 分+SUBSTR(TIME(),7,2)+ 秒 thisform.Refresh （2）写出第3题“圆球跳动”表单的Timer事件的代码。 IF thisform.shape1.Top=0 thisform.shape1.Top=thisform.Height-thisform.shape1.Height ELSE thisform.shape1.Top=0 ENDIF thisform.refresh （3）写出第4题“职工表自动只读浏览”表单的Timer事件的代码。 SKIP IF EOF() GO top ENDIF thisform.Refresh 2．简答题 （1）怎样使标签中的文字以竖行的形式显示？ 设置WordWrap属性为.T.，再调整标签的大小，使其随边界自动返绕折行。 （2）“圆球跳动”表单的圆球是使用的什么对象？怎样才能由方圆？改变球的颜色用的什么属性？怎样知道球到达了表单的顶部和底部？ 形状控件； 点击形状控件，在属性中设置Curvature为99； 到达表单顶部为TOP=0. 到达底部时为thisform.shape1.Top=thisform.Height-thisform.shape1.Height （3）在文本框中显示文字要用什么属性？使文本框以只读的方式显示数据要用什么属性？ Value属性 Readonly属性 （4）在什么条件下计时器控件的Timer事件代码才能运行？ Interval属性不为0，Enabled属性为.T. 3．实验完成情况及存在问题。 实验6-2利用输入类控件设计表单 一、实验目的 熟悉文本框（TextBox）、编辑框（EditBox）、列表框（ListBox）与组合框（ComboBox）、微调（Spinner）等输入类控件的使用