Ver Mensaje Individual
  #5 (permalink)  
Antiguo 15/09/2004, 08:54
Avatar de RootK
RootK
Moderador
 
Fecha de Ingreso: febrero-2002
Ubicación: México D.F
Mensajes: 8.004
Antigüedad: 22 años, 3 meses
Puntos: 50
Hola.. creo que éste ejemplo te podría servir..

Cita:
Dim iWidth As Integer = X
Dim iHeight As Integer = Y

PictureBox1.Height = iHeight
PictureBox1.Width = iWidth

Dim oImage As System.Drawing.Image
Dim oNewImage As System.Drawing.Image

oImage = Image.FromFile("c:\tu_imagen.jpg")
Dim bmp As Bitmap = New Bitmap(oImage)
oImage.Dispose()

oNewImage = bmp.GetThumbnailImage(iWidth * 0.9, iHeight * 0.9, Nothing, IntPtr.Zero)
oNewImage.Save("c:\NombreNuevo.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

PictureBox1.Image = Image.FromFile("c:\NombreNuevo.jpg")
Lo que estoy haciendo es colocar un picturebox dentro de mi form y generar una imágen con las dimensiones deseadas y guardar para despues cargarla en mi picture box.

Nota.- Lo multiplico por .9 para obtner el 90% de la imágen y no se salga de mi picture box pero tu lo puedes acomodar como mejor te convenga.

Salu2
__________________
Nadie roba nada ya que en la vida todo se paga . . .

Exentrit - Soluciones SharePoint & Net