Zeichnen von Grafiken Verschwinden VB.net

Habe ich ein einfaches Programm, das Sie können auf dem Bildschirm zeichnen mit FillEllipse und FillRectangle. Mein problem ist, dass, wenn Sie ziehen Sie ein anderes Fenster über einen kleinen Teil des Bildschirms, wird dieser Teil gelöscht werden. Dies geschieht, wenn Sie ziehen Sie das andere Fenster vorbei, mal gehen Sie, und ziehen Sie es wieder aus. Gibt es irgendeine Möglichkeit dieses Problem zu beheben?

Dim MyFormObject As Graphics = Me.CreateGraphics
        Select Case shape
            Case "Ellipse"
                MyFormObject.FillEllipse(brush, e.X - CInt(brushWidth / 2), e.Y - CInt(brushHeight / 2), brushWidth, brushHeight)
            Case "Rectangle"
                MyFormObject.FillRectangle(brush, e.X - CInt(brushWidth / 2), e.Y - CInt(brushHeight / 2), brushWidth, brushHeight)
        End Select
Sind Sie mit dem zeichnen direkt auf dem Bildschirm (hdc 0), oder, um Ihre eigene form?
Bearbeitet, um zu zeigen, dass mein code
bearbeitet die Antwort unten, statt der Schaffung einer neuen Grafiken und jeder Zeit, die Sie benötigen, um zu zeichnen, um eine permanente Grafik wie ein pictureBox-Steuerelement. Alternativ können Sie das Neuzeichnen auf jedem paint-Ereignis, aber das könnte teuer werden.

InformationsquelleAutor WillumMaguire | 2012-11-11

  1. 5

    Können Sie ein PictureBox-Steuerelement auf dem Formular, und zeichnen Sie auf, dass statt und es wird nicht gelöscht werden, wenn andere Fenster malen:

    tun Sie dies einmal, auf form_load oder so:

    pictureBox1.Image = new Bitmap(Width, Height);

    zeichnen:

    Graphics.FromImage(pictureBox1.Image).FillRectangle(Brushes.Black, 0, 0, 100, 100);
pictureBox1.Refresh();
    Dieses fixiert es für meinen Freund. er war die Verwendung von Grafiken.FromHwnd(pictureBox1.Griff) in seiner form laden. Nach dem Wechsel nutzen die FromImage(pictureBox1.Bild) es hat geklappt! Es zeigt jetzt die Grafiken laden der form, ohne es zu verschwinden!

    InformationsquelleAutor gordy

  2. 4

    Müssen Sie alle für Ihre Zeichnung im Paint Ereignis, das feuert, jedes mal Ihrer Kontrolle erhält die neu gestrichen.

    Was genau ist das Paint-Ereignis, und wie würde ich meine Zeichnung? Ich bin neu in Grafiken

    InformationsquelleAutor SLaks

  3. 1

    Dem folgenden code können Sie ein Rechteck zeichnen, mit der Maus (klicken und ziehen). Hinzufügen eines PictureBox zu einem Formular.

    Public Class Form1
  Private mpntMouseDown As Point

  Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    Dim w As Integer = PictureBox1.Width
    Dim h As Integer = PictureBox1.Height
    Dim bmp As New Bitmap(w, h, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    Using g As Graphics = Graphics.FromImage(bmp)
      Dim rct As New RectangleF(0, 0, w, h)
      Dim b As Brush = New System.Drawing.Drawing2D.LinearGradientBrush(rct, Color.White, Color.Blue, 0)
      g.FillRectangle(b, rct)
      g.DrawEllipse(Pens.Blue, New RectangleF(CInt(0.1 * w), CInt(0.2 * h), CInt(0.8 * w), CInt(0.6 * h)))
      g.FillEllipse(Brushes.Yellow, New RectangleF(CInt(0.1 * w) + 1, CInt(0.2 * h) + 1, CInt(0.8 * w) - 2, CInt(0.6 * h) - 2))
      Dim sft As New StringFormat
      sft.Alignment = StringAlignment.Center
      sft.LineAlignment = StringAlignment.Center
      g.DrawString("Sample Image", New Font(System.Drawing.FontFamily.GenericSerif, 14, FontStyle.Italic, GraphicsUnit.Point), Brushes.Red, rct, sft)
    End Using
    PictureBox1.Image = bmp
  End Sub

  Private Sub PictureBox1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    If e.Button = Windows.Forms.MouseButtons.Left Then
      mpntMouseDown = e.Location
    End If
  End Sub

  Private Sub PictureBox1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
    If mpntMouseDown = Nothing Then Exit Sub
    Using g As Graphics = Graphics.FromImage(PictureBox1.Image, Bitmap)
      Dim rct As New Rectangle
      If mpntMouseDown.X < e.X Then
        rct.X = mpntMouseDown.X
        rct.Width = e.X - mpntMouseDown.X + 1
      Else
        rct.X = e.X
        rct.Width = mpntMouseDown.X - e.X + 1
      End If
      If mpntMouseDown.Y < e.Y Then
        rct.Y = mpntMouseDown.Y
        rct.Height = e.Y - mpntMouseDown.Y + 1
      Else
        rct.Y = e.Y
        rct.Height = mpntMouseDown.Y - e.Y + 1
      End If
      g.DrawRectangle(Pens.Black, rct)
    End Using
    mpntMouseDown = Nothing
    PictureBox1.Invalidate()
  End Sub
End Class
    Wenn die PictureBox ist abgedeckt durch ein anderes Objekt, wie eine andere form oder eine andere Anwendung, die alle die Zeichnung, die Sie hier machen, werden verschwinden. Alle Gemälde des Formulars oder des Steuerelements geschehen soll, in der OnPaint-Methode oder Paint-Ereignis.
    Das ist eigenartig. Wenn ich den code zu testen, die bis die form verliert nicht die Zeichnung, sondern die Minimierung der form nicht.
    Ich bearbeitet meine Antwort um das Problem zu beheben angehoben von Chris Dunaway

    InformationsquelleAutor SSS

  4. 0

    @SLaks schon gesagt, Sie zu tun alle Gemälde in der OnPaint-Methode. Hier ist ein wenig mehr Informationen. Wenn Sie versuchen zu ziehen, auf eine form, Sie würden überschreiben der OnPaint-Methode und tun alles, was Sie Malerei mit der Graphics-Instanz, übergeben wird in der Methode. Hier gibt es mehr Informationen zum Thema:

    http://www.bobpowell.net/creategraphics.htm

    http://www.bobpowell.net/picturebox.htm

    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
    MyBase.OnPaint(e)

    e.Graphics.FillEllipse(Brushes.Red, Me.ClientRectangle)
End Sub

    InformationsquelleAutor Chris Dunaway

  5. 0

    nur ein Einblick, was wirklich geholfen hat, mich mit zeichnen vb.net war dieses Beispiel vbnettuthut.blogspot.com es zeigen, ein vollständiges Beispiel zu zeichnen glatt und schnell, mit Beispiel und Quelle cod

    InformationsquelleAutor Samuel

Schreibe einen Kommentar