如何在PictureBox中画直线、矩形、圆？

Question

要求：在PictureBox中点鼠标左键拉到任一点便产生一直线，矩形，和一圆。
有原码更好？
请教？

Answer 1

直线和矩形只要line就可以了吧,在Form_MouseDown记录鼠标按下的位置坐标,在Form_MouseUp记录鼠标抬起的位置坐标,line 加 B 就是矩形,否则直线.使用Circle做园,只不过取中间值就可以了

Answer 2

Dim X1 As Long
Dim Y1 As LongDim X2 As Long
Dim Y2 As Long
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
End SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
X2 = X
Y2 = YPicture1.Line (X1, Y1)-(X2, Y2)
Picture1.Line (X1, Y1)-(X2, Y2), , B
Picture1.Circle ((X1 + X2) / 2, (Y1 + Y2) / 2), Abs(X2 - X1) / 2, (X1 / X2) / (Y1 / Y2)End Sub我刚来,初学,以后多照顾