vb绘制 函数曲线

Private Sub Form_Load()

Show

Move 0, -300, 90000, 60000

Scale (-99, 69)-(99, -69)

Line (-9, 0)-(9, 0)

Line (0, 60)-(0, -60)

For a = -9 To 9 Step 1

CurrentX = a

CurrentY = 0

Print a

DrawWidth = 2

PSet (a, 0), vbGreen

DrawWidth = 1

CurrentX = 0

CurrentY = a

DrawWidth = 2

PSet (0, a), vbGreen

DrawWidth = 1

If a > -61 And a < 61 Then Print a

Next

For t = 0 To 314159 Step 0002

x = 3 Sin(3 t) Cos(t)

y = 3 Sin(3 t) Sin(t)

DrawWidth = 1

DrawWidth = 2

PSet (x, y), vbGreen

MeRefresh

Next

End Sub

Line 方法

请参阅 范例 适用于

在一个对象上画线条和长方形；无法使用指名自变量。

语法

objectLine Step (x1, y1) - Step (x2, y2), color, BF

Line 方法的语法有下列这些部分：

单元 说明

object 可选择的。对象表达式，指定位于「适用于」清单中的对象。若是 object 被省略，则含有驻点 的 Form 会被假设成为 object 。

Step 可选择的。关键词 ，用来指定起点的坐标，而坐标相关于由 CurrentX 和 CurrentY 属性所给定的目前图形位置。

(x1, y1) 可选择的。是单精密度的值，用来指出线条或长方形起点的坐标。 ScaleMode 属性决定了测量时所使用的单位。若它被省略，则线条由 CurrentX 和 CurrentY 所指定的位置开始。

Step 可选择的。它是一个关键词，指定相关于线条起点位置的终点坐标。

(x2, y2) 必需要的。是单精密度的值，它们表示目前要画线条的终点坐标。

color 可选择的。它是长整数值，表示用来画线条的 RGB

颜色。如果它被省略，则使用 ForeColor 属性的值。您也可以使用 RGB 函数或是 QBColor 函数来指定此颜色。

B 可选择的。若它被包含进来，则绘出坐标所指定对角的方块。

F 可选择的。若 B 选项被使用，则 F 选项会指定此方块的内部与外框将使用相同颜色填满。您不能只使用 F 而不使用 B。如果使用 B 而不使用 F ，则此方块以目前的 FillColor 和 FillStyle 来填满。 FillStyle 的默认值是透明的。

请注意

为了画出连续的线条，随后的线条要开始于上一线条的终点。

画出线条的宽度是依照 DrawWidth 属性的设定。在背景画线条或方块的方法是根据 DrawMode 和 DrawStyle 属性的设定。

当 Line 执行时， CurrentX 和 CurrentY 属性会被设定成由自变量所设定的终点。

Private Sub Picture1_Click()

V0 = Text1

X1 = 10: Y1 = 10

For t = 0 To 50

    X2 = 10 + V0  t

    Y2 = 10 + 10  t  t / 2

    Picture1Line (X1, Y1)-(X2, Y2), vbRed

    X1 = X2: Y1 = Y2

Next t

End Sub