根据txt记事本坐标生成线
当工程打开的时候或者按下按钮以后,根据以下的坐标来生成图像多个(由线连接起来的),希望有大侠来指点下!!txt里面的记录
x1s=543 y2=233
X2s=3660 Y2s=900
X3s=7875 Y3s=825
Cur_Num=2 (注释Cur_Num的意思是2条线)txt记事本里没有的
X1=3420 Y1=2445
X2e=4380 Y2e = 3210
X3e=3210 Y3e = 4110
X4e=2235 Y4e = 2835
X5e=3420 Y5e=2445
Cur_Num=4 (注释Cur_Num的意思是4条线)txt记事本里没有的
X1=3420 Y1=2445
X2e=4380 Y2e = 3210
X3e=3210 Y3e = 4110
X4e=2235 Y4e = 2835
X5e=3420 Y5e=2445
Cur_Num=4 (注释Cur_Num的意思是4条线)txt记事本里没有的
应该再解释一下 啊 想做个电子地图,第一次在地图上画的图,然后重新打开软件的时候那些图还在上面 (在txt里面读取
) 把记录方式改一下,就会更容易处理:
txt里面的记录
0,543,233
1,3660,900
2,7875,825
0,3420,2445
1,4380,3210
2,3210,4110
3,2235,2835
4,3420,2445
0,3420,2445
1,4380,3210
2,3210,4110
3,2235,2835
4,3420,2445
路过学习..头像好看 谢谢你了哦 呵呵 我还没试 怎么给你分呀
Dim x1 As Long, x2 As Long, y1 As Long, y2 As Long, strTmp As String, strArr() As String
Open "test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strTmp
strArr = Split(strTmp, ",")
If Ubound(strArr) = 2 Then
If strArr(0) = "0" Then
x1 = Val(strArr(1))
y1 = Val(strArr(2))
Else
x2 = Val(strArr(1))
y2 = Val(strArr(2))
Picture1.Line (x1, y1)-(x2, y2), vbBlack
x1 = x2
y1 = y2
End If
End If
Loop
Close #1
of123 恩 你是办法是好 我记录的太麻烦了
补充:VB , 基础类