Question

Vb程序设计题

Answer 1

'供参考。朋友

Dim p As Boolean
Dim a As Long, b As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X: b = Y
If Button = 2 Then
Me.DrawWidth = 3
PSet (a, b)
p = True
End If
End Sub
'移动画圆
'Private Sub Form_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'If Button = 2 And p Then
'r = Sqr((X - a) ^ 2 + (b - Y) ^ 2)
'Circle (a, b), r
'End If
'End Sub
'右键松开时画圆

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 And p Then
r = Sqr((X - a) ^ 2 + (b - Y) ^ 2)
Circle (a, b), r
End If
End Sub