请问如何用VB调用txt中的某一列绘图

你的问题有点大，帮你分解下

首先得知道你的txt里数据的格式，你用了“列”的概念，那么是用什么来分隔列的，逗号？分号？还是空格？好吧，其实这不是重点，重点是读取 txt 文件并把某一“列”提取出来，你没说明格式，所以现在没法回答

有了数据后就是绘制曲线图，一种办法是使用控件，VB里自带的控件（MS Chart）。如果你想自己画线，建议用折线或者直方图（就是柱状图），因为比较容易实现。

画图的关键点：

确定坐标系；画出X,Y轴，标上刻度；根据坐标画出点，并将这些点连接起来（如果是曲线，需要确定一个函数，以一定的精度逐点描线）

如果你对上述问题有所了解。代码就不是大问题

下面的示例显示一个具有 8 行 8 列数据的三维图表，并设置了图例的参数。

Private Sub Command1_Click()

With MSChart1

'显示一个具有 8 行 8 列数据的三维图表。

ChartType = VtChChartType3dBar

ColumnCount = 8

RowCount = 8

For column = 1 To 8

For row = 1 To 8

Column = column

Row = row

Data = row 10

Next row

Next column

'将图表作为图例的背景。

ShowLegend = True

SelectPart VtChPartTypePlot, index1, index2, _

index3, index4

EditCopy

SelectPart VtChPartTypeLegend, index1, _

index2, index3, index4

EditPaste

End With

End Sub

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

在窗体中添加一个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       '当鼠标左建按下时发生

        Picture1Line (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

连接examplemdb数据库，将里面的所有记录返回一个记录集NewDyn，如果NewDynRecordCount=0就是记录集记录为空的话，就要求输入数据，然后从whth 到end with代码段就是根据数据库里面的记录建立一个数据视图，程序基本上可以照搬，就是需要自己建立一个数据库就可以了，里面涉及到一些具体小细节上面的东西可能需要修改，根据情况而定。呵呵。如果还有什么不懂，可以问我嘛。

以上就是关于请问如何用VB调用txt中的某一列绘图全部的内容，包括:请问如何用VB调用txt中的某一列绘图、vb mschart控件、用VB编写画图程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！