Zeichnen Sie auf einem picturebox-Bild mit der Maus vb.net

Wie kann ich das zeichnen auf einem picturebox-Bild mit der Maus in vb.net eine Linie oder ein Pinsel?

InformationsquelleAutor hades | 2012-11-10

  1. 4

    Umgewandelt eine ähnliche Frage von C# VB.NET mit einem line - getestet und funktioniert:

    Private _Previous As System.Nullable(Of Point) = Nothing
Private Sub pictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
  _Previous = e.Location
  pictureBox1_MouseMove(sender, e)
End Sub

Private Sub pictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
  If _Previous IsNot Nothing Then
    If PictureBox1.Image Is Nothing Then
      Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)
      Using g As Graphics = Graphics.FromImage(bmp)
        g.Clear(Color.White)
      End Using
      PictureBox1.Image = bmp
    End If
    Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
      g.DrawLine(Pens.Black, _Previous.Value, e.Location)
    End Using
    PictureBox1.Invalidate()
    _Previous = e.Location
  End If
End Sub

Private Sub pictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
  _Previous = Nothing
End Sub
    Du bist ein Gott, ich erstelle eine religion nur für dich bro

    InformationsquelleAutor Neolisk

  2. 0

    Habe ich modifiziert Ihren code um einen "dot", die verschoben werden können (überschrieben) auf die Maus klicken Sie auf

    Was ich brauche, ist dies verwendet werden, für mehr als einen "Punkt", sagen die vier.

    Der Benutzer wählt einen marker aus der Liste aus, und stellen Sie es auf die Bild-box, dann wählen Sie einen anderen Ort und in einer anderen Lage, aber es überschreibt den vorherigen marker.

    Marker = Lst_Markers.SelectedIndex + 1
If _Previous IsNot Nothing Then
  For i As Integer = 0 To Marker
    Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)
    PictureBox1.Image = bmp
  Next
  Select Case Marker
    Case 1
      'PictureBox1.Image = bmp1
      Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
        g.FillEllipse(Brushes.Red, e.X, e.Y, 10, 10)
      End Using
    Case 2
      'PictureBox1.Image = bmp2
      Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
        g.FillEllipse(Brushes.Yellow, e.X, e.Y, 10, 10)
      End Using
    Case 3
      'PictureBox1.Image = bmp3
      Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
        g.FillEllipse(Brushes.Green, e.X, e.Y, 10, 10)
      End Using
    Case 4
      'PictureBox1.Image = bmp4
      Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
        g.FillEllipse(Brushes.Blue, e.X, e.Y, 10, 10)
      End Using
    Case Else
      MsgBox("Select a marker")
  End Select
  PictureBox1.Invalidate()
  _Previous = e.Location
End If

    InformationsquelleAutor Martin

Schreibe einen Kommentar