1、画圆,根据圆心和半径得到包含圆的矩形。
Private Sub DrawCircle(ByVal pt As Point, ByVal Radius As Integer, ByVal pen As Pen, ByVal brush As Brush)
' This method uses the Graphics object provided
' in the call to the Draw method.
Dim Diameter As Integer = Radius * 2 '直径
pt.Offset(-Radius, -Radius) '将圆心移到左上角
'定义出包围整个圆的矩形
Dim rct As New Rectangle(pt.X, pt.Y, Diameter, Diameter)
'绘出圆
grfx.DrawEllipse(pen, rct)
If Not brush Is Nothing Then
'填充背景
grfx.FillEllipse(brush, rct)
End If
End Sub
2、form.Invalidate();//重画窗体,调用窗体的paint事件代码。可传参数,指定刷新区域,以提升性能。
3、如果想要每秒刷新一次界面,可设置Timer控件的时间间隔为100毫秒。因为Timer控件的Tick事件对操作系统来说是个低优先级的事件。如果设为1s,诺有同时运行的其他应用程序占用大量的cpu时间,Timer控件的Tick事件就不一定每秒触发一次了。