Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: k_arlytos en Febrero 19, 2014, 09:01:23 pm

Título: Imagen Borroso usando API
Publicado por: k_arlytos en Febrero 19, 2014, 09:01:23 pm

por me sale esta imagen medio borroso?

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

Título: Re:Imagen Borroso usando API
Publicado por: LeandroA en Febrero 21, 2014, 01:09:36 am

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.

Título: Re:Imagen Borroso usando API
Publicado por: k_arlytos en Febrero 21, 2014, 02:47:08 am

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