VB如何从txt中读取数据在picturebox中作图
例如:xy1210457124一行就是一个坐标怎么读取数据并作图每2个点之间要有连线不是直接画点...
例如:
x y
1 2
10 4
5 7
12 4
一行就是一个坐标 怎么读取数据并作图
每2个点之间要有连线 不是直接画点 展开
x y
1 2
10 4
5 7
12 4
一行就是一个坐标 怎么读取数据并作图
每2个点之间要有连线 不是直接画点 展开
5个回答
展开全部
把你上面那些数据存成文本文件,路径是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
================
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
展开全部
这样,你可以设两个数组,读取txt每一行的数据,然后用split函数分割,再将两列数据分别赋予两个数组,然后根据数值按一定规则求出画图的xy值,再在picturebox中画图就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用&ch(13)+ch(10)实现换行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把数据读出来处理好后画上去就可以了,这是什么图啊?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个得看你咋定义的了
比如你吧text1 里放上第一列数据 text2立方是第二列数据
比如你吧text1 里放上第一列数据 text2立方是第二列数据
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询