Hallo,
versuche ich ein Bild aus einer Picturebox zu speichern, bekomme ich folgendes:
Hier der gesammte Quellcode:
Was ist da falsch ?
versuche ich ein Bild aus einer Picturebox zu speichern, bekomme ich folgendes:
Quellcode
- System.NullReferenceException: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
- bei Scanner.liefern.Speichern_Click(Object sender, EventArgs e) in C:\Users\cb.TOENS\Desktop\Dropbox\dev\VB .net\EP10\Scanner\liefern.vb:Zeile 55.
- bei System.Windows.Forms.Control.OnClick(EventArgs e)
- bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
- bei System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
- bei System.Windows.Forms.Control.WndProc(Message& m)
- bei System.Windows.Forms.ButtonBase.WndProc(Message& m)
- bei System.Windows.Forms.Button.WndProc(Message& m)
- bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
- bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Hier der gesammte Quellcode:
VB.NET-Quellcode
- Imports System
- Imports System.Collections.Generic
- Imports System.ComponentModel
- Imports System.Data
- Imports System.Drawing
- Imports System.Text
- Imports System.Windows.Forms
- Imports System.Threading
- Imports System.Runtime.InteropServices
- Imports System.IO
- Public Class liefern
- Dim down = False
- 'Menüpunkt zum schließen
- Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
- Me.Close()
- End Sub
- 'Barcode im Textfeld wieder löschen
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Barcode.Text = ""
- Barcode.Focus()
- End Sub
- 'Malen Code
- Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
- down = True
- End Sub
- Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
- If down = True Then
- PictureBox1.CreateGraphics.FillEllipse(New SolidBrush(Color.FromArgb(100, 100, 100)), e.X, e.Y, 10, 10)
- End If
- End Sub
- Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
- down = False
- End Sub
- Private Sub Speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Speichern.Click
- 'Checken ob Barcode gescannt wurde
- If Barcode.Text = "" Then
- MsgBox("Bitte erst Barcode Scannen", MsgBoxStyle.Critical)
- Else
- 'Erstellen der Textdatei mit Namen des Barcodes
- Dim Schreiben As New StreamWriter("barcodes\" + Barcode.Text + ".txt")
- 'Schreiben des Barcodes in die Datei
- Schreiben.Write(Barcode.Text)
- Schreiben.Close()
- Dim img As Image = Me.PictureBox1.Image
- img.Save(Barcode.Text + "*jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
- End If
- End Sub
- End Class
Was ist da falsch ?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Montaxx“ ()