Programación General > Visual Basic 6.0 e inferiores

 Shape.fillcolor

(1/1)

joselito:
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:

--- Código: Text ---Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)Dim x As Integerx = 1000Private Sub blanco()shape1.fillcolor = vbwhite x = x + 1000Sleep xCall negroEnd SubPrivate Sub negro()shape1.fillcolor = vbblack x = x + 1000Sleep xCall blancoEnd Sub  

Navegación

[0] Índice de Mensajes