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

小女子跪求各位大虾

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

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

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

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

<P>可以讲的具体一点吗?</P>

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

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

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

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

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

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

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

<P>Private Type userData<BR>&nbsp;&nbsp;&nbsp; Xoriente As Double<BR>&nbsp;&nbsp;&nbsp; Yoriente As Double<BR>&nbsp;&nbsp;&nbsp; Zoriente As Double<BR>End Type<BR>Dim PointData() As userData</P>
<P>Private Sub Command1_Click()<BR>If PointData(0).Xoriente &lt;&gt; 0 Then ReDim Preserve PointData(UBound(PointData) + 1)<BR>PointData(UBound(PointData)).Xoriente = Text1.Text<BR>PointData(UBound(PointData)).Yoriente = Text2.Text<BR>PointData(UBound(PointData)).Zoriente = Text3.Text<BR>End Sub</P>
<P>Private Sub Form_Load()<BR>ReDim PointData(0) As userData<BR>End Sub<BR></P>

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

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

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

<P>看到最下面的那句</P>
<P>Private Sub Form_Load()<BR>ReDim PointData(0) As userData<BR>End Sub</P>
<P>了吗？一定要写上，要不就下标越界了</P>

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

<P>我写上了啊，可还是下标越界</P>
页: [1] 2 3
查看完整版本: 小女子跪求各位大虾