VB如何从txt中读取数据在picturebox中作图

例如:
x y
1 2
10 4
5 7
12 4
一行就是一个坐标 怎么读取数据并作图
每2个点之间要有连线 不是直接画点

把你上面那些数据存成文本文件,路径是D:\1.txt.注意两个数据之间改为只有一个空格。然后代码如下,运行时单击窗体查看效果。
================
Option Explicit

Private Sub Form_Click()
Open "d:\1.txt" For Input As 1
Dim s As String, a
Line Input #1, s
Do Until EOF(1)
Line Input #1, s
a = Split(s)
PSet (Val(a(0)), Val(a(1))), vbRed
Loop
Close
End Sub

Private Sub Form_Load()
AutoRedraw = True
Scale (-20, 20)-(20, -20)
Line (-20, 0)-(20, 0), vbBlue
Line (0, 20)-(0, -20), vbBlue
DrawWidth = 3
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2019-10-22
这样,你可以设两个数组,读取txt每一行的数据,然后用split函数分割,再将两列数据分别赋予两个数组,然后根据数值按一定规则求出画图的xy值,再在picturebox中画图就可以了。
第2个回答  2009-07-10
用&ch(13)+ch(10)实现换行
第3个回答  2009-07-10
把数据读出来处理好后画上去就可以了,这是什么图啊?
第4个回答  2009-07-10
这个得看你咋定义的了
比如你吧text1 里放上第一列数据 text2立方是第二列数据
相似回答