Hallo, ich bin am verzweifeln. In meiner Form funktioniert mein codedom Compiler gut. Aber ich schätze am code stimmt etwas nicht mit dem timer. Wenn die exe fertig ist kommt die.Fehlermeldung: Null Reference Exception
Könnt ihr mir bitte weiterhelfen? Der folgende code ist der code der mein Compiler compiliert.
Dim code As String = _
"Imports System.Windows" & nl & _
"Imports System.Windows.Forms" & nl & _
"Imports System.Drawing" & nl & _
"Imports System.EventArgs" & nl & _
"Imports System.Timers" & nl &_
"Public Class xxxform" & nl & _
"Inherits System.Windows.Forms.Form" & nl & _
"Friend WithEvents T1_Screen As System.Windows.Forms.Timer" & nl & _
"Dim lblInfo As New Label With {.Parent = Me, .Width = 300, .Height = 300}" & nl & _
"Private Sub xxxform_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load" & nl & _ "Me.T1_Screen.Interval = 10000" & nl & _
"Me.T1_Screen.Enabled = False" & nl & _
"Me.Size = New Size(350, 350)" & nl & _
"lblInfo.text = " & c34 & _ TB_Speicherpfad.Text & c34 & nl & _
"End Sub" & nl & _
"Private Sub T1_Screen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1_Screen.Tick" & nl & _
"Dim bounds As Rectangle" & nl & _
"Dim screenshot As System.Drawing.Bitmap" & nl & _
"Dim graph As Graphics" & nl & _
"bounds = Screen.PrimaryScreen.Bounds" & nl & _
"screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppPArgb)" & nl & _
"graph = Graphics.FromImage(screenshot)" & nl & _ "graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)" & nl & _
"screenshot.Save(" & c34 & TB_Speicherpfad.Text & c34 & " & ""test3"" & "".jpg"")" & nl & _
"End Sub" & nl & _
"Private Sub InitializeComponent()" & nl & _
"Me.SuspendLayout() " & nl & _
"Me.ClientSize = New System.Drawing.Size(292, 273) " & nl & _
"Me.Name = " & c34 & "xxxform" & c34 & nl & _
"Me.ResumeLayout(False) " & nl & _
"End Sub" & nl & _
"End Class"
************** Ausnahmetext **************
System.NullReferenceException: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
bei xxxform.xxxform_Load(Object sender, EventArgs e)
bei System.Windows.Forms.Form.OnLoad(EventArgs e)
bei System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
bei System.Windows.Forms.Control.CreateControl()
bei System.Windows.Forms.Control.WmShowWindow(Message& m)
bei System.Windows.Forms.Control.WndProc(Message& m)
bei System.Windows.Forms.Form.WndProc(Message& m)
bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Könnt ihr mir bitte weiterhelfen? Der folgende code ist der code der mein Compiler compiliert.
Dim code As String = _
"Imports System.Windows" & nl & _
"Imports System.Windows.Forms" & nl & _
"Imports System.Drawing" & nl & _
"Imports System.EventArgs" & nl & _
"Imports System.Timers" & nl &_
"Public Class xxxform" & nl & _
"Inherits System.Windows.Forms.Form" & nl & _
"Friend WithEvents T1_Screen As System.Windows.Forms.Timer" & nl & _
"Dim lblInfo As New Label With {.Parent = Me, .Width = 300, .Height = 300}" & nl & _
"Private Sub xxxform_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load" & nl & _ "Me.T1_Screen.Interval = 10000" & nl & _
"Me.T1_Screen.Enabled = False" & nl & _
"Me.Size = New Size(350, 350)" & nl & _
"lblInfo.text = " & c34 & _ TB_Speicherpfad.Text & c34 & nl & _
"End Sub" & nl & _
"Private Sub T1_Screen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1_Screen.Tick" & nl & _
"Dim bounds As Rectangle" & nl & _
"Dim screenshot As System.Drawing.Bitmap" & nl & _
"Dim graph As Graphics" & nl & _
"bounds = Screen.PrimaryScreen.Bounds" & nl & _
"screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppPArgb)" & nl & _
"graph = Graphics.FromImage(screenshot)" & nl & _ "graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)" & nl & _
"screenshot.Save(" & c34 & TB_Speicherpfad.Text & c34 & " & ""test3"" & "".jpg"")" & nl & _
"End Sub" & nl & _
"Private Sub InitializeComponent()" & nl & _
"Me.SuspendLayout() " & nl & _
"Me.ClientSize = New System.Drawing.Size(292, 273) " & nl & _
"Me.Name = " & c34 & "xxxform" & c34 & nl & _
"Me.ResumeLayout(False) " & nl & _
"End Sub" & nl & _
"End Class"
************** Ausnahmetext **************
System.NullReferenceException: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
bei xxxform.xxxform_Load(Object sender, EventArgs e)
bei System.Windows.Forms.Form.OnLoad(EventArgs e)
bei System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
bei System.Windows.Forms.Control.CreateControl()
bei System.Windows.Forms.Control.WmShowWindow(Message& m)
bei System.Windows.Forms.Control.WndProc(Message& m)
bei System.Windows.Forms.Form.WndProc(Message& m)
bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)