Services
Technology Web App Development Mobile App Development Windows App Development Database Development UI/UX Development Cloud Development SEO Digital Marketing Guest Posting Content Writing Artificial Intelligence Data Science ERP Development CRM Development CMS Development LMS Development Business Listing Blockchain Technology Startup Promotion
Products
Data Converter Cleaner TUC - Unit Converter Import Export Survey Manager Tweet Controller
Developer
Article Blog Forum Interview Beginner News Startup Quiz
Users
Career
Apply Job Internship
Pricing
Login Sign Up Get a Quote

forum

home / developersection / forums / is there any option to save a picturebox to an textfile in vb.net
Ask Question

is there any option to save a picturebox to an textfile in vb.net

Madhu Mitha 2325 20 Mar 2015
Hi thr,,


i want to save my picturebox in a text file.. is there any option to do like tat..
.net vb.net
Updated 21 Mar 2015
Madhu Mitha
Madhu Mitha

Other

Message

3 Answers

Anonymous User
Anonymous User 21 Mar 2015
Report Abuse 
Public Function SetImageComment(input As Image, comment As String) As Image Using memStream As
New IO.MemoryStream()
       
input.Save(memStream, Imaging.ImageFormat.Jpeg)
       
memStream.Position = 0
        Dim decoder As New JpegBitmapDecoder(memStream, BitmapCreateOptions.PreservePixelFormat,
BitmapCacheOption.OnLoad)
        Dim metadata As BitmapMetadata
        If decoder.Metadata Is Nothing Then
            metadata =New BitmapMetadata("jpg")
        Else
            metadata =decoder.Metadata
        End If
       
metadata.Comment = comment
        Dim bitmapFrame = decoder.Frames(0)
        Dim encoder As BitmapEncoder = New JpegBitmapEncoder()
       
encoder.Frames.Add(bitmapFrame.Create(bitmapFrame,bitmapFrame.Thumbnail, metadata, bitmapFrame.ColorContexts))
        Dim imageStream As New IO.MemoryStream
       
encoder.Save(imageStream)
       
imageStream.Position = 0
       
input.Dispose()
        input =Nothing
        Return Image.FromStream(imageStream)
    End Using
End Function

Madhu Mitha
Madhu Mitha 21 Mar 2015
Report Abuse
hai jennifer,,

                    I developed a code to display my text in a picturebox using drawstring method.. i have saved that picturebox to an bmp file.. Now i have to convert that bmp file to an .txt file or byte() .. i dono how to convert it.. Can u help me in solving this problem..

thank u in advance..

 my code is..
Public Class Form1
    Dim brush As New Drawing.SolidBrush(Color.Black)
    Dim g2 As System.Drawing.Graphics
    Dim img As New Bitmap(400, 100)
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
      
               g2 = Graphics.FromImage(img)
        PictureBox1.Image = img
        g2.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        g2.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
        g2.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
        '
        g2.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Red, 0, 0)
          End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.FileName = ""
        If SaveFileDialog1.ShowDialog <> 1 Then Exit Sub
        Try
            Select Case SaveFileDialog1.FilterIndex
                Case 1
                    img.Save(SaveFileDialog1.FileName, ImageFormat.Bmp)
                Case 2
            End Select
        Catch
            MsgBox("Can not save the LED image!", 48, "LED Saving")
        End Try
    End Sub
End Class
Anonymous User
Anonymous User 21 Mar 2015
Report Abuse
Hi Madhu,

Could you please explain a bit more about your requirement. As per your current question we are unable to get your requirement.
MindStick Training