Graphiques de dessin Disparaître dans VB.net

J'ai un programme simple qui permet de dessiner sur l'écran avec FillEllipse et FillRectangle. Mon problème est que lorsque vous faites glisser une autre fenêtre sur même une petite partie de l'écran, la partie sera effacé. Cela se produit lorsque vous faites glisser la fenêtre sur, laisser aller, et faites-le glisser. Est-il possible de résoudre ce problème?

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
Êtes-vous dessiner directement à l'écran (hdc 0) ou à votre propre forme?
Édité pour montrer mon code
modifié la réponse ci-dessous, au lieu de créer un nouveau Graphique à chaque fois que vous aurez besoin de tirer un persistante graphiques comme un pictureBox. Sinon, vous pouvez redessiner à chaque événement de peinture, mais qui pourrait coûter cher.

OriginalL'auteur WillumMaguire | 2012-11-11

  1. 5

    Vous pouvez mettre un contrôle PictureBox sur votre formulaire et dessiner à la place, et il n'est pas effacée lorsque les autres fenêtres de la peinture sur elle:

    le faire une fois, sur form_load ou quelque chose:

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

    dessiner:

    Graphics.FromImage(pictureBox1.Image).FillRectangle(Brushes.Black, 0, 0, 100, 100);
pictureBox1.Refresh();
    Ce fixe pour mon ami. il a été à l'aide de Graphiques.FromHwnd(pictureBox1.La poignée) dans sa forme la charge. Après la modification de l'utilisation de la FromImage(pictureBox1.Image) il a travaillé! Il montre maintenant les graphiques sur le formulaire de charge sans elle en train de disparaître!

    OriginalL'auteur gordy

  2. 4

    Vous devez faire tout votre dessin dans la Paint événement, qui se déclenche à chaque fois que votre contrôle obtient repeint.

    Quel est exactement l'événement de Peinture, et comment pourrais-je faire de mon dessin? Je suis nouveau sur les graphiques

    OriginalL'auteur SLaks

  3. 1

    Le code suivant permet de dessiner un rectangle avec la souris (cliquez et faites glisser). Ajouter un PictureBox à un formulaire.

    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
    Si le contrôle PictureBox est couvert par un autre objet, comme une autre forme ou une autre application, tous les dessins que vous faites ici disparaîtra. Tous les travaux de peinture de la forme ou de contrôle devrait arriver dans la OnPaint de la méthode ou de la Peinture de l'événement.
    C'est étrange. Quand j'ai tester le code, recouvrant la forme ne perd pas le dessin, mais la minimisation de la forme.
    J'ai édité ma réponse à résoudre le problème soulevé par Chris Dunaway

    OriginalL'auteur SSS

  4. 0

    @SLaks déjà dit à vous de faire tous les travaux de peinture dans la méthode OnPaint. Voici un peu plus d'informations. Si vous essayez de tirer sur un formulaire, vous devez substituer la méthode OnPaint et faire tout ce que vous peinture à l'aide de la carte Graphique instance qui est passé dans la méthode. Voici plus d'informations sur le sujet:

    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

    OriginalL'auteur Chris Dunaway

  5. 0

    juste un aperçu, ce qui m'a vraiment aidé à dessiner dans vb.net a cet exemple vbnettuthut.blogspot.com - il montrer un exemple complet pour dessiner rapide et en douceur, avec un exemple de travail et de la source de la morue

    OriginalL'auteur Samuel