Verständnisproblem Picturebox

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von HenryV.

    Verständnisproblem Picturebox

    Guten Morgen Community,
    verstehe nicht warum ich 2 Button benötige um die Picturebox2 mit der Picturebox1 und den draufliegenden Labels zu füllen.
    Wenn ich den Code von Button2 mit in den Code von Button1 eintrage passiert nicht das was passiert wenn ich das über 2 Buttons löse.
    Selbst wenn ich ein Sub mit dem Inhalt von Button2 erstelle und den dann per Call aufrufe funktioniert die Befüllung der Picturebox2 nicht richtig.
    Nur wenn ich 2 Buttons habe. Das muss doch irgendwie machbar sein oder?
    Möchte das nämlich dann mit ner Do Until Schleife 100x ausführen und nicht 1x Button1 klicken dann 1x Button2 und dann wieder Button1 usw.
    Für Hilfe bin ich sehr dankbar.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim lines() As String = IO.File.ReadAllLines("Spielerdatenbank.txt")
    4. SpielerPosition.Text = lines(2)
    5. SpielerName.Text = lines(0)
    6. SpielerNation.Text = lines(1)
    7. CA.Text = lines(3)
    8. PA.Text = lines(4)
    9. If CA.Text = 1 And PA.Text = 1 Then
    10. PictureBox3.Image = My.Resources._1von1
    11. ElseIf CA.Text = 2 And PA.Text = 2 Then
    12. PictureBox3.Image = My.Resources._2von2
    13. ElseIf CA.Text = 3 And PA.Text = 3 Then
    14. PictureBox3.Image = My.Resources._3von3
    15. ElseIf CA.Text = 4 And PA.Text = 4 Then
    16. PictureBox3.Image = My.Resources._4von4
    17. ElseIf CA.Text = 5 And PA.Text = 5 Then
    18. PictureBox3.Image = My.Resources._5von5
    19. ElseIf CA.Text = 6 And PA.Text = 6 Then
    20. PictureBox3.Image = My.Resources._6von6
    21. End If
    22. SpielerPosition.TextAlign = ContentAlignment.MiddleCenter
    23. SpielerNation.TextAlign = ContentAlignment.MiddleCenter
    24. SpielerName.TextAlign = ContentAlignment.MiddleCenter
    25. End Sub
    27. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    28. Dim s As Size = PictureBox1.Size
    29. Dim memoryImage = New Bitmap(s.Width, s.Height)
    30. Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
    31. Dim ScreenPos As Point = Me.PictureBox1.PointToScreen(New Point(0, 0))
    32. memoryGraphics.CopyFromScreen(ScreenPos.X, ScreenPos.Y, 0, 0, s)
    33. PictureBox2.Image = memoryImage
    34. If IO.Directory.Exists(Application.StartupPath & "\Images\") = False Then
    35. IO.Directory.CreateDirectory(Application.StartupPath & "\Images\")
    36. End If
    37. Dim filename As String = Application.StartupPath & "\Images\" & Anzahl.Text & ".jpeg"
    38. PictureBox2.Image.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg)
    39. Anzahl.Text = Anzahl.Text + 1
    41. Dim lines As System.Collections.Generic.List(Of String) _
    42. = System.Text.RegularExpressions.Regex.Split _
    43. (My.Computer.FileSystem.ReadAllText("Spielerdatenbank.txt"), vbCrLf).ToList
    44. lines.RemoveAt(0)
    45. lines.RemoveAt(0)
    46. lines.RemoveAt(0)
    47. lines.RemoveAt(0)
    48. lines.RemoveAt(0)
    49. My.Computer.FileSystem.WriteAllText("Spielerdatenbank.txt", String.Join(vbCrLf, lines.ToArray), False)
    50. End Sub

    @MisterRieus Wie ist die Ausgangslage?
    Was genau soll passieren?
    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!

    Es gibt eine Text Datei mitvon mir eingegebenen Werten.
    Name
    Nation
    Position
    CA
    PA
    Und das ganze 206x mit anderen Werten
    Nun gibt es eine Form mit einer Picturebox die mit folgendem befüllt wird:


    Und anhand der Werte in der Text Datei soll dann am Ende ein Bild gespeichert werden das so aussieht:
    Da die ersten 5 Werte der Text Datei so aussehen:
    Thiemann
    GER
    MIT
    2
    2


    Das klappt ja auch alles soweit nur halt muss ich damit ein Bild gespeichert wird halt immer für einen Spieler manuell 2 Buttons drücken.
    Hätte das gerne das ich 1x einen Button drücke und dann automatisch 206 Bilder erstellt werden mit den Werten aus der Text Datei.

    @MisterRieus Vielleicht mal ein paar grundsätzliche Sachen:
    Du vergleichst Strings mit numerischen Werten. => Option Strict On :!:
    Visual Studio - Empfohlene Einstellungen
    Vielleicht ist es besser, Du machst Dir ein UserControl mit dem leeren Bild als BackgroundImage und Deinen Labels.
    Gib den Labels den Text "" und .BackColor = Color.Transparent.
    Dann machst Du Dir in dem UserControl ne Prozedur Clear() und SetText(...), wo das passieren soll, was halt passieren soll.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class UserControl1
    2. Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Label1.BackColor = Color.Transparent
    4. End Sub
    5. Public Sub Clear()
    6. Label1.Text = ""
    7. End Sub
    8. Public Sub SetText(txt As String)
    9. Label1.Text = txt
    10. End Sub
    11. End Class
    und feddich.
    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!

    Option Script On vergesse ich jedes Mal, Danke!
    Ja das mit dem Backgroundimage habe ich davor probiert und klappte das mit dem Bild speichern nicht.
    Vom Prinzip funktioniert ja alles wie ich es haben möchte nur halt das es nicht klappt wenn ich beide Buttoncodes in einen Button schreibe.
    Wenn das nicht klappt mit dem einen Button dann werde ich halt 412x den Button klicken.

    MisterRieus schrieb:

    vergesse ich jedes Mal
    Richte Dein Studio so ein, dass das niemal mehr passiert!
    ====
    Ich glaube, wir reden aneinander vorbei.
    Poste mal Dein Projekt bereinigt, ohne .vs, obj und bin-Verzeichnisse als ZIP, dazu eine abgespeckte Spielerdatenbank.
    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!

    Was enthält jetzt PicBox1, PicBox2 und PicBox3? Fehlt da vielleicht einfach nur ein PictureBox3.Refresh, bevor der Copy-Kram angewendet wird?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @MisterRieus Nutze bitte die Dateianhangs-Funktionalität des Forums:
    Erweiterte Antwort => Dateianhänge => Hochladen.
    Wenn Dein Hoster Deine Bilder löscht, ist dieser Thread quasi leer.
    Editiere Deinen Post entsprechend.
    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!

    Mh anscheinend ja ^^
    Vom Prinzip will ich nur wissen warum das funktioiert

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim lines() As String = IO.File.ReadAllLines("Spielerdatenbank.txt")
    4. SpielerPosition.Text = lines(2)
    5. SpielerName.Text = lines(0)
    6. SpielerNation.Text = lines(1)
    7. CA.Text = lines(3)
    8. PA.Text = lines(4)
    9. If CA.Text = 1 And PA.Text = 1 Then
    10. PictureBox3.Image = My.Resources._1von1
    11. ElseIf CA.Text = 2 And PA.Text = 2 Then
    12. PictureBox3.Image = My.Resources._2von2
    13. ElseIf CA.Text = 3 And PA.Text = 3 Then
    14. PictureBox3.Image = My.Resources._3von3
    15. ElseIf CA.Text = 4 And PA.Text = 4 Then
    16. PictureBox3.Image = My.Resources._4von4
    17. ElseIf CA.Text = 5 And PA.Text = 5 Then
    18. PictureBox3.Image = My.Resources._5von5
    19. ElseIf CA.Text = 6 And PA.Text = 6 Then
    20. PictureBox3.Image = My.Resources._6von6
    21. End If
    22. SpielerPosition.TextAlign = ContentAlignment.MiddleCenter
    23. SpielerNation.TextAlign = ContentAlignment.MiddleCenter
    24. SpielerName.TextAlign = ContentAlignment.MiddleCenter
    25. End Sub
    27. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    28. Dim s As Size = PictureBox1.Size
    29. Dim memoryImage = New Bitmap(s.Width, s.Height)
    30. Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
    31. Dim ScreenPos As Point = Me.PictureBox1.PointToScreen(New Point(0, 0))
    32. memoryGraphics.CopyFromScreen(ScreenPos.X, ScreenPos.Y, 0, 0, s)
    33. PictureBox2.Image = memoryImage
    34. If IO.Directory.Exists(Application.StartupPath & "\Images\") = False Then
    35. IO.Directory.CreateDirectory(Application.StartupPath & "\Images\")
    36. End If
    37. Dim filename As String = Application.StartupPath & "\Images\" & Anzahl.Text & ".jpeg"
    38. PictureBox2.Image.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg)
    39. Anzahl.Text = Anzahl.Text + 1
    41. Dim lines As System.Collections.Generic.List(Of String) _
    42. = System.Text.RegularExpressions.Regex.Split _
    43. (My.Computer.FileSystem.ReadAllText("Spielerdatenbank.txt"), vbCrLf).ToList
    44. lines.RemoveAt(0)
    45. lines.RemoveAt(0)
    46. lines.RemoveAt(0)
    47. lines.RemoveAt(0)
    48. lines.RemoveAt(0)
    49. My.Computer.FileSystem.WriteAllText("Spielerdatenbank.txt", String.Join(vbCrLf, lines.ToArray), False)
    50. End Sub

    und das hier nicht

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim lines() As String = IO.File.ReadAllLines("Spielerdatenbank.txt")
    4. SpielerPosition.Text = lines(2)
    5. SpielerName.Text = lines(0)
    6. SpielerNation.Text = lines(1)
    7. CA.Text = lines(3)
    8. PA.Text = lines(4)
    9. If CA.Text = 1 And PA.Text = 1 Then
    10. PictureBox3.Image = My.Resources._1von1
    11. ElseIf CA.Text = 2 And PA.Text = 2 Then
    12. PictureBox3.Image = My.Resources._2von2
    13. ElseIf CA.Text = 3 And PA.Text = 3 Then
    14. PictureBox3.Image = My.Resources._3von3
    15. ElseIf CA.Text = 4 And PA.Text = 4 Then
    16. PictureBox3.Image = My.Resources._4von4
    17. ElseIf CA.Text = 5 And PA.Text = 5 Then
    18. PictureBox3.Image = My.Resources._5von5
    19. ElseIf CA.Text = 6 And PA.Text = 6 Then
    20. PictureBox3.Image = My.Resources._6von6
    21. End If
    22. SpielerPosition.TextAlign = ContentAlignment.MiddleCenter
    23. SpielerNation.TextAlign = ContentAlignment.MiddleCenter
    24. SpielerName.TextAlign = ContentAlignment.MiddleCenter
    26. Dim s As Size = PictureBox1.Size
    27. Dim memoryImage = New Bitmap(s.Width, s.Height)
    28. Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
    29. Dim ScreenPos As Point = Me.PictureBox1.PointToScreen(New Point(0, 0))
    30. memoryGraphics.CopyFromScreen(ScreenPos.X, ScreenPos.Y, 0, 0, s)
    31. PictureBox2.Image = memoryImage
    32. If IO.Directory.Exists(Application.StartupPath & "\Images\") = False Then
    33. IO.Directory.CreateDirectory(Application.StartupPath & "\Images\")
    34. End If
    35. Dim filename As String = Application.StartupPath & "\Images\" & Anzahl.Text & ".jpeg"
    36. PictureBox2.Image.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg)
    37. Anzahl.Text = Anzahl.Text + 1
    39. Dim lines As System.Collections.Generic.List(Of String) _
    40. = System.Text.RegularExpressions.Regex.Split _
    41. (My.Computer.FileSystem.ReadAllText("Spielerdatenbank.txt"), vbCrLf).ToList
    42. lines.RemoveAt(0)
    43. lines.RemoveAt(0)
    44. lines.RemoveAt(0)
    45. lines.RemoveAt(0)
    46. lines.RemoveAt(0)
    47. My.Computer.FileSystem.WriteAllText("Spielerdatenbank.txt", String.Join(vbCrLf, lines.ToArray), False)
    48. End Sub


    Komplett gleicher Code, aber das gespeicherte Bild von dem 2. hier ist ohne Namen ohne Position ohne alles.
    Mehr will ich gar nicht wissen, weil es ja soweit funktioniert ^^

    Aber wenn es helfen sollte werde ich morgen mal das Projekt hochladen.

    @MisterRieus Wichtig sind hier auch die Designer-Angaben, die sind hier nicht gepostet.
    Deswegen wäre das Projekt als solches schon interessant.
    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!

    VaporiZed schrieb:

    Was enthält jetzt PicBox1, PicBox2 und PicBox3? Fehlt da vielleicht einfach nur ein PictureBox3.Refresh, bevor der Copy-Kram angewendet wird?


    @VaporiZed Picturebox3 sind die Sterne oben auf der Karte.
    Picturebox1 ist das Bild ohne Namen , Position usw.
    Picturebox2 ist dann das Bild von 1 mit den Namen, Position, Nation und die Sterne oben.

    @MisterRieus Und jetzt beschreib mal Dein Anliegen verbal ohne Verwendung von .NET-Termini.
    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!

    @MisterRieus
    Das Problem liegt IMHO daran, dass die Form bei einen Button nach dem Befüllen und vor dem ScreenShot nicht aktualisiert wird. Ein Me.Refresh könnte da vielleicht Abhilfe schaffen.

    Ich würde aber das ganze mit den multiplen Pictureboxen und ScreenShot verwerfen, und direkt auf das Bild schreiben (mit g.DrawImage und g.DrawString).
    Damit könnte man sich sogar die visuelle Ausgabe sparen.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim DBPath As String = IO.Path.Combine(Application.StartupPath, "Spielerdatenbank.txt")
    4. Dim ImagesPath As String = IO.Path.Combine(Application.StartupPath, "Images")
    6. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    8. 'Daten einlesen
    9. Dim lines As List(Of String) = IO.File.ReadAllLines(DBPath).ToList
    10. If lines.Count < 5 Then End
    12. Dim SpielerName As String = lines(0)
    13. Dim SpielerNation As String = lines(1)
    14. Dim SpielerPosition As String = lines(2)
    15. Dim CA As Integer = CInt(lines(3))
    16. Dim PA As Integer = CInt(lines(4))
    18. 'tbSpielerPosition.Text = SpielerPosition
    19. 'tbSpielerNation.Text = SpielerNation
    20. 'tbSpielerName.Text = SpielerName
    21. 'tbCA.Text = CA.ToString
    22. 'tbPA.Text = PA.ToString
    24. 'Bild erstellen
    25. 'Dim s As Size = PictureBox1.Size
    26. 'Dim Result As New Bitmap(s.Width, s.Height)
    27. Dim Result As New Bitmap(208, 321)
    28. Dim g As Graphics = Graphics.FromImage(Result)
    29. g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    30. g.DrawImage(My.Resources.shirt_empty, 0, 0)
    32. 'Sterne auf Bild kopieren
    33. Dim Layer As Bitmap = Nothing
    34. If CA = 1 AndAlso PA = 1 Then
    35. Layer = New Bitmap(My.Resources._1von1)
    36. ElseIf CA = 2 AndAlso PA = 2 Then
    37. Layer = New Bitmap(My.Resources._2von2)
    38. ElseIf CA = 3 AndAlso PA = 3 Then
    39. Layer = New Bitmap(My.Resources._3von3)
    40. ElseIf CA = 4 AndAlso PA = 4 Then
    41. Layer = New Bitmap(My.Resources._4von4)
    42. ElseIf CA = 5 AndAlso PA = 5 Then
    43. Layer = New Bitmap(My.Resources._5von5)
    44. ElseIf CA = 6 AndAlso PA = 6 Then
    45. Layer = New Bitmap(My.Resources._6von6)
    46. End If
    48. g.DrawImage(Layer, 16, 16)
    49. Layer = Nothing
    51. 'Schriften definieren
    52. Dim myFontName As Font = New Font("Arial", 20, FontStyle.Bold, GraphicsUnit.Pixel)
    53. Dim myPosition As Font = New Font("Arial", 24, FontStyle.Bold, GraphicsUnit.Pixel)
    54. Dim myNation As Font = New Font("Arial", 10, FontStyle.Bold, GraphicsUnit.Pixel)
    56. Dim stringFormat As New StringFormat()
    57. stringFormat.Alignment = StringAlignment.Center
    58. stringFormat.LineAlignment = StringAlignment.Center
    60. 'Positionen der Texte definiefern
    61. Dim rectName As New Rectangle(16, 271, 175, 34)
    62. Dim rectPosition As New Rectangle(57, 159, 96, 24)
    63. Dim rectNation As New Rectangle(57, 226, 96, 11)
    65. 'Texte auf Bild schreiben
    66. g.DrawString(SpielerName, myFontName, Brushes.Black, rectName, stringFormat)
    67. g.DrawString(SpielerPosition, myPosition, Brushes.Black, rectPosition, stringFormat)
    68. g.DrawString(SpielerNation, myNation, Brushes.Black, rectNation, stringFormat)
    70. 'PictureBox1.Image = Result
    72. 'Bild speichern
    73. If Not IO.Directory.Exists(ImagesPath) Then
    74. IO.Directory.CreateDirectory(ImagesPath)
    75. End If
    77. Dim zaehler As Integer = 1
    78. Dim saveFileName As String = IO.Path.Combine(ImagesPath, CStr(zaehler) & ".jpeg")
    79. Dim filename2 As String = saveFileName
    80. Do Until Not IO.File.Exists(filename2)
    81. zaehler += 1
    82. filename2 = IO.Path.Combine(ImagesPath, CStr(zaehler) & ".jpeg")
    83. Loop
    84. saveFileName = filename2
    86. 'PictureBox1.Image.Save(saveFileName, Drawing.Imaging.ImageFormat.Jpeg)
    87. Result.Save(saveFileName, Drawing.Imaging.ImageFormat.Jpeg)
    89. 'Daten aus Datenbank entfernen
    90. lines.RemoveAt(0)
    91. lines.RemoveAt(0)
    92. lines.RemoveAt(0)
    93. lines.RemoveAt(0)
    94. lines.RemoveAt(0)
    96. IO.File.WriteAllLines(DBPath, lines)
    98. End Sub
    100. End Class

    @HenryV Das ist perfekt! Wirklich genial! Danke dir!
    Und ich hab es soweit auch verstanden! :)
    Nur eins versteh ich nicht und zwar wollte ich eine If Abfrage starten um zu checken welche Position der Spieler hat und je nach Position hat das Trikot eine andere Farbe,
    aber sobald ich eine If Abfrage mache, werden die gespeicherten Bilder immer schwarz. Woran liegt das?

    @MisterRieus

    RodFromGermany schrieb:

    Nutze bitte die Dateianhangs-Funktionalität des Forums:
    Erweiterte Antwort => Dateianhänge => Hochladen.
    Wenn Dein Hoster Deine Bilder löscht, ist dieser Thread quasi leer.
    Editiere gefälligst Deine Posts entsprechend.
    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!

    @MisterRieus
    Ich habe einen kurzen Test gemacht.

    VB.NET-Quellcode

    1. g.DrawImage(My.Resources.shirt_empty, 0, 0)

    ersetzt mit

    VB.NET-Quellcode

    1. 'Trikotfarbe bestimmen
    2. Dim MainLayer As Bitmap = Nothing
    3. Select Case SpielerPosition
    4. Case "ANG"
    5. MainLayer = New Bitmap(My.Resources.shirt_ANG)
    6. Case "VER"
    7. MainLayer = New Bitmap(My.Resources.shirt_VER)
    8. Case "MIT"
    9. MainLayer = New Bitmap(My.Resources.shirt_MIT)
    10. Case "TOR"
    11. MainLayer = New Bitmap(My.Resources.shirt_TOR)
    12. Case Else
    13. MainLayer = New Bitmap(My.Resources.shirt_empty)
    14. End Select
    15. g.DrawImage(MainLayer, 0, 0)
    16. MainLayer = Nothing

    Und es hat eigentlich funktioniert.
    Vielleicht liegt es an deiner Abfrage oder an den Bildern. Aber ohne deinen Code und die Bilder zu kennen, wird es schwierig eine treffende Aussage zu machen.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim DBPath As String = IO.Path.Combine(Application.StartupPath, "Spielerdatenbank.txt")
    3. Dim ImagesPath As String = IO.Path.Combine(Application.StartupPath, "Images")
    4. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    5. 'Daten einlesen
    6. Dim lines As List(Of String) = IO.File.ReadAllLines(DBPath).ToList
    7. If lines.Count < 5 Then End
    8. Dim SpielerName As String = lines(0)
    9. Dim SpielerNation As String = lines(1)
    10. Dim SpielerPosition As String = lines(2)
    11. Label1.text = lines(2)
    12. Dim CA As Integer = CInt(lines(3))
    13. Dim PA As Integer = CInt(lines(4))
    14. 'tbSpielerPosition.Text = SpielerPosition
    15. 'tbSpielerNation.Text = SpielerNation
    16. 'tbSpielerName.Text = SpielerName
    17. 'tbCA.Text = CA.ToString
    18. 'tbPA.Text = PA.ToString
    19. 'Bild erstellen
    20. 'Dim s As Size = PictureBox1.Size
    21. 'Dim Result As New Bitmap(s.Width, s.Height)
    22. Dim Result As New Bitmap(208, 321)
    23. Dim g As Graphics = Graphics.FromImage(Result)
    24. g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    25. If label1.text = "ABW" then
    26. g.DrawImage(My.Resources.shirt_red, 0, 0)
    27. elseIf label1.text = "MIT" then
    28. g.DrawImage(My.Resources.shirt_blue, 0, 0)
    29. elseIf label1.text = "ANG" then
    30. g.DrawImage(My.Resources.shirt_green, 0, 0)
    31. elseIf label1.text = "TW" then
    32. g.DrawImage(My.Resources.shirt_black, 0, 0)
    33. end if


    Bei deiner Select/Case Variante fehlt doch die Zuordnung zu der eingelesenen Position oder nicht?

    Oh hab ich auf dem Handy gar nicht wahrgenommen. Sry

    VB.NET-Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    2. 'Daten einlesen
    4. Dim lines As List(Of String) = IO.File.ReadAllLines(DBPath).ToList
    5. If lines.Count < 5 Then End
    6. Dim SpielerName As String = lines(0)
    7. Dim SpielerNation As String = lines(1)
    8. Dim SpielerPosition As String = lines(2)
    9. Dim CA As Integer = CInt(lines(3))
    10. Dim PA As Integer = CInt(lines(4))
    11. 'tbSpielerPosition.Text = SpielerPosition
    12. 'tbSpielerNation.Text = SpielerNation
    13. 'tbSpielerName.Text = SpielerName
    14. 'tbCA.Text = CA.ToString
    15. 'tbPA.Text = PA.ToString
    16. 'Bild erstellen
    17. 'Dim s As Size = PictureBox1.Size
    18. 'Dim Result As New Bitmap(s.Width, s.Height)
    19. Dim Result As New Bitmap(208, 321)
    20. Dim g As Graphics = Graphics.FromImage(Result)
    22. g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    23. Dim MainLayer As Bitmap = Nothing
    24. Select Case SpielerPosition
    25. Case "ANG"
    26. MainLayer = New Bitmap(My.Resources.red)
    27. Case "VER"
    28. MainLayer = New Bitmap(My.Resources.blue)
    29. Case "MIT"
    30. MainLayer = New Bitmap(My.Resources.green)
    31. Case "TOR"
    32. MainLayer = New Bitmap(My.Resources.yellow)
    33. Case Else
    34. MainLayer = New Bitmap(My.Resources.DoubleManagerSpieler)
    35. End Select
    36. g.DrawImage(MainLayer, 0, 0)
    37. MainLayer = Nothing
    39. 'Sterne auf Bild kopieren
    40. Dim Layer As Bitmap = Nothing
    41. If CA = 1 AndAlso PA = 1 Then
    42. Layer = New Bitmap(My.Resources._1von1)
    43. ElseIf CA = 2 AndAlso PA = 2 Then
    44. Layer = New Bitmap(My.Resources._2von2)
    45. ElseIf CA = 3 AndAlso PA = 3 Then
    46. Layer = New Bitmap(My.Resources._3von3)
    47. ElseIf CA = 4 AndAlso PA = 4 Then
    48. Layer = New Bitmap(My.Resources._4von4)
    49. ElseIf CA = 5 AndAlso PA = 5 Then
    50. Layer = New Bitmap(My.Resources._5von5)
    51. ElseIf CA = 6 AndAlso PA = 6 Then
    52. Layer = New Bitmap(My.Resources._6von6)
    53. End If
    54. g.DrawImage(Layer, 16, 16)
    55. Layer = Nothing
    56. 'Schriften definieren
    57. Dim myFontName As Font = New Font("Arial", 20, FontStyle.Bold, GraphicsUnit.Pixel)
    58. Dim myPosition As Font = New Font("Arial", 24, FontStyle.Bold, GraphicsUnit.Pixel)
    59. Dim myNation As Font = New Font("Arial", 10, FontStyle.Bold, GraphicsUnit.Pixel)
    60. Dim stringFormat As New StringFormat()
    61. stringFormat.Alignment = StringAlignment.Center
    62. stringFormat.LineAlignment = StringAlignment.Center
    63. 'Positionen der Texte definiefern
    64. Dim rectName As New Rectangle(16, 271, 175, 34)
    65. Dim rectPosition As New Rectangle(57, 159, 96, 24)
    66. Dim rectNation As New Rectangle(57, 226, 96, 11)
    67. 'Texte auf Bild schreiben
    68. g.DrawString(SpielerName, myFontName, Brushes.Black, rectName, stringFormat)
    69. g.DrawString(SpielerPosition, myPosition, Brushes.Black, rectPosition, stringFormat)
    70. g.DrawString(SpielerNation, myNation, Brushes.Black, rectNation, stringFormat)
    71. 'PictureBox1.Image = Result
    72. 'Bild speichern
    73. If Not IO.Directory.Exists(ImagesPath) Then
    74. IO.Directory.CreateDirectory(ImagesPath)
    75. End If
    76. Dim zaehler As Integer = 1
    77. Dim saveFileName As String = IO.Path.Combine(ImagesPath, CStr(zaehler) & ".jpeg")
    78. Dim filename2 As String = saveFileName
    79. Do Until Not IO.File.Exists(filename2)
    80. zaehler += 1
    81. filename2 = IO.Path.Combine(ImagesPath, CStr(zaehler) & ".jpeg")
    82. Loop
    83. saveFileName = filename2
    84. 'PictureBox1.Image.Save(saveFileName, Drawing.Imaging.ImageFormat.Jpeg)
    85. Result.Save(saveFileName, Drawing.Imaging.ImageFormat.Jpeg)
    86. 'Daten aus Datenbank entfernen
    88. lines.RemoveAt(0)
    89. lines.RemoveAt(0)
    90. lines.RemoveAt(0)
    91. lines.RemoveAt(0)
    92. lines.RemoveAt(0)
    93. IO.File.WriteAllLines(DBPath, lines)
    95. End Sub


    Mit deinem/diesem Code sind alle erstellten Bilder mit dem leeren Trikot und nicht je nach Position in der zugewiesenen Farbe.

    Da ich nicht wusste wie die Abkürzungen der Zuordnung sind, habe ich "ANG" "VER" "MIT" und "TOR" angenommen.
    Diese musst du aber nach deinen anpassen. Sehr wahrscheinlich zu "ANG" "ABW" "MIT" und "TW".
    Andernfalls setze einmal einen Haltepunkt und schau dir den Inhalt der Variable SpielerPosition an. Debuggen, Fehler finden und beseitigen

Facebook
Telefonspende