CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Tamaño De Imagen.

<< < (3/3)

lochino006:

--- Cita de: "senzao18" --- Hay está el codigo para vb.net.


--- Código: Text ---  Dim delegat As System.Drawing.Image.GetThumbnailImageAbort                        delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra)                         bitmap = bitmap.GetThumbnailImage(control.Image.Width, control.Image.Height, delegat, IntPtr.Zero)   

--- Código: Text ---  Private Function ECodigoExtra() As Boolean        Return False    End Function  
--- Fin de la cita ---
No me funciona porque yo lo que tengo es el siguiente codigo:


     'Elegimos la imagen izquierda que querramos
        OpenFileDialog1.Filter = "Todos los archivos|*|JPEG|*.jpg"
     
        If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
            Dim jpg As New Bitmap(OpenFileDialog1.FileName)

            Dim delegat As System.Drawing.Image.GetThumbnailImageAbort
            delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra)

            jpg = jpg.GetThumbnailImage(PictureBox1.Image.Width = 200, PictureBox1.Image.Height = 224, delegat, IntPtr.Zero)


            PictureBox1.Image = CType(jpg, Image)
        End If

Y me da error a la hora de hacer el thumbnailImage

Es que lo que yo quiero hacer es escoger una foto con el OpenFileDialog y redimensionarla y abrirla con el tamaño que yo quiera.

piyey:

--- Cita de: "lochino006" ---
--- Cita de: "senzao18" --- Hay está el codigo para vb.net.


--- Código: Text ---  Dim delegat As System.Drawing.Image.GetThumbnailImageAbort                        delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra)                         bitmap = bitmap.GetThumbnailImage(control.Image.Width, control.Image.Height, delegat, IntPtr.Zero)   

--- Código: Text ---  Private Function ECodigoExtra() As Boolean        Return False    End Function  
--- Fin de la cita ---
No me funciona porque yo lo que tengo es el siguiente codigo:


     'Elegimos la imagen izquierda que querramos
        OpenFileDialog1.Filter = "Todos los archivos|*|JPEG|*.jpg"
     
        If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
            Dim jpg As New Bitmap(OpenFileDialog1.FileName)

            Dim delegat As System.Drawing.Image.GetThumbnailImageAbort
            delegat = New Drawing.Image.GetThumbnailImageAbort(AddressOf ECodigoExtra)

            jpg = jpg.GetThumbnailImage(PictureBox1.Image.Width = 200, PictureBox1.Image.Height = 224, delegat, IntPtr.Zero)


            PictureBox1.Image = CType(jpg, Image)
        End If

Y me da error a la hora de hacer el thumbnailImage

Es que lo que yo quiero hacer es escoger una foto con el OpenFileDialog y redimensionarla y abrirla con el tamaño que yo quiera.
--- Fin de la cita ---


--- Código: vb.net ---jpg = jpg.GetThumbnailImage(200, 224, delegat, IntPtr.Zero) 
Sorry por revivir este post tan viejo.

Navegación

[0] Índice de Mensajes

[*] Página Anterior