VB控件PictureBox画实时曲线不显示

采集的数据Ifkkk(0)=2ThenLabel2.Caption=inbuf(0)IfVal(Label9.Caption)=&H1Thenkk=inbuf(0)*10... 采集的数据
If kkk(0) = 2 Then
Label2.Caption = inbuf(0)
If Val(Label9.Caption) = &H1 Then
kk = inbuf(0) * 100 / 153
Text1.Text = kk
datate(cishu) = kk
Grid.Col = 1: Grid.Row = cishu + 1
Grid.Text = kk
cishu = cishu + 1
绘图程序
Private Sub draw()
Picture1.Cls
Picture1.DrawWidth = 1
Picture1.BackColor = QBColor(15)
Picture1.Scale (0, 200)-(200, 0)
For c = 1 To cishu - 1
X1 = (c - 1): Y1 = datate(c - 1)
X2 = c: Y2 = datate(c)
Picture1.Line (X1, Y1)-(X2, Y2), QBColor(0)
Next c
End Sub
帮忙看下哪里错了怎么改才能显示
展开
 我来答
网海1书生
科技发烧友

2014-04-09 · 擅长软件设计、WEB应用开发、小程序
网海1书生
采纳数:12311 获赞数:26228

向TA提问 私信TA
展开全部
1、cishu、datate必须是全局变量
2、Picture1的AutoRedaw属性必须设为True

暂时只能说这两点,因为你的代码没有贴完整,尤其是没有显示draw的调用代码
更多追问追答
追问

调用的

追答
Form的AutoRedaw属性设为True
我们的梦168
2014-04-09 · TA获得超过194个赞
知道小有建树答主
回答量:261
采纳率:0%
帮助的人:169万
展开全部
设置一下属性试试
Form1.AutoRedraw = True
Picture1.AutoRedraw = True
另,你的Picture1.BackColor属性也改一下试试。
还有,在画图的循环里加一个语句,看看有没有进入循环。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
SQL的艺术
2014-04-09 · SQL写多了就会在追求极致
SQL的艺术
采纳数:2040 获赞数:3323

向TA提问 私信TA
展开全部
采集的数据
  If kkk(0) = 2 Then
           Label2.Caption = inbuf(0)
            If Val(Label9.Caption) = &H1 Then
               kk = inbuf(0) * 100 / 153
               Text1.Text = kk
            datate(cishu) = kk
               Grid.Col = 1: Grid.Row = cishu + 1
               Grid.Text = kk
               cishu = cishu + 1
绘图程序
Private Sub draw()
Picture1.Cls
Picture1.DrawWidth = 1
Picture1.BackColor = QBColor(15)
Picture1.Scale (0, 200)-(200, 0)
For c = 1 To cishu - 1
X1 = (c - 1): Y1 = datate(c - 1)
X2 = c: Y2 = datate(c)
Picture1.Line (X1, Y1)-(X2, Y2), QBColor(0)
doevents
Next c
doevents
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
麒麟中国China
2014-04-09 · TA获得超过244个赞
知道小有建树答主
回答量:300
采纳率:0%
帮助的人:118万
展开全部
Picture1的AutoRedaw=True
再调用一下Picture1.Refresh
另外要在窗体加载之后再划线,若是放到form_load里,是肯定不显示的。以前我画过,程序代码都没问题,在窗体加载后调用划线程序就可以显示了
追问
窗体加载后再画线我不是太理解
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式