我想利用picturebox做一个类似于心脏跳动的那种心跳图,应该怎么做呢

Question

就是设置好横竖坐标轴,然后在上面描点,把每个点连接起来,形成了一个趋势图这种类型.另外还要加上一个横式的滚动条,哪里有相关的代码介绍呢?

Answer 1

找几张心脏跳动的连续图片，
在TIMER控件里隔一段时间就加载下一张。dim Pic(5) as string
dim PicIndex as long
sub form_load()
Pic(0)=app.path & "\A.bmp"  '假定一共有A到F六张照片
Pic(1)=app.path & "\B.bmp"
Pic(2)=app.path & "\C.bmp"
Pic(3)=app.path & "\D.bmp"
Pic(4)=app.path & "\E.bmp"
Pic(5)=app.path & "\F.bmp"
timer1.interval=300
PicIndex=0
end subPrivate Sub Timer1_Timer()
PicIndex=(PicIndex+1)mod 6
picture1.picture=loadpicture(PicIndex)
End Sub这样就可以了。

Answer 2

用VBA的折线图来实现比较简单
    Charts.Add
    ActiveChart.ChartType = xlLineMarkersStacked
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A9:B11"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "title"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With

Answer 3

使用API函数：
画线：MoveTo、LintTo
及Bitblt

Answer 4

动态的移动就是使用API的Bitblt啊