Moin moin
Habe hier ein Problem mit Drawing und Select Case...
In der Select Anweisung bekomme ich den Fehler. Ohne klappt es.
Fehlermeldung: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Spoiler anzeigen
Habe hier ein Problem mit Drawing und Select Case...
In der Select Anweisung bekomme ich den Fehler. Ohne klappt es.
Fehlermeldung: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
VB.NET-Quellcode
- Imports System.Drawing.Drawing2D
- Imports System.Drawing
- Public Class drawClass
- Public g As Graphics
- Public _fform As Form
- #Region "Retangle Draw Form"
- Public Sub drawretangle(ByVal _form As String)
- ' in der Case funktioniert es nicht. Fehler..
- Select Case _form
- Case "main"
- _fform = frm_main
- Dim g As Graphics = frm_main.CreateGraphics
- Case "settings"
- _fform = frm_settings
- Dim g As Graphics = frm_settings.CreateGraphics
- End Select
- ' Das funktioniert.
- _fform = frm_main
- Dim g As Graphics = _fform.CreateGraphics
- Dim newPen As Penn
- newPen = New Pen(Color.FromArgb(255, 10, 10, 10), 6)
- g.DrawRectangle(newPen, New Rectangle(New Point(0, 0), New Size(_fform.Width, _fform.Height))) 'Hier bricht es ab
- End Sub
- #End Region
- 'Das frm_main-form:
- Private Sub frm_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- drawClass.drawretangle("main")
- End Sub
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Amelie“ ()