Efecto mirrow (espejo) en imagenes...

Victor(tano)
06 de Febrero del 2004
Hola gracias desde ya por leer este mensage.
Estoy haciendo un juego con un amigo entonces el personage camina y quiero que tambien pueda ir para atras, entonces quiero hacer el efecto espejo para dar vuelta la imagen, igual el problema no es grave porque lo soluciono con un editor de dibujo pero eso significa que tambien tengo que cargar dentro del programa las imagenes en espejo, y ocupan mas lugar, es un tema de espacio el problema.
Por eso quiero usar las originales y girarlas.
Muchas gracias espero que me entiendan.

en?
06 de Febrero del 2004
prueba con este ejemplillo

Option Explicit
Dim Imagen As Picture

Private Sub Espejo()
Dim xTwips As Integer, yTwips As Integer

Set Imagen = LoadPicture("RUTA_IMAGEN")

xTwips = ScaleX(Imagen.Width, vbHimetric, vbTwips)
yTwips = ScaleY(Imagen.Height, vbHimetric, vbTwips)

Picture1.PaintPicture Imagen, 0, 0, xTwips, yTwips, xTwips, 0, -xTwips, yTwips, vbSrcCopy
End Sub


Private Sub Normal()
Picture1.PaintPicture Imagen, 0, 0, , , , , , , vbSrcCopy
End Sub

Victor(tano)
06 de Febrero del 2004
Muchas gracias, lo probe y funciona, pero igual voy a optar por la otra opcion porque la diferencia no es tanta. Gracias