UC知道VB 如何生成撤销前一步的画图代码
来源：百度知道 编辑：UC知道 时间：2024/09/26 20:15:10
For j% = 1 To CS
For i% = 1 To HS
888 picture1.line((i - 1) * standard_L + ((i - 1) / 2 - 1 / 2) * dis_zx, H + (j - 1) * standard_H)-(-Lpp / 2 + La + Lm + a + i * standard_L + ((i - 1) / 2 - 1 / 2) * dis_zx, H + j * standard_H)
Next i%
Next j%
hl% = MsgBox("舱内排箱是否合适", 4 + 32 + 0, "舱内排箱")
If hl% = 7 Then
GoTo 888
End If
当h1=7时 要用picture重先画图，但是原来的图形还在，我想知道如何撤销原来picture画的图
不能用picture1.clear命令，因为原来picture里还有图形 我只想撤销888那行的命令
For i% = 1 To HS
888 picture1.line((i - 1) * standard_L + ((i - 1) / 2 - 1 / 2) * dis_zx, H + (j - 1) * standard_H)-(-Lpp / 2 + La + Lm + a + i * standard_L + ((i - 1) / 2 - 1 / 2) * dis_zx, H + j * standard_H)
Next i%
Next j%
hl% = MsgBox("舱内排箱是否合适", 4 + 32 + 0, "舱内排箱")
If hl% = 7 Then
GoTo 888
End If
当h1=7时 要用picture重先画图，但是原来的图形还在，我想知道如何撤销原来picture画的图
不能用picture1.clear命令，因为原来picture里还有图形 我只想撤销888那行的命令
Dim pic1 As Picture
Set pic1 = Picture1.Image
画图前先保存下来
Picture1.Picture = pic1
恢复
一般都是在进行每次新处理前做一次数据缓冲,如果要还原,换副到之前一步的数据即可,基本都是这么做的