Question

VB在窗体中建立右键弹出菜单，菜单的菜单项为绘制圆形和清除绘图

当选择绘制圆形时系统弹出三个对话框，分别让用户输入圆的圆心坐标的X值，圆心坐标的Y值和圆的半径，选择清除绘制图形选项时，清除系统在窗体上已经绘制的图形....
谢谢啦。。急需。。

Answer 1

Dim X As Long
Dim Y As Long
Dim r As Long

Private Sub Command1_Click()
Frame1.Visible = False
DoEvents
X = Text1.Text
Y = Text2.Text
r = Text3.Text
Circle (X, Y), r, vbRed
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton Then
PopupMenu popwin
End If
End Sub

Private Sub menu_hy_Click()
Frame1.Visible = True

Text1.SetFocus
End Sub

Private Sub menu_qc_Click()
Cls
End Sub

要源码把邮箱留给我。