做VF系统常用到的代码

一、时钟代码。

1.添加计时器控件time1
time1的interva为1000，enabled为T form1的load事件
public ss,mm,hh,x,y,x2,y2,x3,y3,x4,y4 store 0 to ss,mm,hh
form1的init事件
x=thisform.Width/2
y=thisform.Height/2
thisform.fillcolor=rgb(128,128,255) thisform.Circle(100,x,y)
for i=1 to 12
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
time1的time事件
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)
if ss=0
thisform.forecolor=rgb(128,128,255)
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/60
x3=x+70*cos((mm-15)*3.14159/30)
if hh>=12
hh=0
endif
endif
x3=x+70*cos((mm-15)*3.14159/30)
y3=y+70*sin((mm-15)*3.14159/30)
thisform.forecolor=rgb(0,255,0)
thisform.line(x,y,x3,y3)
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)
二、同心圆。

Form1的activate代码
thisform.scalemode=3
x=thisform.width/2
y=thisform.height/2
max=iif(x<y,x,y)
for r=0 to max step 10
thisform.circle(r,x,y)
next
form1的click代码（擦去同心圆）
thisform.cls
三、mouseup事件（鼠标）
1.form1的load代码事件
public ok
thisform.drawwidth=3
forecolor=rgb(0,0,255)
thisform.fillcolor=rgb(0,0,255)
thisform.fillstyle=0
2.form1的mousedown事件LPARAMETERS nButton, nShift, nXCoord, nYCoord ok=.T.
3.form1的mousemove事件LPARAMETERS nButton, nShift, nXCoord, nYCoord if ok
thisform.pset(nxcoord,nycoord)
endif
4.form1的mouseup事件
LPARAMETERS nButton, nShift, nXCoord, nYCoord ok=.F.
四、程序错误时，系统弹出错误对话框，设置“终止”、“重试”和“按钮”按钮，并默认第二个按钮。

任意When的事件代码如下（315页有详细操作）
messagebox("程序运行发生错误！",2+256+32,"错误提示")
五、焦点事件gotfocus代码如下。

Messagebox(“(任意内容) “,0,”(选中的命令按钮名)”)
六、打开文本的大小写，edtText编辑框的第一段变为大写。

edtText的cilck事件
thisform.edtText.selstart=0
thisform.edtText.sellength=at(chr(13),thisform.edtText.text)-1
thisform.edtText.seltext=upper(thisform.edtText.seltext)
cmdopenfile的cilck事件
thisform.edtText.selstart=0
thisform.edtText.sellength=at(chr(13),thisform.edtText.text)-1
thisform.edtText.seltext=upper(thisform.edtText.seltext)
exit的cilck事件
release thisform
七、时间
计时器控件的timer的timer事件
bel1.caption=ttoc(datetime())
八、电脑中的常用工具
新建菜单》菜单》输入“常用工具”》创建》
1.可输入“计算机命令run/n calc”
2.可输入、“记事本命令run/n notepad”
3.可输入“写字版命令run/n write ”
九、超链接
超链接控件+命令按钮+command的click事件
代码如下:
thisform.hyperlink1.navigateto("网址")
十、项目连编
_screen.visible=t.
_screen.caption=”项目连编”
_screen.windowstate=2
_screen.picture=”图片的路径”
do “图片的路径”
read events
其中main要设为主文件（程序）
十一、登陆界面
Command的click事件
if thisform.text1.value="abc" and thisform.text2.value="123" wait"欢迎使用！"
do "g:\vf\项目\little star的菜单.mpr"
else
wait"用户名或密码不对！"
endif
command的cilck事件
release thisform。