vba的用户窗体能自动重绘吗？

panwen2001

我想在excel里面用vba做一个数据采集程序，一共采两个值，采过来在用户窗体上的ListView里面画曲线，现在画图问题基本解决了，不过画出来的曲线在窗口最小化在恢复后就消失了，各位大侠帮帮忙看怎么解决？？

yvhf

朋友，建议给出附件。

coby001

很好解决啊，在你的窗体的Active和Resize事件里执行一次你在listview的画图sub就可以了

panwen2001

附件贴出来了，我的绘图代码是放在Xtimer里面的，每个一秒钟产生一个点，绘制曲线，不能放在resize或active事件里面

coby001

哎呀   要知道  办法总比困难多的

panwen2001

是啊，可是我想了半天也没想出什么好办法，大家帮帮忙啊

coby001

看了你的程序，很好，主要功能在  采集数据  ，而不是 画图。
数据采集到以后，应该保存到文件，至少要保存在一个全局数组吧，这是起码的要求。

coby001

发现问题出在LV的刷新上
恰恰相反，userform 重新显示的时候，是自动重画了的，把原来到图给刷没了
你在 LV 的mousemove 事件 里  加一句 Canvas.Refresh   就知道了

panwen2001

数据采集到以后我想直接保存在worksheet里面，因为会有很多的表，每个表都有一个对应数据采集曲线，所以数据就放直接保存在表里面，以后查询也方便，而且采集的数据量较大，保存在数组里面会不会太大了

具体的数据怎么采集还没有考虑好，先把绘图，保存数据，重绘曲线这些基本的简单的问题先解决了

coby001

假设整个程序有以下几个功能：
1、采集数据（）
2、画点（）
3、保存数据（）
---------------------------------------
好了，在  xTimer  里，就应该有
sub OnXTime（）  '每秒执行一次
采集数据  '读取数据到文件 或 数组
画点    '根据数据画点
end  sub


假设在 窗体的Activate事件里重画,用数组保存数据
sub  窗体_Activate()
for  i = 1  to  ubound(数组)
画点    '根据数据画点，有多少就全画出来
next
end sub





以上是个思路，你参考以下