发布网友 发布时间:2022-04-24 20:40
共2个回答
热心网友 时间:2023-10-10 08:09
读取PA后面的坐标并保存到x,y中,这个很简单,几句代码可以解决。
真正难的是后面绘图部分,而且绘什么图,在哪里绘图,这些问题你都没说。追问画直线?在picturebox中绘图啊?!谢谢
追答Private Sub Command1_Click()
Dim strA As String, strP As String, strData As String
Dim x(), y()
Dim fs As Object, ff As Object
strP = App.Path & "\"
strA = Dir(strP & "坐标.txt")
Dim s
If strA <> "" Then '打开文件
Set fs = CreateObject("Scripting.FileSystemObject")
Set ff = fs.OpenTextFile(strP & strA, 1)
Text1.Text = ff.readall
ff.Close
End If
'处理数据
Dim arr, brr, n As Integer
arr = Split(Text1.Text, ";PA")
ReDim x(UBound(arr)), y(UBound(arr))
For n = 0 To UBound(arr)
brr = Split(arr(n), ",")
x(n) = Val(brr(0))
y(n) = Val(brr(1))
Next
For n = 0 To UBound(arr) - 1
Picture1.Line (x(n), y(n))-(x(n + 1), y(n + 1)), vbRed
Next
End Sub
你提供的数据我保存在”坐标.txt“文件中。
详见附件中的代码:
热心网友 时间:2023-10-10 08:09
读坐标比较容易,但是绘图需要坐标处的图像要素,没有这些怎么绘图?