atrápame ese avión transparente

eugenhox
27 de Febrero del 2006
Tengo un interesante programa para manipular imágenes transparentes. Utilizo la Function BitBlt Lib \"gdi32\" y funciona. PERO cuando quiero darle movimiento, el borrado de una imagen para dar paso a la sigueiente va tan rápido que no se ve nada. No consigo retardarlo. Si alguien fuera tan amable de echarle una ojeada y probarlo se lo agradecería infinito. En esta dirección he colocado el breve código: http://www.epaoarso.com/volandovoy.zip
Gracias, eugenio

axelopez
27 de Febrero del 2006
aqui hay una porcion de tu sub volar, agregale me.refresh como te muestro

Call BitBlt(Form1.hDC, x1, y1, x2, y2, picNormal.hDC, 0, 0, vbSrcPaint)
'restaura fondo
*************************************
Me.Refresh '*********
***********************************
If restaurar And n <> finN Then
'en la sig. línea incluyo un retardo que no consigo que funcione
If frenar Then
For retD = 1 To 200000
dD = retD * retD * retD

Next retD
End If

eugenhox
27 de Febrero del 2006
axelopez: tu solución es magnífica. No sabes el partido que le voy a sacar, pues tengo varios programillas paralizados por culpa de no saber frenar. No entiendo qué pasaba ni sé por qué me.Refresh lo soluciona, pero me basta con que funcione. De verdad, muchas, muchas gracias desde Donosti.
eugenio