vb图片框内 画好的曲线会消失

mevin999 2017-07-20 08:20:50
实时显示曲线,但如果期间我点个按钮跳出一个新界面,此时之前画好的曲线会消失,曲线会在断点处继续画。什么原因啊?
...全文
145 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
mevin999 2017-07-20
  • 打赏
  • 举报
回复
引用 5 楼 zdingyun 的回复:
[quote=引用 4 楼 mevin999 的回复:] [quote=引用 2 楼 bakw 的回复:] 图片框的autoredraw属性设置为True
早改了 还是没用啊[/quote] 这是不可能的,查下你的绘图对象是图片框还是窗体。 AutoRedraw 属性,返回或设置从图形方法到持久图形.的输出。 [/quote] 我知道了 是我把曲线的宽度设置的比外边框的小,所以会覆盖住前面的曲线。 感谢各位大佬的帮助
zdingyun 2017-07-20
  • 打赏
  • 举报
回复
引用 4 楼 mevin999 的回复:
[quote=引用 2 楼 bakw 的回复:] 图片框的autoredraw属性设置为True
早改了 还是没用啊[/quote] 这是不可能的,查下你的绘图对象是图片框还是窗体。 AutoRedraw 属性,返回或设置从图形方法到持久图形.的输出。
mevin999 2017-07-20
  • 打赏
  • 举报
回复
引用 2 楼 bakw 的回复:
图片框的autoredraw属性设置为True
早改了 还是没用啊
mevin999 2017-07-20
  • 打赏
  • 举报
回复

第二张图就是点开一个按钮后的样子 前段的曲线消失了
笨狗先飞 2017-07-20
  • 打赏
  • 举报
回复
图片框的autoredraw属性设置为True
mevin999 2017-07-20
  • 打赏
  • 举报
回复
我把实时作图是放在Timer 里面的 Private Sub Timer2_Timer() x = Text3.Text If x < 5 Then Text2 = Text2 + 600 Else Text2 = Text2 - 20 End If Y2 = Val(Text2.Text) Y1 = Val(Text1.Text) Pic.Line (x, Y1)-(x + 1, Y2), vbRed Pic.DrawWidth = 2 Text1 = Text2 End Sub

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧