VB 如何生成撤销前一步的画图代码
Forj%=1ToCSFori%=1ToHS888picture1.line((i-1)*standard_L+((i-1)/2-1/2)*dis_zx,H+(j-1)*...
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那行的命令 展开
2个回答
展开全部
Dim pic1 As Picture
Set pic1 = Picture1.Image
画图前先保存下来
Picture1.Picture = pic1
恢复
Set pic1 = Picture1.Image
画图前先保存下来
Picture1.Picture = pic1
恢复
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
