Visual Basic - Reducir tamaño de fotos

Hola.
Tengo un programa en el que incluyo fotografias en una base de datos.
El problema es que las fotos ocupan más de 1 mb cada una y claro, al incluir varias la base de datos pesa ya mucho.
He probado con un image reduciendo el tamaño en pixeles del mismo y copiandolo a un archivo en el hd, pero a pesar de reducirle el tamaño con la propiedad stretch para que no perder un trozo de la imagen (si hago eso con un picture se pierde parte de la foto) no consigo hacerlo.
Para que entendais mejor mi pregunta, si cogeis una foto con el programa Microsoft Photo Editor y entrais en Imagen-Cambiar el tamaño y le indicais en pixeles 266x200, se reduce la imagen sin perder parte de la misma (a la vez se reduce el tamaño en disco considerablemente) y se puede grabar con otro nombre.

Eso es lo que quiero hacer desde vb6.
Muchas gracias.
Un saludo.

Hola, aver, eske no entiendo, en una base de datos solo se mete la ruta
de la foto, la direccion donde se encuentra la foto, otra cosa, eske en tu disco duro te ocupen mucho espacio las fotos, pero no en la base de datos en si.

Bueno mi amigo, la verdad es que no entendi bien pero ahi va mi opinion, mira la propiedad strech del Mocosoft Visual Basic te permite reducir la imagen de tañaño DENTRO DE LA FORMA pero no de tamaño en tu disco duro, o sea que tsi tu insertas una imagen desde tu disco duro que ocupe 800 kb, y lo reduces en el form con la propiedad strech su tamaño en disco va a ser el mismo, por mas pequeña que lam imagen este en el form.

Pues mira no te la hare muy cardiaca, yo hace tiempo desarrolle un Album de fotos(el programa guarda las fotos en una base de datos de mocosoft acces)y una opcion del programa es el comprimir la base de datos, no la comprime mucho pero algo es algo dijo el diablo, si quieres que te pase el codigo de esa parte para compactar la base de datos me dices, o si quieres todo el programa y el codigo fuente completo te lo dejo en $ 100 pesos Mexicanos, jajajaja ntc, si quieres todo el codigo fuente me das tu correo y listo.

Ojala que mi estupida opjnion te halla servidor.

Seguimos....

Lo que necesitás es reducir de tamaño la imagen y convertirla a JPG. Para eso utilizá la dll de Jangraphics (janGraphics.dll) la podés obtener en http://jansfreeware.com/jfobjects.htm. Es gratuita y funciona muy bien. Te mando mi truco con esa Dll

Option Explicit
DefLng A-Z

Private Sub Command1_Click()
'La imagen final tiene 300 pixels de ancho. El alto se calcula proporcionalmente
Dim pic As Picture, Comp As Compendium, wIn As Single, hIn As Single, wOut As Long, hOut As Long
Set pic = LoadPicture("C:\47.jpg")
wIn = ScaleX(pic.Width, vbHimetric, vbPixels)
hIn = ScaleX(pic.Height, vbHimetric, vbPixels)
'Evita que la imagen se deforme calculando los valores finales
wOut = 300 'Pixels
hOut = (wOut / wIn) * hIn
DoEvents
'Convierte la imagen a JPG comprimido al 50% (Compresión 10 es alta; 100 es baja)
Set Comp = New Compendium
Comp.convertEx "C:\47.jpg", "c:\salida.jpg", wOut, hOut, True, 50
'Libera memoria
Set Comp = Nothing
Set pic = Nothing
End Sub

Acordate de referenciar la dll en el proyecto ante de usarla

Saludos Ruri

Ahora si, muchas gracias.
Lo único es que hay que registrar el dll para que funcione.
Por si acaso alguien quiere saber como es:
regsvr32 d:\windows\system\janGraphics.dll

como referencio la dll

una pregunta ese metodo tambien funcionaria con imagenes bmp...

Buenas tardes Ruri, no puedo descargar la librería, podrías enviarmela por mail por favor, muchas gracias, muy amable tu aporte, [email protected]

Buen dia, no puedo descargr la DLL para hacer pruebas, si la tienen me la pueden enviar a [email protected]. gracias. saludos.

checa la api BitBlt eso me sirvió mucho

felices líneas de programa10n.