VB编写漂亮的时钟.docx

下载文档

32
0
约2.06千字
约 3页
2021-09-16 发布于内蒙古
举报
版权申诉
保障服务

VB编写漂亮的时钟.docx

1、本文档共3页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

然后在其中放一个 timer 控件再就是一个直线控件数组注意要把 imagebox 中的 stretch 属性改为 true, 直线控件数组是 14 个 , 要注意下面是我和程序代码 , 有一些注解的希望能对大家有帮助 Private Sub Form_Load() Timer1.Interval = 100 Width = 4000 Height = 4000 Left = Screen.Width \ 2 - 2000 Top = (Screen.Height - Height) \ 2 End Sub Private Sub Form_Resize() Dim i, angle For i = 0 To 13 Line1(i).Visible = True Line1(i).BorderWidth = 4 设置窗体和计时器参数设置计时器事件间隔是 1/10 秒启动时和改变窗体时设置刻度和指针 If i = 0 Or i 12 Then Line1(i).BorderColor = RGB(0, 0, 128) Else Line1(i).BorderColor = RGB(0, 128, 0) End If Next i Line1(12).BorderColor = RGB(128, 256, 128) Line1(9).BorderColor = RGB(256, 128, 128) Line1(6).BorderColor = RGB(128, 0, 256) Line1(3).BorderColor = RGB(0, 0, 255) Line1(13).BorderColor = RGB(255, 0, 255) Line1(0).BorderWidth = 5 Line1(14).BorderWidth = 2 Line1(i).BorderColor = RGB(256, 0, 0) For i = 0 To 14 Scale (-1, 1)-(1, -1) 秒 15 条线 angle = i * 2 * Atn(1) / 3 Line1(i).X1 = 0.9 * Cos(angle) Line1(i).Y1 = 0.9 * Sin(angle) Line1(i).X2 = Cos(angle) Line1(i).Y2 = Sin(angle) Next i End Sub Private Sub Timer1_Timer() Const hh = 0 时针的粗细分针的粗细画出表盘 12 个点和时 , 分 . Const mh = 13 Const sh = 14 Dim angle Static ls If Second(Now) = ls Then Exit Sub ls = Second(Now) angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60)) Line1(hh).X1 = 0 Line1(hh).Y1 = 0 Line1(hh).X2 = 0.3 * Cos(angle) Line1(hh).Y2 = 0.3 * Sin(angle) angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60)) Line1(mh).X1 = 0 Line1(mh).Y1 = 0 Line1(mh).X2 = 0.7 * Cos(angle) Line1(mh).Y2 = 0.7 * Sin(angle) angle = 0.5236 * (75 - Second(Now) / 5) Line1(sh).X1 = 0 Line1(sh).Y1 = 0 Line1(sh).X2 = 0.8 * Cos(angle) Line1(sh).Y2 = 0.8 * Sin(angle) Form1.Caption = Str(Now()) End Sub 机器时钟停止程序退出时钟转动设置分钟转动设置秒钟转动设置窗口显示日期和时间