[Ayuda] TileMap (Parallax Scrolling)

[BlackZeroX]

Guardalo en un stdpicture (  private/dim/public/global/ variable as stdpicture) o cargalo en un hdc (CreateCompatibleDC, etc...)

Dulces Lunas!¡.

[BlackZeroX]

ejemplo del post anterior

Código (vb) [Seleccionar] Expandir




Private Priv_stdPic As StdPicture       '   //  Instancia o huevo vacio xP.

Private Sub Form_Load()
    Me.Picture = LoadPicture("c:\AmazingNurseNanako03.jpg")    '   //  cargamos imagen en el formulario como fondo xP.
    '   //  se hace una copia en MEMORIA!¡.
    Set Priv_stdPic = Me.Picture
End Sub

Private Sub Form_Click()
    With Priv_stdPic            '   //  Obtenemos los datos
        Call MsgBox(.Height)    '   //  Ya sabes que es xP
        Call MsgBox(.Width)     '   //  Ya sabes que es xP
        Set Picture = Nothing
        Call MsgBox("Se a limpiado el FORM!¡.")
    End With
    Set Me.Picture = Priv_stdPic
End Sub



Sangriento Infierno Lunar!¡.

[sebah97]

Hola BlackZeroX, gracias por responder, pero creo que me expresé Mal.

Lo que quiero yo es Guardar el Picture de un Control IMAGE, en el disco, intente con SavePicture, pero no anda.

[BlackZeroX]

extraño a mi si me anda!¡

Código (vb) [Seleccionar] Expandir



Call SavePicture(Image1.Picture, "c:\aaa.jpg")



Dulces Lunas!¡.

[sebah97]

Gracias, Funcionó, nosé que hacia de mal yo xD.

Pero ahora surgio otro problema, yo tengo la propiedad STRETCH del image en TRUE, pero cuando la guardo, osea se genera como la foto original, y yo quisiera que la guarde tal como se ve en el control (Osea con el mismo tamaño del Control Image).

Espero que me entiendan, y gracias de antemano

[BlackZeroX]

Para eso puedes usa la función render de la propiedad picture, para guardarlo en un hdc ( De un control Picture por ejemplo, con autoredraw = true, depsues le pasas un savepicture() y ya, es lo mas cutre pero sirve )!¡.

ejemplo:

Código (vb) [Seleccionar] Expandir



   With Obj_Pic
       call .Render (destDC Or 0&, 0&, 0&, ScaleX(.Width, vbHimetric, vbPixels), ScaleY(.Height, vbHimetric, vbPixels), _
           0&, .Height, .Width, -.Height, ByVal 0&)
   End With



P.D.: En el foro hay un código de Leandro A, búscale, qué yo me estoy centrando en los controles mas que en APIS (en tu problema)!¡.

Dulces Lunas!¡.