Güenas,

Tengo un picturebox donde hay una figura que hice yo (con lines, prints, y circles). Tengo también un botón que copia la imagen del picturebox y le ajusta el tamaño...

Reduzco el picturebox con la función "PaintPicture", pero el problema es que el pixturebox tiene de ancho 12000 y el botón 500 (reducción a menos del 5%). Como consecuencia la imagen reducida sólo se ven unos insignificantes puntos de toda la gráfica.

¿Sabe alguien cómo puedo reducir la imagen sin perder tantos detalles?... Es decir: que la reducción tenga la posibilidad de anti-aliasing y no una simple perdida de datos.

Saludos

Este codigo que te puse en el otro hilo sobre este tema, funciona, creo yo, para lo que necesitas....

Obviamente, si el boton es mucho mas pequeño que el picturebox original, la imagen que aparece en dicho boton pues no se va a apreciar mucho muy bien que digamos, pero en cuanto a resolucion, creo que se conserva ...

El truco, para esto, esta en asignar al nuevo oPicBox que se esta creando "en el aire", el alto y ancho actuales del boton, pero el .ScaleHeight y .ScaleWidth del Picturebox original ...

Si al alto y ancho del oPicBox se le asignan los del Picturebox original, se pierde la imagen al pasarla al boton (se trunca) ...



Private Sub Command1_Click()
Dim oPicBox As PictureBox

Me.Picture1.AutoRedraw = True
Me.Picture1.Picture = Me.Picture1.Image

Set oPicBox = Me.Controls.Add("VB.PictureBox", "oPicBox1", Me)

oPicBox.AutoRedraw = True
oPicBox.Width = Me.Command1.Width
oPicBox.Height = Me.Command1.Height
oPicBox.ScaleMode = Me.Picture1.ScaleMode
oPicBox.ScaleHeight = Me.Picture1.ScaleHeight
oPicBox.ScaleWidth = Me.Picture1.ScaleWidth

oPicBox.PaintPicture Me.Picture1.Picture, 0, 0, _
oPicBox.ScaleWidth, oPicBox.ScaleHeight

Me.Command1.Picture = oPicBox.Image

Set oPicBox = Nothing
Me.Controls.Remove "oPicBox1"

End Sub

''''''''''

Saludos ...

Otra cosilla...
Supongo que el boton no tendra ningun .Caption para que pueda mostrar la imagen completa...

Si tiene Caption, entonces el area de imagen se reduce y no permite mostrar la imagen completa, aunque no se pierda resolucion ...

Hola Sempler,

Muchas gracias por la respuesta.

El problema es que, como comenté, PaintPicture no cuenta con anti-aliasing... y en una reducción tan grande (la imagen es más chica que el 5% de la original) sin esta técnica estoy frito.

Es decir... si yo a la imagen la reduzco (en las mismas proporciones) utilizando un software (ejemplo GIMP) la imagen se sigue viendo aunque sin los detalles, pero si la reduzco con PaintPicture (sin anti-aliasing) de la imagen quedan a una serie de puntos inconexos.

Saludos

hola Vanchi hay dos apis con la que lo puedes hacer StretchBlt y SetStretchBltMode con estas la imagen no se pixela tanto de todas formas no se como quedara con tu ejemplo

http://es.geocities.com/leandroascierto/StretchBlt.zip

Saludos

Hola Leandro,

Era eso EXACTAMENTE lo que buscaba...

Muchísimas gracias.

Saludos