songnuan269的博客

一款好用的VB曲线,各种模型均已内置，Declare Function BitBlt Lib "GDI32" (ByVal hDestDC AS Long,ByVal X As Long,ByVal Y As Long,ByVal nWidth As Long,ByVal nHeight As Long,ByVal hSrcDC As Long,ByVal xSrc As Long,ByVal ySrc As Long,ByVal DrawStyle As Long) As Long Gobal S As Long `量程 Gobal L As Long `上一次的纵坐标值 Gobal T As Integer `上一次时间值（分） 3、 Private Sub Form1_Load() Picture1.AutoRedraw = False `曲线不重画 Picture1.ScaleMode = 3 `以象素方式(Pixel)