vfp表单Word下载.docx
《vfp表单Word下载.docx》由会员分享，可在线阅读，更多相关《vfp表单Word下载.docx（15页珍藏版）》请在冰豆网上搜索。
messagebox（"
没有相匹配的单词"
）
endif
“退出”按钮代码：
thisform.release
例题3：
m=thisform.text1.textn=at（alltrim（m）,thisform.edit1.value）
ifn!
“替换”按钮代码：
ifthisform.edit1.seltext=alltrim（thisform.text1.text）thisform.edit1.seltext=alltrim（thisform.text2.text）
else
没有选择需要置换的单词"
）endif
例题4.1：
十进制整数转化二进制
“转化”按钮CLICK事件代码
m=thisform.text1.values="
dowhilem!
=0r=mod（m,2）m=int（m/2）s=alltrim（str（r））+s
enddo
thisform.text2.value=sthisform.refresh
“清除”按钮CLICK事件代码
thisform.text1.value=0thisform.text1.setfocus
thisform.text2.value=0
例题4.2十进制转化二进制
“转化”按钮代码：
z=thisform.text1.valuem=int（z）
n=z-ms1="
s2="
=0r=mod（m,2）m=int（m/2）s1=alltrim（str（r））+s1
dowhilen!
=0n=n*2b=int（n）
s2=s2+alltrim（str（b））n=n-b
s=s1+"
."
+s2
iflen（s1）=0
s="
0."
iflen（s2）=0
s=s1endif
thisform.text2.value=sthisform.refresh“清除”按钮代码：
thisform.text1.value=0thisform.text2.value=0thisform.text1.setfocus
例题5：
输入三个数，显示最大值，并判断奇偶性。
“判断”按钮代码：
a=val（thisform.text1.value）b=val（thisform.text2.value）c=val（thisform.text3.value）max=a
ifmax<
bmax=b
c
max=cendif
ifmax%2=0
thisform.optiongroup1.option2.value=1thisform.optiongroup1.option1.value=0
thisform.optiongroup1.option2.value=0thisform.optiongroup1.option1.value=1
endifthisform.label3.caption=alltrim（str（max））
例题6：
数据环境课程.dbf
属性设置：
firstelement1
指定组合框或列表框控件中显示的第一个元素
指定用户能否在列表框控件
list1
multiselect.T.
nember0fel
中进行多重选定、以及如何进行多重选定
指定数组有多少数据项用来
ement
0填充组合框或列表框控件中
的列表部分
“commandgroup1”控件click事件代码
docase
casemandgroup1.value=1forn=1tothisform.list1.listcount
ifthisform.list1.selected（n）thisform.list2.additem（thisform.list1.list（n））
endifendfor
casethis.value=2
thisform.list2.clear
forn=1tothisform.list1.listcountthisform.list2.additem（thisform.list1.list（n））
casethis.value=3
forn=1tothisform.list2.listcountifthisform.list2.selected（n）
thisform.list2.removeitem（n）
casethis.value=4thisform.list2.clear
endcase
“commandgroup1”控件中command1的destroy事件代码
forn=1tothisform.list1.listcountifthisform.list1.selected（n）
thisform.list2.additem（thisform.list1.list（n））
例题7：
设置字体
“form1”的load事件代码：
publicchx
chx=0
“加粗c”heck1的CLICK事件代码
n=iif（chx=0,.f.,.t.）ifn
thisform.label1.fontbold=.t.else
thisform.label1.fontbold=.f.
“commandgroup1”控件click事件代码：
casemandgroup1.value=1thisform.label1.fontname="
隶书"
thisform.label1.fontname="
华文行楷"
casethis.value=3
华文彩云"
casethis.value=4
华文新魏"
endcase
例题8：
模拟石英钟
“form1”控件的load事件代码：
publicss,mm,hh,x,y,x2,y2,x3,y3,x4,y4store0toss,mm,hh
“form1”控件的init事件代码：
x=thisform.width/2y=thisform.height/2thisform.fillcolor=rgb（128,128,255）thisform.circle（100,x,y）
fori=1to12
x1=x+100*cos（i*3.14159/6）y1=y+100*sin（i*3.14159/6）
thisform.fillcolor=rgb（255,188,255）thisform.circle（5,x1,y1）
next
“timer1”的timer事件代码：
thisform.forecolor=rgb（128,128,255）x2=x+90*cos（（ss-15）*3.14159/30）y2=y+90*sin（（ss-15）*3.14159/30）thisform.line（x,y,x2,y2）ss=mod（ss+1,60）
x2=x+90*cos（（ss-15）*3.14159/30）y2=y+90*sin（（ss-15）*3.14159/30）thisform.forecolor=rgb（255,0,0）thisform.line（x,y,x2,y2）
ifss=0
thisform.forecolor=rgb（128,128,255）x3=x+70*cos（（mm-15）*3.14159/30）y3=y+70*sin（（mm-15）*3.14159/30）thisform.line（x,y,x3,y3）mm=mod（mm+1,60）
thisform.forecolor=rgb（128,128,255）x4=x+60*cos（（hh-3）*3.14159/6）y4=y+60*sin（（hh-3）*3.14159/6）thisform.line（x,y,x4,y4）
hh=hh+1/60ifhh>
=12
hh=0
endifendif
x3=x+70*cos（（mm-15）*3.14159/30）y3=y+70*sin（（mm-15）*3.14159/30）THISFORM.forecolor=rgb（0,255,0）x4=x+60*cos（（hh-3）*3.14159/6）y4=y+60*sin（（hh-3）*3.14159/6）thisform.forecolor=rgb（0,0,0）thisform.line（x,y,x4,y4）
例题9：
输入三个数，对其排序
“排序”的CLICK事件代码：
a=val（thisform.text1.value）b=val（thisform.text2.value）c=val（thisform.text3.value）
ifa<
b
t=aa=bb=t
t=cc=aa=t
endififb<
t=bb=cc=t
endifthisform.label2.caption=str（c）thisform.label3.caption=str（b）thisform.label4.caption=str（a）例题10：
闪烁的图片
计时器Timer1的init事件代码
publiccccc=-1
计时器Timer1的timer事件代码
cc=-ccifcc=1
thisform.image1.visible=.t.
thisform.image1.visible=.f.endif
例题11：
数字时钟（按钮显示时间）
属性设置
interval5指定调用计时器事件的间隔，以毫
秒为单位
thisform.cmn.caption=time（）
例题12：
表单显示时间
interval100指定调用计时器事件的间隔，以毫
thisform.label1.caption=time（）
例题13：
对XSDA.DBF表进行排序
数据环境
XSDA.DBF
“选项按钮组”的CLICK事件代码
casethis.value=1
setorderto学号
setorderto出生日期
endcasethisform.refresh
升级会员 