Ukladanie obrázku z picturebox – Visual Basic – Fórum – Programujte.com

cawte ako mam ulozit obrazok nakreslený v picturebox do JPG pretože som skusil

 

PictureBox1.Image.Save(SaveFileDialog1.FileName + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

ako to bolo v jednom tutoriali na webe ale stále ukazuje túto chybu "Object reference not set to instance of an object"

#1 Trebor
nechybí ti tam deklarace? Nevím jaké vše jsou potřeba, s VB 2010 sem nikdy nedělal

Imports System.Drawing

nešlo by třeba použít

PictureBox1.Image.Save(SaveFileDialog1.FileName + ".jpg", ImageFormat.Jpeg)

aj tak to nefunguje

Bez tvého kódu konkrétní rada nebude. Nějaký objekt není inicializovaný a pokud je chyba na tomto řádku, tak jsou tam dva: PictureBox1 a SaveFileDialog1, takže je potřeba vidět zbytek kódu, nejlépe celý.

Imports System.Drawing

Public Class Form1
    Dim Drawing As Boolean

Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click
        Try
            SaveFileDialog3.ShowDialog()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub SaveFileDialog3_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog3.FileOk
        Try
            PictureBox1.BackgroundImage.Save(SaveFileDialog3.FileName + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

neviete co mam zle?

A jak do něj kreslíš?

to nerieš celý kód má cez 3000 riadkov ale sem som dal všetko týka toho ako som to naprogramoval aby to ukladalo ale nejde to

PictureBox ve výchozím stavu nemá Image a přesně na to ta chyba vypadá. Proč ho nemá, i když do něj údajně nějak kreslíš, si teda najdi sám.

ja som skusal aj že dačo nakreslim a skusim uložiť a aj tak mito nefunguje .... asi to bude tým že sa kreslí do PictureBox.Image a ja tam mam BackgroundImage.... nemoze to byt tým a ak hej tak ako sa uklado PictureBox.Image

ale ak myslíš to stým výchozím obrázkom tak že aby bolo po zapnutí programu picturebox biely a aby sa dalo nanho tak kresliť tak to máám

#11 Trebor
Tak jak už psal liborb a zlz, je třeba ukázat, jak kreslíš "do toho" PictureBoxu. Jestli kreslíš na Bitmapu pomocí Graphics a tu pak předáš PictureBoxu, mělo by vše fungovat. 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim b As Bitmap = New Bitmap(100, 100)
        Dim g As Graphics = Graphics.FromImage(b)
        Dim p As Pen = New Pen(Color.Red, 5)

        g.Clear(Color.White)

        g.DrawRectangle(p, 10, 10, 50, 30)
        g.Dispose()

        PictureBox1.Image = b

        PictureBox1.Image.Save("C:\Users\Uzivatel\Desktop\test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)        
End Sub

Bez nějakého podrobnějšího popisu můžeme jen stěží hádat, kde je chyba.

kreslím do toho nejako takto

PictureBox1.CreateGraphics.FillEllipse(Brushes.Black, e.X - 12, e.Y - 12, 25, 25)

Tak udělej, co psal pistolnik. Nejdřív vytvoř ten Image, třeba ve Form_Load

PictureBox1.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height)
Graphics.FromImage(PictureBox1.Image).Clear(Color.White)

A kresli do něj

Graphics.FromImage(PictureBox1.Image).FillEllipse(...)

Resp. raději s tím Dispose (nebo v Using bloku), jak to má pistolnik.

stale mi to uloží iba čierny obrázok

Jestli tam máš i ten Clear, tak by neměl být černý. Bez něj budeš mít černou elipsu na nedefinovaném pozadí, které v jpg bude černé.

to sa mi potom vymaže ten obrázok ktorý som nakreslil ... (myslim tým že sa uloží ale obrazok sa mi z Pictureboxu vymaže ..)

Ten Clear je ve Form_Load hned po vytvoření Image. Nemůže to nic vymazat, protože tam ještě nic není.

jááj aha tak nic..

ale aj tak mi to ukladá na čierno

Tak máš něco blbě.

Public Class Form1
    Dim StartPoint As Point
    Dim StartImage As Image

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
            g.Clear(Color.White)
        End Using
    End Sub

    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        StartPoint = e.Location
        StartImage = PictureBox1.Image
        PictureBox1.Image = StartImage.Clone
    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If StartImage Is Nothing Then Return

        Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
            g.DrawImage(StartImage, 0, 0)
            g.DrawLine(Pens.Red, StartPoint, e.Location)
        End Using

        PictureBox1.Refresh()
    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        'Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
        '    g.DrawImage(StartImage, 0, 0)
        '    g.DrawLine(Pens.Red, StartPoint, e.Location)
        'End Using

        StartImage.Dispose()
        StartImage = Nothing
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.DefaultExt = "jpg"
        SaveFileDialog1.ShowDialog()
    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        PictureBox1.Image.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Jpeg)
    End Sub
End Class