こんにちは私はvb.netで関数を作成して、ランダムに生成された色を作成して、フォーム上のListViewの行を強調表示しようとしています。コードへの入力は、バイトであるSlaveIDです。私が抱えている問題は、同じSlaveIDを複数回入力すると、常に同じカラー出力が得られることです。 Rndは数字をランダムにするために現在の時間を取っているので、入力値が変わらなくてもこの関数を呼び出すたびに色出力が変わります。 Rndの簡単な置き換えになる時間によって影響を受けない乱数生成器はありますか?ランダムな色を作成してvb.netのテキストを強調表示する
Private Function GetColourForRow(ByVal SlaveID As Byte)
Dim ListViewItemColour As New ListViewItem
Dim upperbound As Byte = 255
Dim lowerbound As Byte = 100
Dim ColourA As Int16 = CInt(Math.Floor((upperbound * 2 - lowerbound + 1) * Rnd(SlaveID) + 2)) + lowerbound
Dim ColourR As Int16 = CInt(Math.Floor((upperbound - lowerbound + 1) * Rnd(SlaveID))) + lowerbound
Dim ColourG As Int16 = CInt(Math.Floor((upperbound - lowerbound + 1) * Rnd(SlaveID + 5))) + lowerbound
Dim ColourB As Int16 = CInt(Math.Floor((upperbound - lowerbound + 1) * Rnd(SlaveID + 15))) + lowerbound
Return ListViewItemColour.BackColor
エンド機能