dotNETportal.cz

Zdravim. Cez kod som nakreslil nejaky obrazok. Mam tento kod na jeho ulozenie:

Dim strImgName As String
        Dim dlgSave As New SaveFileDialog()
        dlgSave.Filter = "JPEG Images (*.jpg,*.jpeg)|*.jpg;*.jpeg|Gif Images (*.gif)|*.gif|Bitmaps (*.bmp)|*.bmp"
        If dlgSave.ShowDialog() = Windows.Forms.DialogResult.OK Then
            strImgName = dlgSave.FileName
            If strImgName.EndsWith("jpg") Then
                Me.PictureBox2.Image.Save(strImgName, ImageFormat.Jpeg)
            End If
            If strImgName.EndsWith("gif") Then
                Me.PictureBox2.Image.Save(strImgName, ImageFormat.Gif)
            End If
            If strImgName.EndsWith("bmp") Then
                Me.PictureBox2.Image.Save(strImgName, ImageFormat.Bmp)
            End If
        End If

Skusal som uz aj ine sposoby ulozenia, ktore som nasiel na nete, ale vzdy mi vyhadzuje tuto chybovu spravu:

"NullReferenceException was unhadled - Object reference not set to an instance of an object."

a vysvieti mi tento riadok:

Me.PictureBox2.Image.Save(strImgName, ImageFormat.Jpeg)

Neviete mi niekto poradit, kde robim chybu a co treba urobit? Dakujem...

NullReferenceException bude pravděpodobně způsobeno tím, že v PictureBoxu nebyl načten žádný obrázek a tudíž instance třídy Image od které jste volal metodu Save vyvolala tuto vyjímku.

Řádek Me.PictureBox2.Image.Save(strImgName, ImageFormat.Jpeg) znamená uložení obsahu obrázku do souboru určeného proměnnou strImgName ve formátu JPEG.

No ja som ziadny obrazok nenacital, ale nakreslil pomocou kodu (nakreslil som pomocou kodu - línie, polygony, kruhy - jeden graf ktory vyuzivam vo svojom odbore) a ten chcem ulozit.

Aha. Doteraz som nevedel ze to kreslim len na komponentu. Ja som totiz dlhodobo robil vo VB6 a este nepoznam vela zmien vo VB.NET 2005. Uz vsetko funguje ako ma - dakujem.

děkuji za pomoc tato rada mi také pomohla. Uloží se to sice, ale hned nevykreslído picture boxu (Name:PaintBox). Až po uložení do pictureboxu.

Private Sub PaintKvádr()
        ODSA = Val(Odsazeni.Text)
        KRESL = 2

        A = Val(A2.Text)
        B = Val(B2.Text)
        C = Val(C2.Text)
        G.Clear(Color.White)
        G.DrawRectangle(Pens.Black, ODSA + A + C, ODSA, A, C)
        G.DrawRectangle(Pens.Black, ODSA + A + C, ODSA + C, A, B)
        G.DrawRectangle(Pens.Black, ODSA + A + C, ODSA + C + B, A, C)
        G.DrawRectangle(Pens.Black, ODSA + A, ODSA + C, C, B)
        G.DrawRectangle(Pens.Black, ODSA + A, ODSA + C, A, B)
        G.DrawRectangle(Pens.Black, ODSA + A + C + A, ODSA + C, C, B)
    End Sub

    Private Sub PaintBox_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PaintBox.Paint
            PaintKrychle()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PaintKvádr()
    End Sub