[TuT] Eigenes Paint Programm erstellen

    • VB.NET

    Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

      [TuT] Eigenes Paint Programm erstellen

      Hallo Programmierer!

      Ich habe mich heute mal rangesetzt um ein etwas schwereres Tutorial zu machen.

      In diesem Tutorial zeige ich euch wie man sein Eigenes Paint in VB.08 / VB.10 erstellt.
      Es ist gut möglich das es mehrere Teile braucht.

      Dann fangen wir mal an:

      ====================================================
      Die Form
      ====================================================
      Spoiler anzeigen

      Ihr benötigt:
      - 14 RadioButtons (Schaut euch auf dem Bild an wie ihr sie nennen müsst(ich hab sie Englisch bennant( RadiererRadiBotton = EraserRadioButton)))
      - 3 Buttons [Namen: ColorButton, Color2Button und FontButton]
      - 1 PictureBox
      - 1 Textbox [Name: TextDrawTextBox]
      - 1 ColorDialog
      - 1 FontDialog
      - 1 SaveFileDialog
      - 1 Trackbar


      Vollansicht: Hier!

      So Nun erstellen wir mal Variablen:

      VB.NET-Quellcode

      1. Dim g As Graphics
      2. Dim PenWidth As Single = 1.0F
      3. Dim PenPoint As Pen
      4. Dim SavedFileAddress As String = ""
      5. Dim CurrentFont As Font
      6. Dim startLocation As Point
      7. Dim endLocation As Point
      8. Dim TempLocation As New Point(-1, -1)
      9. Dim TempLocation2 As New Point(-1, -1)
      10. Dim NumberOfAngle As Integer = 0
      11. Dim drawing As Boolean = False
      12. Dim CurrentColor As Color = Color.Blue
      13. Dim CurrentColor2 As Color = Color.LightSkyBlue
      14. Dim LastImage As New Bitmap(501, 501)
      15. Dim M1 As New Bitmap(501, 501)
      16. Dim M2 As New Bitmap(501, 501)
      17. Dim M3 As New Bitmap(501, 501)
      18. Dim M4 As New Bitmap(501, 501)


      Jetzt kommen wir mal zum Form1_Load Code. Hier wird die Schrift, die Farbe und das Bild gelade [...]:

      VB.NET-Quellcode

      1. Private Sub PaintForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      2. CurrentFont = Me.Font
      3. FontButton.Text = CurrentFont.ToString
      4. Me.ColorButton.BackColor = Color.Blue
      5. Me.Color2Button.BackColor = Color.DeepSkyBlue
      6. g = Graphics.FromImage(LastImage)
      7. g.Clear(Color.White)
      8. UpdateImage()
      9. ReloadPen(PenWidth, CurrentColor)
      11. End Sub



      ====================================================
      Funktionen für den Stift, die Füllfunktion und mehr
      ====================================================
      Spoiler anzeigen

      Hier müssen wir mehrere Functions und Subs erstellen.
      Beginnen wir mal mit den Stift funktionen. Der stift mit dem ihr malt ergibt ein + das müssen wir nun Coden.

      VB.NET-Quellcode

      1. Function UpPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
      2. Dim result As Boolean = False
      3. If (Y > 0) Then
      4. If (LastImage.GetPixel(X, Y - 1) = Col) Then
      5. result = True
      6. End If
      8. End If
      9. Return result
      10. End Function
      11. Function DownPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
      12. Dim result As Boolean = False
      13. If (Y < LastImage.Height - 1) Then
      14. If (LastImage.GetPixel(X, Y + 1) = Col) Then
      15. result = True
      16. End If
      18. End If
      19. Return result
      20. End Function
      21. Function RightPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
      22. Dim result As Boolean = False
      23. If (X < LastImage.Width - 1) Then
      24. If (LastImage.GetPixel(X + 1, Y) = Col) Then
      25. result = True
      26. End If
      28. End If
      29. Return result
      30. End Function
      31. Function LeftPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
      32. Dim result As Boolean = False
      33. If (X > 0) Then
      34. If (LastImage.GetPixel(X - 1, Y) = Col) Then
      35. result = True
      36. End If
      37. End If
      38. Return result
      39. End Function


      Jetzt gehen wir weiter zu der Füll-funktion.
      Dazu erstellt ihr wieder eine eigene Function:

      VB.NET-Quellcode

      1. Function FillRegion(ByVal X As Integer, ByVal Y As Integer, ByVal FillCol As Color) As Boolean
      2. If X < 0 Or X > LastImage.Width Or Y < 0 Or Y > LastImage.Height Then
      3. Return False
      5. End If
      7. Application.DoEvents()
      9. Dim points As Stack = New Stack
      10. points.Push(New Point(X, Y))
      12. Dim Pointcolor As Color = LastImage.GetPixel(X, Y)
      15. Do
      16. Dim p As Point = CType(points.Pop(), Point)
      18. LastImage.SetPixel(p.X, p.Y, FillCol)
      20. If UpPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
      21. points.Push(New Point(p.X, p.Y - 1))
      22. End If
      24. If DownPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
      25. points.Push(New Point(p.X, p.Y + 1))
      26. End If
      29. If RightPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
      30. points.Push(New Point(p.X + 1, p.Y))
      31. End If
      33. If LeftPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
      34. points.Push(New Point(p.X - 1, p.Y))
      35. End If
      37. Loop While points.Count > 0
      39. Return True
      41. End Function


      Nun erstellen wir 2 Subs.
      Die eine ist dazu da, dass sie dem Stift lädt und die andere, dass sie unser Bild "updated":

      VB.NET-Quellcode

      1. Sub UpdateImage()
      3. g = Graphics.FromImage(LastImage)
      5. Me.PictureBox1.Image = LastImage
      7. End Sub
      8. Sub ReloadPen(ByVal PenWd As Single, ByVal CurColor As Color)
      9. PenPoint = New Pen(CurColor, PenWd)
      11. End Sub


      ====================================================
      Die "Mal-Funktion"
      ====================================================
      Spoiler anzeigen

      Die "Mal-Funktion" ist der längste Teil, da er sehr viele If Sätze beinhaltet. Doch diese Funktion ist natürlich auch die wichtigste.
      Ohne ihr könnte man nicht malen.

      Dann fangen wir mal hiermit an:

      Zuerst kümmern wir uns um den PictureBox1_MouseDown Code:
      Hier wird z.B. das Vieleck und das Dreieck gecoded.

      VB.NET-Quellcode

      1. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
      2. If e.Button = Windows.Forms.MouseButtons.Left Then
      3. If drawing = False Then
      5. startLocation = e.Location
      7. drawing = True
      9. If MultiAngleRadioButton.Checked Then
      11. If TempLocation.X = -1 Then
      12. TempLocation = startLocation
      13. TempLocation2 = startLocation
      14. End If
      16. endLocation = e.Location
      17. g.DrawLine(PenPoint, TempLocation, endLocation)
      18. TempLocation = endLocation
      20. ElseIf TriangleRadioButton.Checked Then
      21. If TempLocation.X = -1 Then
      22. TempLocation = startLocation
      23. TempLocation2 = startLocation
      24. End If
      26. If NumberOfAngle <= 2 Then
      28. endLocation = e.Location
      29. g.DrawLine(PenPoint, TempLocation, endLocation)
      30. TempLocation = endLocation
      32. If NumberOfAngle = 2 Then
      33. g.DrawLine(PenPoint, TempLocation, TempLocation2)
      34. TempLocation = New Point(-1, -1)
      35. NumberOfAngle = 0
      36. Else
      37. NumberOfAngle += 1
      38. End If
      41. End If
      44. End If
      47. End If
      49. ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
      51. If MultiAngleRadioButton.Checked Then
      52. If TempLocation.X <> -1 Then
      53. endLocation = e.Location
      54. g.DrawLine(PenPoint, TempLocation, TempLocation2)
      55. TempLocation = New Point(-1, -1)
      56. End If
      58. End If
      63. End If
      65. End Sub


      Jetzt geht es weiter zum Mouse_move Code:
      Hier wird der Radierer und der Bleistift gecoded.

      VB.NET-Quellcode

      1. Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
      2. If drawing = True Then
      3. If LineRadioButton.Checked Then
      4. g.DrawLine(PenPoint, startLocation.X, startLocation.Y, e.X, e.Y)
      5. startLocation = e.Location
      6. UpdateImage()
      8. ElseIf EraserRadioButton.Checked Then
      10. Dim p As New Pen(Color.White, PenWidth)
      12. g.DrawLine(p, startLocation.X, startLocation.Y, e.X, e.Y)
      13. startLocation = e.Location
      14. UpdateImage()
      16. End If
      18. End If
      19. End Sub


      Jetzt kommen wir zu der längsten Sub(Picturebox1_MouseUp).
      Diese beeinhaltet:
      Das Rechteck
      Den Kreis
      Den Halbkreis
      Nochmal die Füllfunktion
      Die Textfunktion
      [...]

      VB.NET-Quellcode

      1. Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
      3. If drawing Then
      5. If RectangleRadioButton.Checked Then
      7. endLocation = e.Location
      9. Dim s As Point
      11. s.X = endLocation.X - startLocation.X
      12. If s.X < 0 Then
      13. startLocation.X = endLocation.X
      15. End If
      17. s.Y = endLocation.Y - startLocation.Y
      18. If s.Y < 0 Then
      19. startLocation.Y = endLocation.Y
      21. End If
      23. s.X = Math.Abs(s.X)
      24. s.Y = Math.Abs(s.Y)
      25. g.DrawRectangle(PenPoint, New Rectangle(startLocation, s))
      29. ElseIf CircleRadioButton.Checked Then
      31. endLocation = e.Location
      32. Dim s As Point
      34. s.X = endLocation.X - startLocation.X
      36. If s.X < 0 Then
      37. startLocation.X = endLocation.X
      39. End If
      41. s.Y = endLocation.Y - startLocation.Y
      43. If s.Y < 0 Then
      44. startLocation.Y = endLocation.Y
      46. End If
      48. s.X = Math.Abs(s.X)
      49. s.Y = Math.Abs(s.Y)
      51. If s.X > s.Y Then
      52. s.Y = s.X
      53. Else
      54. s.X = s.Y
      55. End If
      57. g.DrawEllipse(PenPoint, New Rectangle(startLocation, s))
      59. ElseIf ArcRadioButton.Checked Then
      60. endLocation = e.Location
      62. Dim s As Point
      64. s.X = endLocation.X - startLocation.X
      66. If s.X < 0 Then
      67. startLocation.X = endLocation.X
      69. End If
      71. s.Y = endLocation.Y - startLocation.Y
      73. If s.Y < 0 Then
      74. startLocation.Y = endLocation.Y
      76. End If
      78. s.X = Math.Abs(s.X)
      79. s.Y = Math.Abs(s.Y)
      81. If s.X > s.Y Then
      82. s.Y = s.X
      83. Else
      84. s.X = s.Y
      85. End If
      87. g.DrawArc(PenPoint, New Rectangle(startLocation, s), 0, -180)
      89. ElseIf ParallelepipedRadioButton.Checked Then
      91. endLocation = e.Location
      93. Dim s As Point
      95. s.X = endLocation.X - startLocation.X
      97. If s.X < 0 Then
      98. Dim tmp As Integer = startLocation.X
      99. startLocation.X = endLocation.X
      100. endLocation.X = tmp
      101. End If
      103. s.Y = endLocation.Y - startLocation.Y
      105. If s.Y < 0 Then
      106. Dim tmp As Integer = startLocation.Y
      107. startLocation.Y = endLocation.Y
      108. endLocation.Y = tmp
      109. End If
      111. s.X = Math.Abs(s.X)
      112. s.Y = Math.Abs(s.Y)
      116. Dim p(3) As Point
      118. p(0) = New Point(startLocation.X + s.X / 5, startLocation.Y)
      119. p(1) = New Point(startLocation.X + s.X, startLocation.Y)
      121. p(2) = New Point(endLocation.X - s.X / 5, endLocation.Y)
      122. p(3) = New Point(endLocation.X - s.X, endLocation.Y)
      124. g.DrawPolygon(PenPoint, p)
      126. ElseIf FillRadioButton.Checked Then
      127. FillRegion(e.X, e.Y, CurrentColor)
      129. ElseIf TextRadioButton.Checked Then
      130. Dim txt As String = TextDrawTextBox.Text
      131. g.DrawString(txt, CurrentFont, New Drawing2D.HatchBrush(Drawing2D.HatchStyle.BackwardDiagonal, CurrentColor), e.X, e.Y)
      133. End If
      135. End If
      137. drawing = False
      139. UpdateImage()
      141. End Sub

      Wichtig ist noch das ihr diesen Code noch hinzufügt, damit das Dreieck funktioniert:

      VB.NET-Quellcode

      1. Private Sub TriangleRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
      2. TempLocation = New Point(-1, -1)
      3. End Sub


      Teil 2 Folgt.....

      mfg: Gather
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      Teil 2

      ====================================================
      Stifte + Farben
      ====================================================
      Spoiler anzeigen

      Hier Coden wir die Verschiedenen Stiftartein und die Farben.
      Natürlich kann man noch mehr Stifte hinzufügen ich habe hier als Beispiel aber nur ein paar gemacht.

      Zuerst programmieren wir die 2 ColorButtons. Diese öffnen einfach nur einen ColorDialog und speichern die Farbe dann ab:

      VB.NET-Quellcode

      1. Private Sub ColorButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorButton.Click
      2. If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
      3. CurrentColor = ColorDialog1.Color
      4. Me.ColorButton.BackColor = CurrentColor
      5. ReloadPen(PenWidth, CurrentColor)
      6. End If
      7. End Sub
      8. Private Sub Color2Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Color2Button.Click
      9. If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
      10. CurrentColor2 = ColorDialog1.Color
      11. Me.Color2Button.BackColor = CurrentColor2
      12. End If
      13. End Sub


      Nun kommen wir zu den 4 verschiedenen Stiftarten.
      3 Stiftarten sind vorgegeben. Mit der 4. kann man die Dicke selber einstellen.

      VB.NET-Quellcode

      1. Private Sub P1RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P1RadioButton.CheckedChanged
      2. PenWidth = 1.0F
      3. ReloadPen(PenWidth, CurrentColor)
      5. End Sub
      6. Private Sub P2RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P2RadioButton.CheckedChanged
      7. PenWidth = 5.0F
      8. ReloadPen(PenWidth, CurrentColor)
      9. End Sub
      10. Private Sub P3RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P3RadioButton.CheckedChanged
      11. PenWidth = 10.0F
      12. ReloadPen(PenWidth, CurrentColor)
      13. End Sub


      Jetzt kommen wir noch zu unserer eigenen Stiftart:

      VB.NET-Quellcode

      1. Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
      2. If P4RadioButton.Checked = True Then
      3. PenWidth = TrackBar1.Value
      4. ReloadPen(PenWidth, CurrentColor)
      5. End If
      6. End Sub


      ====================================================
      Sonstige Funktionen
      ====================================================
      Spoiler anzeigen

      Für die Sonstigen Funktionen added ein Menu Strip.
      Dort erstellt ihr mal Datei und Image
      Bei Datei erstellt ihr dann noch:
      Löschen
      Neu
      Speichern
      Speichern als...
      Schließen

      Und bei Image Added ihr:
      M1
      M2
      M3
      M4
      S1
      S2
      S3
      S4

      Für das Löschen erstellen wir Wieder einen Neue Sub:

      VB.NET-Quellcode

      1. Private Sub ClearToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearToolStripMenuItem.Click
      2. ClearScreen()
      3. End Sub
      4. Sub ClearScreen()
      6. g = Graphics.FromImage(LastImage)
      7. g.Clear(Color.White)
      8. UpdateImage()
      9. End Sub


      Nun coden wir den Neu "button":
      Hier wird auch abgefragt ob das Bild zuerst gespeichert werden soll.

      VB.NET-Quellcode

      1. If SavedFileAddress = "" Then
      2. Dim result As Integer = MsgBox("Wollen sie dieses Bild speichern?", MsgBoxStyle.YesNo)
      3. If result = MsgBoxResult.Yes Then
      4. SaveFileDialog1.Filter = "Bitmap File (*.bmp)|*.bmp"
      5. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
      6. SavedFileAddress = SaveFileDialog1.FileName
      8. LastImage.Save(SavedFileAddress)
      9. Me.Text = SaveFileDialog1.FileName
      10. End If
      11. End If
      12. End If
      13. g.Clear(Color.White)
      14. UpdateImage()
      15. SavedFileAddress = ""


      Also kommen wir gleich weiter zum Speichern:

      VB.NET-Quellcode

      1. If SavedFileAddress = "" Then
      2. SaveFileDialog1.Filter = "Bitmap File (*.bmp)|*.bmp"
      3. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
      4. SavedFileAddress = SaveFileDialog1.FileName
      8. LastImage.Save(SavedFileAddress)
      9. Me.Text = SaveFileDialog1.FileName
      10. End If
      12. Else
      13. LastImage.Save(SavedFileAddress)
      14. Me.Text = SaveFileDialog1.FileName
      15. End If


      Speichern als...:

      VB.NET-Quellcode

      1. SaveFileDialog1.Filter = "Bitmap File (*.bmp)|*.bmp"
      2. If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
      3. SavedFileAddress = SaveFileDialog1.FileName
      5. LastImage.Save(SavedFileAddress)
      6. Me.Text = SaveFileDialog1.FileName
      7. End If


      Beim verlassen könnte man wieder eine Abfrage einbaun die Fragt ob das Bild gespeichert werden soll (Wenn man will)

      Zu guter Letzt kommen wir zum Image
      Mit M1-M4 könnt ihr 4 Bilder speichern. Und diese mit S1-S4 laden:
      Der Code dazu ist sehr simpel:

      VB.NET-Quellcode

      1. Private Sub M1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M1ToolStripMenuItem.Click
      2. M1 = LastImage.Clone()
      3. End Sub
      4. Private Sub M2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M2ToolStripMenuItem.Click
      5. M2 = LastImage.Clone()
      6. End Sub
      7. Private Sub M3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M3ToolStripMenuItem.Click
      8. M3 = LastImage.Clone()
      9. End Sub
      10. Private Sub M4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M4ToolStripMenuItem.Click
      11. M4 = LastImage.Clone()
      12. End Sub
      13. Private Sub S1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S1ToolStripMenuItem.Click
      14. LastImage = M1.Clone
      15. UpdateImage()
      16. End Sub
      17. Private Sub S2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S2ToolStripMenuItem.Click
      18. LastImage = M2.Clone
      19. UpdateImage()
      20. End Sub
      21. Private Sub S3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S3ToolStripMenuItem.Click
      22. LastImage = M3.Clone
      23. UpdateImage()
      24. End Sub
      25. Private Sub S4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S4ToolStripMenuItem.Click
      26. LastImage = M4.Clone
      27. UpdateImage()
      28. End Sub



      Das wars!^^

      Bei fragen oder Sonstigem Interresse einfach Antworten oder eine PN senden. Ich versuche diese So schnell wie möglich zu beantworten.

      PS: Bedanken nicht vergessen ;D

      Update:
      Beispielprojekt hinzugefügt!
      Dateien

      • Paint-Prog.rar

        (167,89 kB, 1.030 mal heruntergeladen, zuletzt: )
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gather“ ()

      Hast du eh die Subs erstellt? :

      VB.NET-Quellcode

      1. Sub UpdateImage()
      3. g = Graphics.FromImage(LastImage)
      5. Me.PictureBox1.Image = LastImage
      7. End Sub
      8. Sub ReloadPen(ByVal PenWd As Single, ByVal CurColor As Color)
      9. PenPoint = New Pen(CurColor, PenWd)
      11. End Sub
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      Eigentlich sollte dieses Tutorial alles erklären und man Braucht keinen Beispielcode.

      Weil sonst wird ja nur der Code gedownloadet und man lernt dabei ja nichts. Es geht ja darum dass IHR versteht und lernt wie man ein eigenes "Paint" erstellt.

      ABER: Ich habs jetzt trotzdem noch als Anhang hinzugefügt.
      (Post 2)

      PS: Bedanken nicht vergessen ;D
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      Update:


      GradientRectAngle

      Dazu benötigt ihr einen RadioButton Namens: GradientRectAngleRadioButton
      (Beim Beispielprojekt ist dieser schon hinzugefügt, er ist nur unten versteckt (+ visible false) also um ihn zu finden müsst ihr einfach die Form ein bisschen größer machen.)

      Nun fügt ihr diesen Code zu MouseUp hinzu:

      VB.NET-Quellcode

      1. ElseIf GradientRectAngleRadioButton.Checked Then
      3. endLocation = e.Location
      5. Dim s As Point
      8. If s.X < 0 Then
      9. startLocation.X = endLocation.X
      10. ElseIf s.X = 0 Then
      11. s.X = 1
      12. End If
      14. s.Y = endLocation.Y - startLocation.Y
      16. If s.Y < 0 Then
      17. startLocation.Y = endLocation.Y
      18. ElseIf s.Y = 0 Then
      19. s.Y = 1
      20. End If
      22. s.X = Math.Abs(s.X)
      23. s.Y = Math.Abs(s.Y)
      25. Dim b As Brush
      26. b = New Drawing2D.LinearGradientBrush(New Rectangle(startLocation, s), CurrentColor, CurrentColor2, Drawing2D.LinearGradientMode.BackwardDiagonal)
      27. g.FillRectangle(b, New Rectangle(startLocation, s))
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      Würde mir eine weitere Fortsetzung wünschen

      Dieses Tutorial ist echt sehr hilfreich!!! Auch unter VB2013.NET ging es ohne Probleme. Ich würde mir jedoch noch eine Fortsetzung wünschen, da z.B. der Farbeimer stink langsam ist. Außerdem dass man das Rechteck schon sieht, bevor man es loßlässt. Aber das Tutorial ist echt gut gemacht!!!!!!!!!!!!!!!!! :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup:

      Ich habe hier leider ein Problem, ich habe es genauso gemacht wie im Tutorial, jedoch wird beim Bleistift die Linie nicht direkt beim Mauszeiger gezeichnet, sondern weiter in Richtung (0;0). Leider bekomme ich das nicht geloest. Bitte helft mir.

      Ich bitte hierbei um geduld, ich werde das Tutorial komplett überarbeiten. Habe aber nicht viel Zeit da ich gerade noch vor meiner mündlichen Matura stehe, danach sollte aber alles verständlicher sein :)
      Mfg: Gather
      Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

      Jo, zu bemängeln wäre zunächst, dass Strict Off geproggt ist, da schleichen sich immer Fehler ein, etwa, dass Points als Sizes verwendet werden und sowas.
      Und der Microsoft.Visualbasic-General-Import gehört imo auch deaktiviert: Grundeinstellungen für Vb.net

      An Useability ist zu bemängeln, dass der User während einer Eingabe oft gar kein Feedback erhält, wie's denn aussehen wird.
      Etwa wenn er ein Rechteck aufzieht, dass dieses zunächst mal der Maus folgt, und erst beim Loslassen in die Bitmap fixiert wird.
      Aber sowas müsste auf OwnerDrawing basieren, also eine ganz andere Grafik-Programmierung als die hiesigen Bitmap-Manipulationen.

      Und minimal sollte man mit [Esc] eine Eingabe auch abbrechen können.
      Schicker wäre natürlich eine Undo-Taste.
      High-End wäre, wenn man Figuren selektieren könnte, und dann verschieben, klonen, färben, löschen etc.. Aber das ist mit Bitmap-Operationen technisch nicht machbar, da müsste man komplett umstellen auf OwnerDrawing - nicht nur die Eingabe.