如何在将窗体的中心做为圆心绘制一个圆那?
如何在将窗体的中心做为圆心绘制一个圆那? 圆的大小随窗体的大小而变化。多谢
--------------------编程问答--------------------
Private Sub Form_Paint()
Form1.Cls
FillStyle = 0
x = ScaleLeft + ScaleWidth / 2
Y = ScaleTop + ScaleHeight / 2
r = Sqr(Me.Width * Me.Width + Me.Height * Me.Height) / 5
Form1.Circle (x, Y), r, RGB(255, 0, 0)
End Sub
Private Sub Form_Resize()
Form1.Cls
FillStyle = 1
x = ScaleLeft + ScaleWidth / 2
Y = ScaleTop + ScaleHeight / 2
r = Sqr(Me.Width * Me.Width + Me.Height * Me.Height) / 5
Form1.Circle (x, Y), r, RGB(255, 0, 0)
End Sub
补充:.NET技术 , VB.NET