Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim rnd As System.Random = New System.Random Dim vert As System.Drawing.Color = Color.Green Dim rouge As System.Drawing.Color = Color.Red Dim orange As System.Drawing.Color = Color.Orange Dim jaune As System.Drawing.Color = Color.Yellow Button2.BackColor = rnd.Next(vert, rouge, orange, jaune)
Dim rnd As System.Random = New System.Random Dim vert As System.Drawing.Color = Color.Green Dim rouge As System.Drawing.Color = Color.Red Dim orange As System.Drawing.Color = Color.Orange Dim jaune As System.Drawing.Color = Color.Yellow Dim Montab Montab = (vert, rouge, orange, jaune) Button2.BackColor = Montab(rnd.Next(Montab.GetUpperBound(0)))
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim rnd As System.Random = New System.Random Dim vert As System.Drawing.Color = Color.Green Dim gris As System.Drawing.Color = Color.Gray Dim violet As System.Drawing.Color = Color.Purple Dim rouge As System.Drawing.Color = Color.Red Dim orange As System.Drawing.Color = Color.Orange Dim bleu As System.Drawing.Color = Color.Blue Dim Montab As Color() = New Color() {vert, violet, bleu, rouge, orange, gris} Color1.BackColor = Montab(rnd.Next(Montab.GetUpperBound(0))) Color2.BackColor = Montab(rnd.Next(Montab.GetUpperBound(0))) Color3.BackColor = Montab(rnd.Next(Montab.GetUpperBound(0))) Color4.BackColor = Montab(rnd.Next(Montab.GetUpperBound(0))) Color5.BackColor = Montab(rnd.Next(Montab.GetUpperBound(0))) Color6.BackColor = Montab(rnd.Next(Montab.GetUpperBound(0))) Color7.BackColor = Montab(rnd.Next(Montab.GetUpperBound(0))) Color8.BackColor = Montab(rnd.Next(Montab.GetUpperBound(0))) End Sub