Mehrere Unterschriftenfelder in einer Form

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von dutschr.

    Mehrere Unterschriftenfelder in einer Form

    Hallo Liebes Forum,

    Ich hab eine Form in der drei PictureBoxen drin sind jede soll ein Feld sein für eine Unterschrift.

    Bei einer PictureBox hab ich das hinbekommen aber mit mehreren kriege ich das nicht richtig hin.
    Hier ist mal mein Code für eine Form mit nur einer PictureBox und einem Löschen Button:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private MouseD As Boolean
    4. Private Col As Color
    5. Private NewPen As Pen
    6. Private bmp As Bitmap
    7. Private Plist As List(Of Point)
    8. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    9. MouseD = True
    10. Plist.Add(New Point(e.X, e.Y))
    11. NewPen = Pens.Black
    13. ' NewPen = New Pen(Col, CSng(ComboBox2.SelectedItem))
    14. End Sub
    15. Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
    16. If MouseD Then
    17. MouseD = False
    18. Using gr = Graphics.FromImage(bmp)
    19. Draw(gr)
    20. gr.Flush()
    21. End Using
    22. Plist.Clear()
    23. PictureBox1.Invalidate()
    24. End If
    25. End Sub
    26. Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    27. If MouseD Then
    28. Plist.Add(New Point(e.X, e.Y))
    29. PictureBox1.Invalidate()
    30. End If
    31. End Sub
    32. Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    33. If MouseD Then Draw(e.Graphics)
    34. End Sub
    35. Private Sub Draw(ByVal g As Graphics)
    36. If Plist.Count > 0 Then
    37. Dim bs As Byte() = New Byte(Plist.Count - 1) {}
    38. bs(0) = CByte(System.Drawing.Drawing2D.PathPointType.Start)
    39. For a = 1 To Plist.Count - 1
    40. bs(a) = CByte(System.Drawing.Drawing2D.PathPointType.Line)
    41. g.DrawPath(NewPen, New System.Drawing.Drawing2D.GraphicsPath(Plist.ToArray, bs))
    42. Next
    43. End If
    44. End Sub
    45. Private Function GetColors() As List(Of String)
    46. Dim colors As New List(Of String)()
    47. Dim colorNames As String() = [Enum].GetNames(GetType(KnownColor))
    48. For Each colorName As String In colorNames
    49. Dim knownColor As KnownColor = DirectCast([Enum].Parse(GetType(KnownColor), colorName), KnownColor)
    50. If knownColor > knownColor.Transparent Then
    51. colors.Add(colorName)
    52. End If
    53. Next
    54. Return colors
    55. End Function
    56. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    57. PictureBox1.BackColor = Color.White
    58. bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)
    59. PictureBox1.Image = bmp
    60. Plist = New List(Of Point)
    61. Me.DoubleBuffered = True
    63. For Each c As String In GetColors()
    64. ComboBox1.Items.Add(c)
    65. Next
    66. For a = 1 To 25
    67. ComboBox2.Items.Add(a.ToString)
    68. Next
    69. ComboBox1.SelectedItem = ComboBox1.Items(0)
    70. ComboBox2.SelectedItem = ComboBox2.Items(0)
    72. End Sub
    73. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    74. Col = Color.FromName(ComboBox1.SelectedItem)
    75. End Sub
    76. Private Sub Button1_Click(ByVal sender As System.Object, _
    77. ByVal e As System.EventArgs) Handles Button1.Click
    78. Using g = Graphics.FromImage(PictureBox1.Image)
    79. g.Clear(Color.White)
    80. End Using
    81. PictureBox1.Invalidate()
    82. End Sub
    84. End Class


    wenn ich den Code für mehrere PictureBoxen schreibe dann funktioniert Garnichts mehr....

    vielen Dank schonmal für die Hilfe und beste Grüße

    dutschr schrieb:

    dann funktioniert Garnichts mehr....
    Wie äußeert sich das?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    also wenn ich da erstmal eine zweite picturebox einfüge und die Mouse Aktivitäten für die zweite Picturebox anpasse kann ich zwar malen aber der strich bleibt nicht erhalten
    und wenn eine zweite picturebox da ist kann ich den Inhalt der ersten nicht mehr löschen mit dem button....

    Nicht

    dutschr schrieb:

    VB.NET-Quellcode

    1. Graphics.FromImage(PictureBox1.Image)
    sondern nutze das Paint-Event! ==> GDI
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @dutschr: Jede PictureBox hat ihr eigenes Paint-Event, Du kannst sie natürlich auch zusammenfassen:

    VB.NET-Quellcode

    1. Private Sub PictureBox1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint, PictureBox2.Paint, PictureBox3.Paint
    2. Dim g = e.Graphics
    3. If sender Is PictureBox1 Then
    4. g.Clear(Color.Black)
    5. ElseIf sender Is PictureBox2 Then
    6. g.Clear(Color.Red)
    7. ElseIf sender Is PictureBox3 Then
    8. g.Clear(Color.Gold)
    9. End If
    10. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!