Question

是否可以在VB6.0中绘制心电图？因为我对VB不太熟悉，所以我们将不胜感激。请帮助我。谢谢。

Answer 1

最简单的方法是使用一个图片框，AutoRedraw属性设置为true，ScaleMode设置为vbPixels。

对于每个点，您计算Y值（取决于最小和最大允许值）。要进行扫描，只需将绘制的每个点的X值增加到达到图片框宽度（.ScaleWidth）时回到0。

您可以使用图片框的.Line方法清空当前X点后面的区域，并使用.PSet方法绘制新点。

Dim X As Long
Dim LastValue As Long

Private Sub AddPoint(ByVal Value As Long)
  'Clear the line behind (for 5 pixels forward)
  Picture1.Line (X, 0)-(X + 5, Picture1.ScaleHeight), vbBlack, BF

  'Draw the new point and the line from the previous point
  Picture1.Line (X - 1, LastValue)-(X, Value), vbGreen
  Picture1.PSet (X, Value), vbGreen

  'Update the last value so we can draw the line between them
  LastValue = Value

  'Increment the X value for the next point
  X = X + 1
  If X = Picture1.ScaleWidth Then X = 0
End Sub

更好的方法是使用您使用类似方法更新的屏幕外图片，并在需要时更新图片框。

在VB6.0中绘制心电图

1 个答案: