VB绘制走动的表针

最新推荐文章于 2023-04-01 01:05:37 发布

miaozk2006

最新推荐文章于 2023-04-01 01:05:37 发布

阅读量202

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82416873

版权

该博客介绍了如何使用VB创建一个动态的时钟，表针会根据当前时间转动。通过定时器事件处理程序更新表针位置，使用了图形库绘制金色的小时针、红色的分钟针和白色的秒针。代码示例展示了如何计算角度并使用DrawLine方法绘制表针。

摘要由CSDN通过智能技术生成

引自：http://dev.21tx.com/2008/11/06/14115.html

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