编程，怎么做

来源：百度知道 编辑：UC知道 时间：2024/06/23 02:52:50
在穿体上画圆，按着鼠标右键移动可以画圆,否则不行,VB中画圆的命令为:CIRCLE(X,Y),R 以X、Y为圆心，以R为半径画一个圆
在窗体上画圆，按着鼠标右键移动可以画圆,否则不行,VB中画圆的命令为:CIRCLE(X,Y),R 以X、Y为圆心，以R为半径画一个圆

Dim isDrawing As Integer
Dim oX As Single, oY As Single

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
If isDrawing = 0 Then
oX = X: oY = Y
isDrawing = 1
Else
isDrawing = 0
End If
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim cirR As Single
If isDrawing = 1 Then
cirR = Sqr((X - oX) ^ 2 + (Y - oY) ^ 2)
Me.Cls
Me.Circle (oX, oY), cirR
End If
End Sub

说明:点下鼠标右键确认圆心开始画圆,再点一下就确定圆的大小.只能画一个圆,想多画自己修该下代码吧