怎样用VB制作一个系统时钟管理程序

能够显示、修改系统时间和日期，界面要有菜单、时钟（指针转动形式），我要源文件！谢谢！947819137@qq.com

你好 楼主。

很幸运的看到你的问题。
但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。
可能是你问的问题有些专业了，没人会。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也比较热心，可能能快点帮你解决问题。
希望我的回答也能够帮到你！
祝你好运。

您好，楼主

时钟中的部分代码

以下代码为时间控件里的事件过程

Const pi = 3.141592653 Dim T Dim X As Integer Dim Y As Integer

T = Now SEC = Second(T) Min = Minute(T) HR = Hour(T) frmClock.Scale (-16, 16)-(16, -16) If Min <> lastMin Or HR <> LastHour Then LastMinute = Min LastHour = HR frmClock.Cls Lastx = 999 frmClock.DrawWidth = 2 frmClock.DrawMode = 13 h = HR + pi / 60 X = 5 * Sin(h * pi / 6) Y = 5 * Cos(h * pi / 6) frmClock.Line (0, 0)-(X, Y) X = 8 * Sin(Min * pi / 30) Y = 8 * Cos(Min * pi / 30) frmClock.Line (0, 0)-(X, Y) frmClock.DrawWidth = 1 End If frmClock.DrawMode = 10 RED = RGB(255, 0, 0)

X = 10 * Sin(SEC * pi / 30) Y = 10 * Cos(SEC * pi / 30) If Lastx <> 999 Then frmClock.Line (0, 0)-(Lastx, Lasty), RED End If frmClock.Line (0, 0)-(X, Y), RED

Lastx = X Lasty = Y

详细的可以继续追问，由于源文件不能在这里上传

请楼主留一个邮箱

这个可以自己去网上搜索资料，很简单。相信你一学就会。源文件我已经发到了你的邮箱，请注意查收。

你好 楼主。