Imagen Borroso usando API

[k_arlytos]

por me sale esta imagen medio borroso?

http://www.mediafire.com/download/59mg5rdpxq9za71/IMG.rar

[LeandroA]

Hola, karlos esa función que estas usando "RenderPlusFromFile" no es para eso, no entiendo bien cual es tu idea, pero esa función es para usar en gráficos, no en fotografías, pero bien el motivo de que se ve asi es porque llama a dos apis que modifican la forma en que se estira la imagen

Código: (vb) [Seleccionar]

        Call GdipSetInterpolationMode(hGraphics, InterpolationModeNearestNeighbor)
        Call GdipSetPixelOffsetMode(hGraphics, PixelOffsetModeHalf)
Mejor usa esta funcion

Código: (Vb) [Seleccionar]

Private Sub RenderImageFromFile(ByVal DestHdc As Long, _
                    ByVal DestX As Long, _
                    ByVal DestY As Long, _
                    ByVal DestW As Long, _
                    ByVal DestH As Long, _
                    ByVal Filename As String, _
                    ByVal x As Long, _
                    ByVal y As Long, _
                    ByVal Width As Long, _
                    ByVal Height As Long)

                   
    Dim hImg As Long
    Dim hGraphics As Long

    If GdipLoadImageFromFile(StrPtr(Filename), hImg) = 0 Then
        If GdipCreateFromHDC(DestHdc, hGraphics) = 0 Then
            GdipDrawImageRectRectI hGraphics, hImg, DestX, DestY, DestW, DestH, x, y, Width, Height, &H2, 0&, 0&, 0&
            Call GdipDeleteGraphics(hGraphics)
        End If
        Call GdipDisposeImage(hImg)
    End If
End Sub

Saludos.

[k_arlytos]

gracias Leandro, lo que sucede es que quiero simplemente pintar una imagen en una parte del usercontrol nada mas, sin tener que usar al grandioso ucImage