Verständnisproblem Picturebox

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

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

    Das mit dem Haltepunkt hab ich noch nicht gewusst scheint ne sehr coole Sache zu sein.

    VB.NET-Quellcode

    1. Dim Result As New Bitmap(208, 321)
    2. Dim g As Graphics = Graphics.FromImage(Result)
    4. g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    5. Dim MainLayer As Bitmap = Nothing
    6. Select Case SpielerPosition
    7. Case "ANG"
    8. MainLayer = New Bitmap(My.Resources.red)


    Ich hab bei Zeile 8 einen Haltepunkt gesetzt und trotzdem obwohl die
    Spielerposition "ANG" war, hatte dieser erstellte Spieler kein rotes
    Trikot sondern das weiße leere Trikot.


    VB.NET-Quellcode

    1. Dim Result As New Bitmap(208, 321)
    2. Dim g As Graphics = Graphics.FromImage(Result)
    3. g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    4. Dim MainLayer As Bitmap = Nothing
    5. Select Case SpielerPosition
    6. Case "ANG"
    7. MainLayer = New Bitmap(My.Resources.pink)
    8. Case "VER"
    9. MainLayer = New Bitmap(My.Resources.red)
    10. Case "MIT"
    11. MainLayer = New Bitmap(My.Resources.yellow)
    12. Case "TW"
    13. MainLayer = New Bitmap(My.Resources.green)
    14. Case Else
    15. MainLayer = New Bitmap(My.Resources.blue)
    16. End Select
    17. g.DrawImage(MainLayer, 0, 0)
    18. MainLayer = Nothing


    Der Spieler hat immer die Farbe die ich bei Case Else hinterlegt habe. Sprich in diesem Fall habe alle erstellten Spieler ein blaues Trikot.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „MisterRieus“ ()

    Jetzt bin langsam überfragt. Das Einzige was mir noch einfallen würde, wäre ein Trim beim zuweisen der Spielerdaten zu machen, um etwagige Leerzeichen zu entfernen.

    VB.NET-Quellcode

    1. Dim SpielerName As String = lines(0).Trim
    2. Dim SpielerNation As String = lines(1).Trim
    3. Dim SpielerPosition As String = lines(2).Trim
    4. Dim CA As Integer = CInt(lines(3).Trim)
    5. Dim PA As Integer = CInt(lines(4).Trim)


    Ich hänge auch noch mein Projekt an, vielleicht hilfts.
    Dateien

Facebook
Telefonspende