Блог

Главная - Вопросы по программированию - Как рандомизировать цвет пера в Visual Basic?

Как рандомизировать цвет пера в Visual Basic?

#vb.net

#vb.net

Вопрос:

В Visual Basic у меня есть код для того, чтобы перо окрашивало линию в черный цвет, мне нужно, чтобы оно было рандомизировано. Это перо должно быть рандомизированного цвета: g.DrawLine(ручки.Черный, x * y, 50, x * y, 250)

 Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim x, y As Integer
        Dim bmp As Bitmap = New Bitmap(1350, 750)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.DrawLine(Pens.Black, 0, 100, 1500, 100)
        g.DrawLine(Pens.Black, 0, 200, 1500, 200)
        y = 20
        For x = 1 To 150
            g.DrawLine(Pens.Black, x * y, 50, x * y, 250)
        Next x
        PictureBox1.Image = bmp
End Sub

Комментарии:

1. Если это формат RGB, не могли бы вы просто создать случайные числа от 0 до 255 для каждого (R, G amp; B)? В противном случае вам может потребоваться предоставить дополнительную информацию.

2. Что вы уже пробовали? Как произошел сбой?

Ответ №1:

Перья не являются перечислением, поэтому единственным способом перечисления класса Pens, вероятно, будет отражение. Подумайте о создании чего-то, что рандомизирует на основе RGB цвета:

 Dim rng as New Random()
For x = 1 To 150
  Using pen = new Pen(Color.FromArgb(rng.Next(256), rng.Next(256), rng.Next(256)))
    g.DrawLine(pen, x * y, 50, x * y, 250)
  End Using
Next x

Если вам действительно нужны только перья, использующие определяемое системой название цвета, например, AliceBlue или AntiqueWhite, вам может потребоваться использовать Color.FromKnownColor(CType(rng.Next(28, 168),KnownColor))