Trenger hjelp angående grafikk i VB .NET 2005

[Degeim]

Jeg arbeider altså i Visual Studio 2005 Express Edition, og lager en del av et program det man skal kunne tegne. Dette funket så vidt jeg kan huske bra, helt inntil nylig. Nå blir pictureboxen _alltid_ regnet som "Nothing", selv om jeg faktisk har tegnet på den. Legger ved tegnekodene under.

 

Private Sub Gnotat_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles GNotat.MouseDown
       If Not UnderOpning Then GrafikkEndra = True

       Penn = New Pen(Farge1.BackColor, GTjukknad.Value)
       Penn2 = New Pen(Farge2.BackColor, GTjukknad.Value)
       Brush = Brushes.Blue
       XX = e.X
       YY = e.Y
       g = GNotat.CreateGraphics() ' Lag et grafikkobjekt
   End Sub
   Private Sub Gnotat_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles GNotat.MouseMove
       Select Case GVerkty
           Case 1 ' Blyant
               If e.Button = Windows.Forms.MouseButtons.Left Then
                   g.DrawLine(Penn, XX, YY, e.X, e.Y)
               ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
                   g.DrawLine(Penn2, XX, YY, e.X, e.Y)
               End If
               XX = e.X
               YY = e.Y
       End Select
   End Sub
   Private Sub Gnotat_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles GNotat.MouseUp
       g.Dispose()
       g = Nothing
   End Sub

 

Takk,

Degeim

Endret 19. mars 2006 av Degeim