vb.net - 更改每行的颜色

  显示原文与译文双语对照的内容
0 0

我有一个控制台应用程序,在 3D 个CAD程序中绘制线条。 现在让我更清楚地说,我想改变不同颜色的线条。

我的代码从文本文件读取变量并从它计算数据,然后在这里计算数据中生成一行。 这里过程在包含数据的文本文件中的每一行重复。

现在我想要,更改颜色 everytinme,绘制一条新线条,所以我得到了不同的颜色线。

我尝试过用a 。 "。"。步骤方法,但这没有工作。 我还试图从文本文件( 这些是不同的,所以当一个新的行读取时,RGB代码会改变) 中使用变量,但这将只会导致大量蓝色。

任何建议?

编辑:

这是我用来绘制曲线的方法,每次生成一条带有新数据的线条时,RGB代码都必须为 cahnge:


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

时间: 原作者:

0 0

那你?


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 上面 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

这不会总是给你"pretty"颜色,但它们对于每一行都是不同的。 如果希望控制生成的颜色,可以设置预定义颜色的array,并在迭代中使用这些颜色。

...