Visual Basic.NET - Do While loop

 
Vista:
Imágen de perfil de Misael
Val: 38
Ha disminuido su posición en 6 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Do While loop

Publicado por Misael (35 intervenciones) el 14/06/2016 19:33:39
tengo una duda con do While loop
quiro que el label numero 1 muestre barios colores o que solo muestre 4 colores cualquiera y que sea repetitivo pero no doy como, espero me pueda ayudar, se lo agradeciera, les dejo el código q pienso utilizar.

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
    Dim x As Integer
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Do While (x < 100)
            If x > 100 Then
                Label1.ForeColor = Color.AliceBlue
 
            End If
            x = x + 1
        Loop
    End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Carlos Castro

Do While loop

Publicado por Carlos Castro (37 intervenciones) el 15/06/2016 00:14:02
1
2
3
4
5
Dim x As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Dim na As New Random
    Label1.BackColor = Color.FromArgb(na.Next(0, 255), na.Next(0, 255), na.Next(0, 255))
End Sub


Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Misael
Val: 38
Ha disminuido su posición en 6 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Do While loop

Publicado por Misael (35 intervenciones) el 15/06/2016 01:52:52
te lo agradezco Carlos
queria que cambiara el color del texto por lo necesita alguien mas solo se cambio BackColor por Forecolor

1
2
Label1.BackColor = Color.FromArgb(na.Next(0, 255), na.Next(0, 255), na.Next(0, 255))
Label1.Forecolor = Color.FromArgb(na.Next(0, 255), na.Next(0, 255), na.Next(0, 255))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar