VB6.0TXT坐标数据绘图

VB6.0 的坐标绘图，真的是经典中的经典。如果你手上有一份 TXT 文件里头存着一堆坐标点，想在窗口里画出来，VB6.0 其实能轻松搞定。整个思路不复杂，先用FileSystemObject打开文件，按行读内容，用PictureBox当画布，配合Paint 事件和Graphics对象画线画点就行了。

读取 TXT 文件的数据，最常用的方式就是创建个 FileSystemObject，用 OpenTextFile 方法打开目标文件，一行行读数据：

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile = fso.OpenTextFile("C:\your\path\data.txt", 1)
Do Until txtFile.AtEndOfStream
  line = txtFile.ReadLine
  ' 解析并 line
Loop

你拿到的 line 里是像 (120, 300) 这种格式，分离出 X 和 Y 再映射到画布上。用 PictureBox 来画图蛮方便的，可以直接在 PictureBox.Paint 事件里动手画坐标轴和图形：

Private Sub PictureBox1_Paint(ByVal Sender As Object, ByVal e As PaintEventArgs)
  e.Graphics.DrawLine Pens.Black, 0, 100, 300, 100 ' 画 X 轴
  e.Graphics.DrawLine Pens.Black, 100, 0, 100, 300 ' 画 Y 轴

要绘制点或连线，用 e.Graphics.DrawEllipse 或 DrawLines 都可以，点多了的话建议先缓存下来再画，效率高不少。注意一点，VB6.0 没有专门的 DrawPoint 方法，画点可以用一个超小的椭圆代替。

，这种小工具蛮适合练手，流程清晰，逻辑也比较直观。如果你刚好在用 VB6.0 图形绘制任务，这个思路值得一试。

更多相关例子可以看看这些：

• VB6.0 数据保存为 TXT 文件源码分享
• VB6.0 鼠标绘图程序
• 用 vb6.0 画坐标系
• 获取当前鼠标坐标程序(VB6.0 源代码)
• msdn for vb6.0

如果你对坐标映射没啥概念，可以多试试不同缩放比例；如果数据量大，建议加点缓存，不然画图会卡。