VB绘制走动的表针

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Me.Text = Date.Now.ToString

Dim FmGraphics As System.Drawing.Graphics

FmGraphics = Me.CreateGraphics

Dim TmLong As Double = 75

Dim HourPoint(1), MinutePoint(1), SecondPoint(1), OriginPoint As System.Drawing.PointF

OriginPoint.X = 75

OriginPoint.Y = 75

Me.Refresh()

Dim angle As Double

angle = -0.5263 * (15 - (Hour(Now) + Minute(Now) / 60))

HourPoint(0).X = OriginPoint.X

HourPoint(0).Y = OriginPoint.Y

HourPoint(1).X = OriginPoint.X + 0.3 * TmLong * Cos(angle)

HourPoint(1).Y = OriginPoint.Y + 0.3 * TmLong * Sin(angle)

Dim FmPen As System.Drawing.Pen

FmPen = New System.Drawing.Pen(System.Drawing.Color.Gold, 3)

FmGraphics.DrawLine(FmPen, HourPoint(0), HourPoint(1))

angle = -0.1047 * (75 - (Minute(Now) + Second(Now) / 60))

MinutePoint(0).X = OriginPoint.X

MinutePoint(0).Y = OriginPoint.Y

MinutePoint(1).X = OriginPoint.X + 0.5 * TmLong * Cos(angle)

MinutePoint(1).Y = 75 + 0.5 * TmLong * Sin(angle)

FmPen = New System.Drawing.Pen(System.Drawing.Color.Red, 3)

FmGraphics.DrawLine(FmPen, MinutePoint(0), MinutePoint(1))

angle = -0.5263 * (75 - Second(Now))

SecondPoint(0).X = OriginPoint.X

SecondPoint(0).Y = OriginPoint.Y

SecondPoint(1).X = OriginPoint.X + 0.7 * TmLong * Cos(angle / 5)

SecondPoint(1).Y = OriginPoint.Y + 0.7 * TmLong * Sin(angle / 5)

FmPen = New System.Drawing.Pen(System.Drawing.Color.White, 2)

FmGraphics.DrawLine(FmPen, SecondPoint(0), SecondPoint(1))

FmGraphics.Dispose()

End Sub