表单部分上机作业7new.docxVIP

表单部分_上机课堂作业7 (请根据自己的兴趣，至少完成下面的两个实例即可) 请在D盘新建一个学号+名字的文件夹，如2010000000张三。 启动VFP后，设置工作目录到刚建的文件夹：set default to d:\ 2010000000张三。 1、完成下面表单实例 一、计时器实例 建立表单myform71,表单中有一个标签label 1, 一个计时器timerl,二个命令按钮command 1 和command2,如图所示。 渺6此痼计时 1 Q II B 1 S3 K .....1. L O I J L a : 5 F始 | 复位 ii 设置对象的属性 控件名 属性 值 Forml caption 60秒倒计时 Label1 caption 60 fontsize 72 forecolor =rgb (0, 0, 255) Timerl interval 1000 enabled .f. Command1 caption 开始 Command2 caption 复位 编写程序代码 表单forml的load事件代码： public N 定义全局变量N n=60 值为 60 计时器timerl的timer事件代码 IF N0 n=n-l thisform. label 1. caption=alltrim(str (N, 2)) else this. enabled=. f. messageboxCzgame over!”) set bell to 〃xp. wav〃, 0 设置要播放的声音文件(wav格式) ?? chr(7) 开始播放 endif 命令按钮command 1的click事件代码: thisform.timer 1 .enabled=.t. 命令按钮command2的cl ick事件代码: N=60 th isform. label 1 .caption=n60 保存并运行此表单。 二、表单背景(图片)同步缩放 (1)建立表单myform72,表单中有一个图像控件image 1,如图所示。 设置控件的属性 控件名 属性 值 Forml caption 表单背景同步缩放 imagel picture Hill, jpg stretch 2-变比填充 *****注意：hill, jpg图片一定要与表单在一个文件夹下。 编写程序代码 表单forml的activate事件代码： thisform. imagel. left=0 thisform. imagel. top=0 使图片位于表单的左上角 thisform. imagel. width=thisform. width thisform. imagel. height二thisform. height 图片大小与表单大小一致 表单forml的resize事件代码： thisform. imagel. width=thisform. width thisform. imagel. height=thisform. height 图片大小与表单大小一致 保存并运行此表单。 三、微调形状控件的曲度 建立表单myform73,表单中有一个图像控件imagel,如图所示。 日表单设计器- 日表单设计器-myform73.scx Forml | d || 宜| M 设置控件的属性 控件名 属性 值 Spinnerl keyboardHighvalue 99 keyboardLowvalue 0 spinnerHighvalue 99 spinnerLowvalue 0 Incrementl 1 编写程序代码 ? Spinnerl 的 interactivechange 事件代码: thisform. shapel. curvature=this? value 保存并运行此表单。 四、远离鼠标的狐狸 表单中直二1、图像控件image 1，如图所示。 表单中直二1、图像控件image 1，如图所示。 设置控件的属性 控件名 属性 值 Forml caption 表单背景同步缩放 imagel picture fox. bmp stretch 2-变比填充 *****注意：fox. bmp图片一定要与表单在一个文件夹下。 编写程序代码 ? imagel 的 MouseMove 事件代码： LPARAMETERS nButton, nShift, nXCoord, nYCoord newL=(thisform. width-this. width) *rand() newT=(thisform. height-this. height)*rand() newH=20+this. height*rand() newW=20+this. width^rand() this,