各位VB高手,我想问一下如何读取PA后面的坐标,并保存在x,y中,然后在将所有的X,Y绘图。谢谢

发布网友 发布时间: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

读坐标比较容易,但是绘图需要坐标处的图像要素,没有这些怎么绘图?

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com