Presentacion GoogleDocs

presentacion prueba A. Web andrés rosado y juan antonio garcia

View more presentations from pruebapc7.

Video Youtube

Conversor de Imagenes

Requisitos:

- Visual Studio 2010 Ultimate o Express
- Conocimiento de la utilizacion básica del programa

Empecemos:

• Abrimos Visual Basic y creamos un nuevo proyecto desde Archivo>Nuevo Proyecto. Elegimos Aplicacion de Windows Forms y le ponemos de nombre Conversor de imagenes
• Al formulario principal le ponemos de titulo Conversor de imagenes
•  Arrastramos controles al formulario hasta que nos quede parecido a esto

• Agregamos un OpenFileDialog y un SaveFileDialog y le ponemos al filtro del OpenFileDialog Bmp| *.bmp y para el flitro del SaveFileDialog BMP|*.bmp |GIF|*.gif|JPEG|*.jpeg|PNG|*.png

• Para el evento clic del boton Examinar escribimos este codigo:

          Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
            PictureBox1.Image = Image.FromFile(TextBox1.Text)
        End If

• Para el evento clic del boton !Convertir¡ escribimos este codigo:

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            If TextBox1.Text <> Nothing Then
                Dim extension As String = IO.Path.GetExtension(SaveFileDialog1.FileName)
                Select Case extension
                    Case ".bmp"
                        PictureBox1.Image.Save(SaveFileDialog1.FileName, Drawing.Imaging.ImageFormat.Bmp)

                    Case ".gif"
                        PictureBox1.Image.Save(SaveFileDialog1.FileName, Drawing.Imaging.ImageFormat.Gif)

                    Case ".jpeg"
                        PictureBox1.Image.Save(SaveFileDialog1.FileName, Drawing.Imaging.ImageFormat.Jpeg)

                    Case ".png"
                        PictureBox1.Image.Save(SaveFileDialog1.FileName, Drawing.Imaging.ImageFormat.Png)
                End Select
            End If
        End If
      
    End Sub

•  Ahora ya podemos cambiar el formato de nuestras imagenes.

Un saludo.