0

3DCADプログラムで線を引くコンソールアプリケーションを入手しました。これをより明確にするために、これらの線を異なる色に変更したいと思います。

私のコードは、テキストファイルから変数を読み取り、そこからデータを計算してから、この計算されたデータから行を作成します。このプロセスは、データを含むテキストファイルのすべての行で繰り返されます。

これで、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)
4

1 に答える 1

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

これにより、常に「きれいな」色が得られるとは限りませんが、行ごとに異なります。生成された色を制御したい場合は、事前定義された色の配列を設定し、これらを反復で使用できます。

于 2012-11-30T14:57:53.110 に答える