Question

vb编程,无论怎样改变窗体的坐标系或窗体的大小,单击后,总以中心点为圆心绘制一个半径为其边长最小值1/3的

谢谢啦！！！！

Answer 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim r As Long
r = Me.Height
If r > Me.Width Then r = Me.Width

Me.Circle (X, Y), r / 3, 10
End Sub

Answer 2

计算边长，画圆就OK了