小女子跪求各位大虾

singlegu · 发表于 2006-5-8 07:50:00

目标:在窗体中输入XYZ的坐标,单击"下一点"按扭后继续输入XYZ的坐标,输完全部点之后单击"输入完毕"按扭,能把刚输入的各点按输入的先后顺序用线连接.
可不知道如何保存输入的所有点,希望大虾们帮帮小女子,万分感谢!!!

xinghesnak · 发表于 2006-5-8 08:23:00

最简单的方法，在窗体上放一个textbox控件，让他不可见，每次都把数据写进里面。。。。。^_^，有点投机取巧。。。。

singlegu · 发表于 2006-5-8 11:17:00

可以讲的具体一点吗?

霹雳啪啦啦 · 发表于 2006-5-8 11:18:00

用一个二维数组临时存放，其中一维是一个点的X，Y，Z坐标，一维是点的数量。

xinghesnak · 发表于 2006-5-8 11:31:00

楼上的方法可以，我开始以为不行呢。。^_^，误导误导！

singlegu · 发表于 2006-5-8 11:55:00

那数组怎么临时存放啊,能具体点吗,我刚学VB,可以看看代码吗?

xinghesnak · 发表于 2006-5-8 13:37:00

Private Type userData
    Xoriente As Double
    Yoriente As Double
    Zoriente As Double
End Type
Dim PointData() As userData

Private Sub Command1_Click()
If PointData(0).Xoriente <> 0 Then ReDim Preserve PointData(UBound(PointData) + 1)
PointData(UBound(PointData)).Xoriente = Text1.Text
PointData(UBound(PointData)).Yoriente = Text2.Text
PointData(UBound(PointData)).Zoriente = Text3.Text
End Sub

Private Sub Form_Load()
ReDim PointData(0) As userData
End Sub

singlegu · 发表于 2006-5-8 14:58:00

If PointData(0).Xoriente <> 0 Then ReDim Preserve PointData(UBound(PointData) + 1)
这句有问题，说是下标越界，该怎么改啊

xinghesnak · 发表于 2006-5-8 15:32:00

看到最下面的那句

Private Sub Form_Load()
ReDim PointData(0) As userData
End Sub

了吗？一定要写上，要不就下标越界了

singlegu · 发表于 2006-5-8 15:54:00

我写上了啊，可还是下标越界

账号		自动登录	找回密码
密码			注册