SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: joselito en Viernes 17 de Junio de 2005, 20:24

Título: Shape.fillcolor
Publicado por: joselito en Viernes 17 de Junio de 2005, 20:24

hola a todos
llevo poco tiempo en visual basic, y mi pregunta es esa pues necesito saber como se hace para poder cambiar el color de un "shape" varias veces entre dos colores y a intervalos diferentes, me explico,
por ejemplo:
1º negro
2º blanco
3º negro
4º blanco (duracion el doble de tiempo)
5ª negro
6º blanco
7º negro
8º blanco
9º negro (y que se quede asi)

cuando hay mas colores, lo hago con un bucle if ....then
pero con solo dos colores el bucle no me funciona como yo espero.
alguen sabria como se puede hacer esto??

para que sepan mi idea es hacer un traductor del codigo morse donde el punto sea un "pantallazo"(shape1.fillcolor = vbwhite) y la ralla sea un "pantallazo" igual pero de triple duracion

punto = shape1.fillcolor = vbblack
            shape1.fillcolor = vbwhite
            shape1.fillcolor = vbblack

ralla = shape1.fillcolor = vbblack
            shape1.fillcolor = vbwhite (duracion triple de tiempo)
            shape1.fillcolor = vbblack

muchas gracias a todos
un saludo

Título: Re: Shape.fillcolor
Publicado por: RadicalEd en Sábado 18 de Junio de 2005, 02:55

Código: Text

1. Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
2. Dim x As Integer
3. x = 1000
4. Private Sub blanco()
5. shape1.fillcolor = vbwhite
6. x = x + 1000
7. Sleep x
8. Call negro
9. End Sub
10. Private Sub negro()
11. shape1.fillcolor = vbblack
12. x = x + 1000
13. Sleep x
14. Call blanco
15. End Sub
16.  
17.