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
'设置坐标原点
1