VB.NET 时钟 圆形钟表.rar

VB.NET 时钟 圆形钟表，算出每刻度的角度，实际上是(pi/30)*i,为了精确用了Atan(1)，因为Atan(1)=PI/4，使用Atan数学函数，必须在程序的开头引入System.Math空间，'创建Graphics对象用于绘图
　　Dim FrmGraphics As Graphics = Me.CreateGraphics
　　'设置画面质量(消除锯齿)
　　FrmGraphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
　　'创建Pen1对象,颜色为黄色，粗细为3像素
　　Dim Pen1 As New Pen(System.Drawing.Color.Yellow, 3)
　　'创建Pen2对象，颜色为黑色，粗细为1像素
　　Dim Pen2 As New Pen(System.Drawing.Color.Black, 1)
　　'定义表示刻度的起点和终点数组，坐标原点
　　Dim StartPoint(59), EndPoint(59), OriginPoint As PointF
　　'设置坐标原点