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

2024-11-29 00:39:47

推荐回答（5个）

回答（1）：

把你上面那些数据存成文本文件，路径是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

回答（2）：

这样，你可以设两个数组，读取txt每一行的数据，然后用split函数分割，再将两列数据分别赋予两个数组，然后根据数值按一定规则求出画图的xy值，再在picturebox中画图就可以了。

回答（3）：

用＆ch(13)+ch(10)实现换行

回答（4）：

把数据读出来处理好后画上去就可以了，这是什么图啊？

回答（5）：

这个得看你咋定义的了
比如你吧text1 里放上第一列数据 text2立方是第二列数据