Question

如何用vb做一个画图板的撤销动作呢，还有如何在原有的图上划多条直线，可以像画图板上那样看到直线的轨迹

这是我编的一个算法，可以画直线，但是画第二条直线后第一条线就清除了，希望保留原来再picturebox里面的线
Dim x1, x2, y1, y2 As Double
Dim Down As Boolean
Private Sub Form_Load()
Down = False
End Sub

Private Sub pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic1.AutoRedraw = False

x1 = X: y1 = Y
x2 = X: y2 = Y
Down = True
pic1.DrawWidth = 2
pic1.PSet (X, Y), vbBlack
pic1.MousePointer = 2
End Sub
Private Sub pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Down = True Then
pic1.Cls

r = ((x1 - x2) ^ 2 + (y1 - y2) ^ 2) ^ 0.5
pic1.DrawWidth = 2
pic1.Line (x1, y1)-(x2, y2), vbBlack
' pic1.Circle (x1, y1), r, vbBlack
x2 = X: y2 = Y
r = ((x1 - x2) ^ 2 + (y1 - y2) ^ 2) ^ 0.5
End If
End Sub

Private Sub pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic1.Circle (x1, y1), r, vbBlack
Down = False
End Sub

Answer 1

原因就是cls方法清除了picturebox控件的内容，但是不用cls那么画出的不是线，是扇形。 如果没有特殊要求就用“两点确定一条直线”来画。留几天时间，我看看还有没有其他解决方法。
撤销就简单了。
1.用类型数组记住每次操作，撤销时倒退一个
2.用picture数组，保存文件到临时文件夹，读取到数组

Answer 2

你的cls清除了

Answer 3

pic1.Cls
会在条件成立的情况下，清除pic1上的所有痕迹