用VB编写画图程序

提供一个绘制任意曲线的简单代码。其他功能类似，希望能举一反三。

在窗体中添加一个Picture box，然后输入命令如下：

Dim oldx As Single

Dim oldy As Single

 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then       '当鼠标左建按下时发生

        Picture1.Line (oldx, oldy)-(X, Y)

        oldx = X

        oldy = Y

    End If

End Sub

  

Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    oldx = X

    oldy = Y

End Sub

首先将你的代码修改如下：

Private Sub Command1_Click()

On Error Resume Next

Set xlapp = GetObject("Excel.Application")  '打开正在运行的Excel副本

If Err.Number <>0 Then

Set xlapp = CreateObject("Excel.Application") '创建一个Excel副本

ExcelWasNotRunning = True

End If

Err.Clear '打开当前目录下的Excel工作簿等级.xlsx

Set xlbook = xlapp.Workbooks.Open("D:\界面\等级.xls") '以A1作为当前区域的开头,读取该区域的地址

Set xlrng = xlbook.Worksheets(1).Range("A1").CurrentRegion

Dim thisarray(1 To 3, 1 To 3)

Dim i As Integer

Dim level2, level3 As Single

intRows = 3

For i = 1 To intRows '获得行标题(名称)

thisarray(i, 1) = CStr(xlrng.Range("A" &i + 1).Value) '获得其它三列数值字段

level2 = xlrng.Range("B" &i + 1).Value ' 读取二级次数

level3 = xlrng.Range("C" &i + 1).Value '读取三级次数

thisarray(i, 2) = level2

thisarray(i, 3) = level3

MSChart1.ChartData = thisarray

Next

xlbook.Close

Set xlbook = Nothing

xlapp.Quit

End Sub

然后

在vb中点击工程-引用-Microsoft excel library，部件中选择Microsoft chart control ，d盘界面文件夹里新建等级.xls文件，在A1:C4 单元格中随便输入如下，分别如下图

最后运行代码，即可运行如下

Line 方法

请参阅 范例 适用于

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

语法

object.Line 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 属性会被设定成由自变量所设定的终点。

---