做画图板时 连续撤消前一步的操作 怎么实现？？

Question

如题，说说大家的想法。小弟这里谢谢了！！

Answer 1

我有VB寫的類似CAD的源碼。
用類集合來做。

Answer 2

只要你对你的画图过程作出了纪录，就试试下面的代码
Private Sub Command1_Click()
       Picture1.FillColor = RGB(255, 0, 0)
       Picture1.FillStyle = 0
       Picture1.DrawMode = 10
       Picture1.Circle (40, 40), 4, RGB(255, 0, 0)
       Picture1.Line (10, 10)-(2000, 2000), RGB(255, 0, 0)End SubPrivate Sub Command2_Click()
        Picture1.FillColor = RGB(255, 0, 0)
        Picture1.FillStyle = 0
        Picture1.DrawMode = 10
        Picture1.Circle (40, 40), 4, RGB(255, 0, 0)
        Picture1.Line (10, 10)-(2000, 2000), RGB(255, 0, 0)
End Sub