vb 遇到困难，求高手帮忙

miaomiao · 发表于 2010-4-22 17:45:51

我给一个曲线分了10段，要连续两个点连线。

Private Sub RunScript(ByVal pts As List(Of On3dPoint), ByVal no As Integer, ByRef A As Object)
Dim i As Integer
For i = 0 To no
   Dim pt As On3dPoint
   pt = pts(i)
   Dim new_line As New Online
   Dim end_pt As New On3dPoint
   Dim sta_pt As New On3dPoint
   Dim alllines As New List
   end_pt = pt(i - (i - 1))
   sta_pt = pt(i)
   new_line(sta_pt, end_pt)
   alllines.add(new_line)
Next
a = alllines
End Sub

panhao1 · 发表于 2010-4-22 18:15:54

这还用vb么你把奇数点和偶数点分离出来再连线就行了

panhao1 · 发表于 2010-4-22 18:18:10

再说这也是vb比较基础的部分红皮书上介绍得很详细
我遇到问题也是翻红皮教程

cjsyzwsh · 发表于 2010-4-22 19:42:21

能不能给一个完整的呀，这段明显不太完整，下面的函数是什么？

cjsyzwsh · 发表于 2010-4-22 19:42:43

楼主能不能把整个都贴上来？

miaomiao · 发表于 2010-4-23 03:30:33

回楼上，已经无保留的全贴出来了。这是我第一个练习。可惜出师不利啊！！！

miaomiao · 发表于 2010-4-23 03:31:12

感谢pan的解答，可是我要的不是结果，而是如何用vb写出来。

nice · 发表于 2010-5-19 17:04:21

红皮书？是哪个啊 101吗？

panhao1 · 发表于 2010-5-22 20:50:22

7# miaomiao

首先帮你移动下贴子（到求助版）

Dim pt As On3dPoint
pt = pts(i)

new_line(sta_pt, end_pt)

Dim alllines As New List

这3个地方有问题

1 如果不用new或者copy的话实际上是在操作指针

2 new_line=new OnLine(sta_pt, end_pt)

3 在for里面定义的变量时私有变量

从你的错误类型可以看出你对vb初级知识还掌握不够希望多多阅读教程第二版

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