Visual Basic Foro
Programación => Visual Basic .NET / C# => Mensaje iniciado por: lord en Febrero 21, 2014, 12:14:05 pm
-
Buenos días, Amigos
Estoy con una aplicación, con 3 botones, 2 textbox y 1 picturebox, la idea es que lo que escriba en los textbox se muestren en el picturebox al hacer clic en el botón 1, eso no es problema, y al hacer clic en el botón 2 me guarde el picturebox como imagen bmp, le precargue una imagen en blanco en la cual se mostrara lo que introduzca en el los textbox, el problema es que al guardar la imagen lo hace pero en blanco sin las letras, lo que quiero hacer es que guarde la imagen del picturebox con las modificaciones que le haga al picture, le muestro el código, una ayuda con esta duda
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim drawFormat As New StringFormat()
Dim FormatoParaDibujar As New StringFormat()
Using FormatoDeGraficos As Graphics = PictureBox1.CreateGraphics(), DibujarFuente As New System.Drawing.Font("Arial", 16), DibujarPincel As New SolidBrush(Color.Red)
FormatoDeGraficos.DrawString(TextBox1.Text, DibujarFuente, DibujarPincel, 5.0, 5.0, FormatoParaDibujar)
FormatoDeGraficos.DrawString(TextBox2.Text, DibujarFuente, DibujarPincel, 5.0, 35.0, FormatoParaDibujar)
End Using
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim saveImage As New SaveFileDialog
Dim ruta As String = ""
saveImage.Title = "Guardar imagen como..."
saveImage.Filter = "Imagen BMP (*.bmp)|*.bmp|Imagen JPG (*.jpg)|*.jpg|Imagen PNG (*.png)|*.png"
If saveImage.ShowDialog() = Windows.Forms.DialogResult.OK Then
If Not String.IsNullOrEmpty(saveImage.FileName) Then ruta = saveImage.FileName
Dim myImg As Image
Dim extension As String = ruta.Substring(ruta.Length - 3, 3)
myImg = PictureBox1.Image
Select Case extension
Case "bmp"
myImg.Save(ruta, Imaging.ImageFormat.Bmp)
Case "jpg"
myImg.Save(ruta, Imaging.ImageFormat.Jpeg)
Case "png"
myImg.Save(ruta, Imaging.ImageFormat.Png)
End Select
End If
Catch ex As Exception
MsgBox("Ocurrió el siguiente error: " & ex.Message, MsgBoxStyle.Critical, "Error!")
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
-
PictureBox1.Image.Save("Nombre del Archivo con la Extensión y la Dirección donde se va a guardar C:\imagen.bmp")
-
Como aplico esa línea?
-
no funciona, me crea la imagen en blanco sin letras, crea directamente en "C" pero totalmente en blanco
-
Pic.Image.Save("C:\Imagen.jpg", Drawing.Imaging.ImageFormat.Jpeg)
-
Si estas tirando el texto con controls.add estas equivocado jamas te va a guardar la imagen así
tenes que agregarlos con
Picturebox1.CreateGraphics.DrawString("Texto", Fuente, Posisión)