graph - 在VB6.0中绘制心电图

Question

VB6.0是否可以画心电图？由于我对 VB 不太熟悉，因此将不胜感激任何类型的帮助。请帮助我。在此先感谢。

Answer 1

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

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

您可以使用图片框的.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

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