2024年5月7日发(作者：)

一个画曲线的函数

Const XMargin = 20 'XMargin --- X轴预留像素

Const YMargin = 20 'YMargin --- Y轴预留像素

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As

POINTAPI, ByVal nCount As Long) As Long

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As

Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As

Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

'一个画曲线的函数

'XData --- 存放X轴数据

'YData --- 存放Y轴数据

'PicObj --- 画图形的控件

'ShowDot --- 是否显示接点

'ShowBorder --- 是否显示边框

Private Function DrawLine(XData() As Double, YData() As Double, PicObj As

PictureBox, Optional ShowDot As Boolean = True, Optional ShowBorder As

Boolean = True) As Boolean

On Error GoTo ErrFlag

Dim TotalData As Long '所画曲线的总点数

Dim i As Long, j As Long

Dim XMax As Double, XMin As Double, XScale As Double

Dim YMax As Double, YMin As Double, YScale As Double

Dim dblTemp As Double

Dim XY() As POINTAPI