'
form = 1个 command1 一个shape1 一个list
' 步骤 : 放入以上3个控件 复制下列代码到代码窗口 启动即可看到效果
==============================================================================
Private Sub Command1_Click()
Min = List1.List( 0 ) ' 这里获取最大 最小值 作为曲线的最高点和最低点=====
Max = List1.List( 0 )
For i = 1 To List1.ListCount -
' 步骤 : 放入以上3个控件 复制下列代码到代码窗口 启动即可看到效果
==============================================================================
Private Sub Command1_Click()
Min = List1.List( 0 ) ' 这里获取最大 最小值 作为曲线的最高点和最低点=====
Max = List1.List( 0 )
For i = 1 To List1.ListCount -