• Viernes 15 de Noviembre de 2024, 07:46

Autor Tema:  Shape.fillcolor  (Leído 2616 veces)

joselito

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Shape.fillcolor
« en: Viernes 17 de Junio de 2005, 20:24 »
0
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

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Shape.fillcolor
« Respuesta #1 en: Sábado 18 de Junio de 2005, 02:55 »
0
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.  
El pasado son solo recuerdos, el futuro son solo sueños