怎样才能把前一次的图像消去（在线等）

Question

Picture1.AutoRedraw = True
Picture1.Scale (0, 100)-(59, 0) '建立坐标系
Picture1.CurrentX = 0
Picture1.CurrentY = xianshi(0, hz)
For i = 1 To 59
Picture1.Line -(i, xianshi(i, hz))
Next i
我想把上一次的所画的图像去掉，谢谢

Answer 1

我事这么做的，建立函数
然后将指令命令化。这样操作可以写入日志。
回滚可以按照日志进行
例如:
public function aaaLine(x as integer,y as integer)
Picture1.Scale (0, 100)-(59, 0) '建立坐标系
Picture1.CurrentX = 0
Picture1.CurrentY = xianshi(0, hz)
For i = 1 To 59
Picture1.Line -(i, xianshi(i, hz))    
end function

Answer 2

Picture1.Cls
清除运行时PictureBox 所生成的所有图形和文本。所以并不能达到你的要求,用free_eyes(自由之眼) 的可以