Question

How to generate a random RGB color code in VB.NET

Answer 1

Imports System

Class Program
    Private Shared Function GenerateRandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
        Dim rand As Random = New Random()
		
        Return rand.[Next](min, max + 1)
    End Function

    Private Shared Sub GenerateRandomRGBColor()
        Dim red As Integer = GenerateRandomNumber(0, 255)
        Dim green As Integer = GenerateRandomNumber(0, 255)
        Dim blue As Integer = GenerateRandomNumber(0, 255)

        Console.WriteLine($"Random RGB Color: rgb({red}, {green}, {blue})")
    End Sub

    Public Shared Sub Main()
        GenerateRandomRGBColor()
    End Sub
End Class



' run:
'
' Random RGB Color: rgb(221, 75, 180)
'

 

70+ SQL courses for beginners and professionals