更改每行的颜色

Question

我有一个在 3D CAD 程序中画线的控制台应用程序。现在为了更清楚地说明这一点，我想将这些线条更改为不同的颜色。

我的代码从文本文件中读取变量并从中计算数据，然后从该计算数据中生成一行。 文本文件中包含数据的每一行都会重复此过程。

现在我希望 Visual Basic 每次绘制新线时更改颜色，所以我得到不同颜色的线。

我尝试使用 For.. To.. Step 方法，但这不起作用。我也尝试使用我的文本文件中的变量（这些是不同的，所以当读取新行时，RGB 代码会改变）但这只会给我很多蓝色。

有什么建议吗？

编辑：

这是我用来绘制曲线的方法，每次生成新数据线时，RGB 代码都必须更改：

' Creating a Curve2d object by using the above defined points
                    objLineString = objLineStrings.AddByPoints(PointCount:=points, points:=dataArray)
                    objGeometricStyle = objLineString.Style
                    color = objGeometricStyle.LinearColor
                    objGeometricStyle.LinearColor = RGB(0,0,0)

Answer 1

怎么样：

Dim rand As New Random() ' Used to generate random numbers
Dim colors(100) as Integer

' Create the colors
For i as Integer = 0 to 100 Step 1
    colors(i) = RGB(rand.Next(256), rand.Next(256), rand.Next(256))
Next

For i As Integer = 0 To 100 Step 1 ' Adjust to your needs
    ' Creating a Curve2d object by using the above defined points
    objLineString = objLineStrings.AddByPoints(PointCount:=points, points:=dataArray)
    objGeometricStyle = objLineString.Style
    color = objGeometricStyle.LinearColor
    objGeometricStyle.LinearColor = colors(i Mod 100) ' Mod returns the remainder of i / 100, so it's always less than 100.
Next

这不会总是给你“漂亮”的颜色，但它们会因每一行而不同。如果您想控制生成的颜色，可以设置一组预定义颜色并在迭代中使用这些颜色。