Question

求VB编程指针时钟，要程序的代码，在线等，谢谢！！！

一定要没人用过的。。。

Answer 1

现做 100行代码内解决。有需请发站内信

追问

发邮箱872013526@qq.com 谢谢

追答

1建立一个窗体FORM1 窗体内添加三根线LINE控件 也就是line1,line2,line3 ,分别作为三根时钟针
添加一个TIMER控件timer1 ,interval属性为1000

2 定义变量:
dim cx,cy as integer ‘窗体的中心坐标
dim date1 as string '时间变量
dim hp,mp,sp as integer '指针长度
dim hour,min,sec as double '分量

3 正文
/////////////////////////////////////////
private sub form_load()
获得中心坐标
cx=me.width/2
cy= me.height/2
设置指针长度
hp=500 ： mp =600 ：sp=850
设置指针坐标为窗体中心
me.line1.x1=cx：me.line1.y1=cy
me.line2.x1=cx：me.line2.y1=cy
me.line3.x1=cx：me.line3.y1=cy
end sub
//////////////////////////////////////////
private sub timer1_timer()
获取时间
date1=format(Time,"hhMMss")
计算中间值
hour=(val(left(date1,2))/12) *6.28-1.57
min =(val(mid(date1,3,2))/60)*6.28-1.57
sec =(val(right(date1,2))/60)*6.28-1.57
设置指针
me.line1.x2 =hp*cos(hour)+cx
me.line1.y2=hp*sin(hour)+cy
me.line2.x2 =mp*cos(min)+cx
me.line2.y2=mp*sin(min)+cy
me.line3.x2 =sp*cos(sec)+cx
me.line3.y2=sp*sin(sec)+cy
end sub
///////////////////
表框就自己随便画个PNG贴上去算了

Answer 2

没人用过的那是不可能的。