VFP无表表单Word格式.docx
- 文档编号:18760082
- 上传时间:2023-01-01
- 格式:DOCX
- 页数:18
- 大小:320.60KB
VFP无表表单Word格式.docx
《VFP无表表单Word格式.docx》由会员分享,可在线阅读,更多相关《VFP无表表单Word格式.docx(18页珍藏版)》请在冰豆网上搜索。
this.backcolor=rgb(255,0,0)
this.backcolor=rgb(0,255,0)
this.backcolor=rgb(0,0,255)
this.backcolor=rgb(0,0,0)
this.backcolor=rgb(255,255,255)
3.要求:
1.编制一个选项按钮组调色板;
2.当用户按了某个选项按钮后,表单的背景色就会变为按钮指定的对应颜色。
设置表单标题为“选项按钮组调色板”。
设置选项按钮组中的按钮(生成器)
(2)OptionGroup1的Click事件代码:
4.要求:
2.当用户按了某个按钮后,选项按钮组的背景色就会变。
设置选项按钮组中的按钮。
this.optiongroup1.backcolor=rgb(255,0,0)
(2)选项按钮组OptionGroup1的Click事件代码:
5.要求:
编制一个选项卡组(页框)调色板,当用户按了某个选项卡(页)后,当前页的背景色就会变为选项卡标题指定的对应颜色。
设置表单标题为“选页调色板”。
设置页框中各page的caption属性。
(右击页框后选(编辑)再设置,下同)
分别设置页框中各选项卡的颜色。
将黑选项卡中的标题“黑”的颜色设为白色。
该题可以不写一行代码。
6.要求:
1.编制一个信息显示(时钟)界面,显示当前时间(每秒动态跳动一次);
2.并将表单的背景设置为蓝、绿两色自动变换(与时间同步切换)。
设置表单标题为“信息窗”。
设置文本框Text1的Fontsize属性(将其放大)。
设置文本框的的ReadOnly属性为真。
设置计时器Timer1的Interval属性为1000。
ifval(right(time(),2))%2=0
else
endif
this.text1.value=time()
(2)计时器控件Timer1的Timer事件代码:
thisform.text1.value=time()
7.要求:
1.编制一个表单完成数字时钟显示功能;
2.表单将自动以1秒为间隔动态显示系统时间;
3.时、分、秒要求用汉字说明。
设置表单标题为“数字时钟”。
设置文本框的字体为“隶书”。
避免运行时文本框空白
thisform.text1.value=subs(time(),1,2)+"
时"
+subs(time(),4,2)+"
分"
+subs(time(),7,2)+"
秒"
(2)计时器Timer1的Timer事件代码:
8.要求:
编制一个人工翻动日历牌界面,界面窗口中显示当前日期,但是用户可以通过界面提供的微调按钮任意地向前或向后翻动日期。
设置表单标题为“人工翻动日历牌”。
设置文本框背景和前景色(如设置文字颜色为“白”),大小适当。
publicd
setcenturyon
d=date()
y=substr(dtoc(d),7,4)
m=substr(dtoc(d),1,2)
r=substr(dtoc(d),4,2)
thisform.text1.value=y+"
年"
+m+"
月"
+r+"
日"
(2)微调对象Spinner1的UpClick事件代码:
D=d-1
Y=substr(dtoc(d),7,4)
M=substr(dtoc(d),1,2)
R=substr(dtoc(d),4,2)
thisform.text1.value=y+”年”+m+”月”+r+”日”
(3)微调对象Spinner1的DownClick事件代码:
D=d+1
R=substr(dtoc(d),4,2)
9.要求:
1.编制一个日历时钟表单;
2.表单中的日历是当前日期,时钟会动态跳动(每1秒跳一次)。
设置表单标题为“日历时钟表单”。
设置文本框的Fontsize属性(将其放大),字体为隶书。
Thisform.text1.value=substr(dtoc(date()),7,4)+"
+substr(dtoc(date()),1,2)+"
+substr(dtoc(date()),4,2)+"
Thisform.text2.value=time()
thisform.text1.value=substr(dtoc(date()),7,4)+"
thisform.text2.value=time()
10.要求:
编制一个日历时钟表单,表单中的日历是当前日期、当前星期,时钟会动态跳动(每1秒跳一次)。
设置计时器Timer1的Interval属性为1000。
thisform.text1.value=substr(dtoc(date()),7,4)+;
"
xq="
七一二三四五六"
thisform.text2.value="
星期"
+substr(xq,2*dow(date())-1,2)+"
("
+cdow(date())+"
)"
thisform.text3.value=time()
说明:
Dow()函数用1~7数字表示星期几,1表示星期日、7表示星期六。
cdow()函数返回英文星期值。
11.要求:
1.编制一个表单完成计时器计数显示功能;
2.表单初始显示状态为全零“00:
00:
00”;
3.按“计数”按钮,将自动以秒为单位从零开始计数(设:
时的计数属性名为S,分的计数属性名为F,秒的计数属性名为M)并在表单上动态显示,按“停止”按钮将显示最后一刻的计数时间。
设置表单标题为“计数器”。
(Form1的Caption属性为“计数器”)
新建三个属性thisform.s、thisform.f、thisform.m,分别用来保存“时”、“分”、“秒”。
新属性创建方法:
(“表单”——“新建属性”——输入属性名)
thisform.timer1.enabled=.f.&
&
开始时时钟无效
thisform.text1.value="
00:
00"
&
文本框置0
store0tothisform.s,thisform.f,thisform.m&
分别给时、分、秒赋初值,如果在属性窗口直接赋值,这里就不需要这句了。
(2)命令按钮Command1的Click事件代码:
thisform.timer1.enabled=.t.
store0tothisform.s,thisform.f,thisform.m
(3)命令按钮Command2的Click事件代码:
thisform.timer1.enabled=.f.
(4)计时器Timer1的Timer事件代码:
thisform.m=thisform.m+1
ifthisform.m=60
thisform.m=0
thisform.f=thisform.f+1
ifthisform.f=60
thisform.f=0
thisform.s=thisform.s+1
endif
s=iif(thisform.s>
9,str(thisform.s,2),"
0"
+str(thisform.s,1))
f=iif(thisform.f>
9,str(thisform.f,2),"
+str(thisform.f,1))
m=iif(thisform.m>
9,str(thisform.m,2),"
+str(thisform.m,1))
thisform.text1.value=s+"
:
+f+"
+m
12.要求:
1.模仿VisualFoxPro中的“新建”对话框,编制一个“新建”表单;
2.当用户选了“表”、“表单”或“程序”任意一项后,就可以自动进入“表设计器”或“表单设计器”或程序编辑窗中。
设置表单标题为“新建”。
“文件类型”为一个标签。
OptionGroup1的Click事件代码:
create.dbf
createform
modicomm
endcase
13.要求:
1.编制一个文字水平动态移动操纵的表单;
2.文字信息(纵向)初始的显示位置在表单的左边,表单执行后,每间隔20毫秒,文字会自动以间隔加1的幅度逐步向表单右边移动,直到文字到达表单最右边缘;
3.然后每间隔20毫秒文字会自动以间隔减1的幅度逐步向表单左边移动,直到文字回复到初始位置;
4.整个过程不间断地来回移动。
设置表单标题为“水平移动的文字”。
设置表单背景色为黄色。
设置标签Label1的颜色、字体、字号及BackStyle(背景风格)为透明。
设置标签Label1的WordWrap属性为真(可以换行显示)。
设置时间间隔为20。
publict,left1
t=1
left1=thisform.label1.left
(2)控件Timer1的Timer事件代码:
ifthisform.label1.left>
thisform.width-thisform.label1.widthorthisform.label1.left<
left1
t=-t
thisform.label1.left=thisform.label1.left+t
14.要求:
1.编制一个文字垂直动态移动操纵的表单;
2.文字信息初始的显示位置在表单的正上方,表单执行后,每间隔20毫秒,文字会自动以间隔加1的幅度逐步向表单正下方移动,直到文字到达表单底部;
3.然后每间隔20毫秒,文字会自动以间隔减1的幅度逐步向表单正上方移动,直到文字回复到初始位置;
设置表单标题为“垂直移动的文字”。
publict,top1
top1=thisform.label1.top
ifthisform.label1.top>
thisform.height-thisform.label1.heightorthisform.label1.top<
top1
thisform.label1.top=thisform.label1.top+t
15.要求:
1.编制一个文字动态缩放操纵的表单;
2.文字信息初始的显示位置在表单的正中央,表单执行后,每间隔20毫秒,文字会自动以字号加1的幅度逐步向周遍延伸变大,直到文字充满整个表单;
3.然后每间隔20毫秒文字会自动以字号减1的幅度逐步向中央回缩变小,直到文字复原为初始的状态;
4.整个过程不间断地缩放(最小字号为:
4,最大字号为:
52)。
设置表单标题为“缩放文字”,设置表单背景色为黄色。
自动大小属性AutoSize为真,对齐方式属性Alignment=2-中央。
设置计时器时间间隔Interval为20。
publict
thisform.label1.fontsize=4
thisform.label1.fontsize=thisform.label1.fontsize+t
ifthisform.label1.fontsize=4.or.thisform.label1.fontsize=52
t=-t
16.要求:
1.设计一个表单,接受用户输入的数字,生成相应的矩阵;
2.文本框内输入一个小于等于10的数字,生成一个相应的对称矩阵,且这个距阵的对角线的数字全部为0,其他的数字为1。
设置编辑框Edit1的ReadOnly属性为真(只读)
命令按钮Command1的Click事件代码:
n=val(thisform.text1.value)&
定义变量n,并赋值为文本框当前值.
dimes(n,n)&
定义数组
c="
定义空串
fori=1ton
forj=1ton
ifi=jori+j=n+1
s(i,j)='
0'
else
1'
c=c+"
"
+s(i,j)
endfor
c=c+chr(13)&
chr(13)回车换行
endfor
thisform.edit1.value=c&
在编辑框内显示字符c
thisform.text1.setfocus&
为文本框设置焦点
17.要求:
1.在表单中的三个文本框中分别输入3个数,判别是否能形成三角形,如果是三角形,求出此三角形的面积。
2.判断是否是三角形,可利用:
a+b>
c,且c>
0;
a+c>
b,且b>
b+c>
a,且a>
0判断。
设置按钮标题为“判断计算”。
设置标签Label1字号、自动大小属性AutoSize为真,Label2自动大小属性AutoSize为真。
this.label2.visible=.f.
a=val(thisform.text1.value)
b=val(thisform.text2.value)
c=val(thisform.text3.value)
p=(a+b+c)/2
thisform.label2.visible=.t.
if(a+b>
candc>
0)and(a+c>
bandb>
0)and(b+c>
aanda>
0)
s=sqrt(p*(p-a)*(p-b)*(p-c))
thisform.label2.caption="
能构成三角形,面积等于:
+ltrim(str(s))
不能构成三角形!
endif
18.要求:
在文本框中输入一个起始数,在编辑框中显示20个从起始位置开始并且是3的倍数的整数,且这20个数字的个位数都是3,利用标签输出这20个数的和。
设置按钮标题为“统计”。
设置标签Label1、Label2自动大小属性AutoSize为真。
设置编辑框的只读属性ReadOnly为真。
(1)Form1的Init事件代码:
this.text1.setfocus
(2)控件Command1的Click事件代码:
赋空串
s=0&
累加和赋初值
n=0&
计数器赋初值
a=val(alltr(thisform.text1.value))&
文本框当前值
dowhil.t.
ifn=20
exit
endif
ifa%3=0anda%10=3
c=c+allt(str(a))+chr(13)
n=n+1
s=s+a
a=a+1
enddo
thisform.edit1.value=c
thisform.label2.caption="
这组数字的和="
+allt(str(s))
thisform.text1.setfocus
19.要求:
1.编制一个小型文本编辑器,其功能布局见design.jpg;
2.文字信息从键盘输入至Edit框;
3.三个单选按钮分别用于设置“宋体”、“黑体”和“隶书”;
4.三个Check按钮用设置字体的“倾斜”、“加粗”和“下划线”;
5.字号用微调控件实现。
设置表单标题为“自制文本编辑器”。
设置标签Label1自动大小属性AutoSize为真,并改变其字号及颜色。
设置标签Label2的Caption属性为“字号”。
设置选项组按钮和复选框的标题大小。
设置微调控件Spinner1的SpinnerHighV
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 表表