Angepinnt [Sammelthread] Code-Korrektur

  • VB.NET

Es gibt 123 Antworten in diesem Thema. Der letzte Beitrag () ist von FormFollowsFunction.

    Bin ich so blind? Ich hab extra danach gesucht, als mir das heute Nacht noch aufgefallen war - aber vermutlich war ich da noch zu müde und heute Morgen hab ich mir die erneute Suche geschenkt... :S

    Edit: Wenn das wirklich der Originalcode der Klasse ist, haben wir hier ein kleines Wunder, denn eigentlich kann das so gar nicht funktionieren. listofstreams wird bereits beim Instanzieren der Klasse, danach aber offensichtlich nicht mehr neu erzeugt. Zu dem Zeitpunkt ist aber das XmlDocument, aus dem die Nodelist zusammengestellt werden soll, zwar immerhin schon instanziert, aber definitiv noch leer.
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

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

    TomWi schrieb:

    Brauchst Du dazu den ganzen Projektordner, oder nur die .sln-Datei?
    Mit lauffähiger Solution ist gemeint, dass man per Doppelklick auf die .sln-Datei das Projekt öffnen kann, und anschließend mit F5 starten kann.
    sone Zip erstellst du, indem du VisualStudio schließt, und dann im Windows-Explorer den Pfad "...\SolutionName\Bin" komplett weglöschst, denn darin sind die Executables enthalten.
    Danach mit einem Zipper den Pfad "...\SolutionNam" zippen und anhängen.

    Noch schlankere Zips macht SolutionExplorer, weil das analysiert die .sln-Datei und die Projekt-Dateien, in denen definiert ist, welche Dateien zum Projekt gehören, und zippt nur die.

    Edit: Ah - neuer Versuch - mal gucken
    Jo - fast :(
    Bitte editiere deinen Beitrag, und hau den Bin-Ordner raus, denn da sind Executables drin.
    Diese Forum-Regel ist nicht Schikane, sondern eine von unbekannter Quelle heruntergeladene Exe ist ein massives Sicherheitsrisiko. Wenn man das frei zuließe, wäre es ein Kinderspiel, die wüstesten Malware-Produkte unters Volk zu bringen - bis hin zu 0190-Dialern und Scherze (naja, bei 0190-Dialern glaubich übrigens, dass dem inzwischen technische Riegel vorgeschoben sind - wissen tu ichs nicht).

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

    Wenn ich deinen Code "verbessern" dürfte, würde er bei mir übrigens so aussehen:

    VB.NET-Quellcode

    1. Public Class frmExpandCollapseLineups
    3. Const STARTPATH As String = "Mein Pfad"
    5. Private Enum ActionType
    6. Expand
    7. Collapse
    8. End Enum
    10. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    12. Using ofd As New OpenFileDialog()
    13. With ofd
    14. .Title = "Choose A3D File"
    15. .Filter = "A3S Files (*.a3s)|*.a3s"
    16. .InitialDirectory = STARTPATH
    17. .FileName = "A3S-Files"
    18. If .ShowDialog() = DialogResult.OK Then
    19. Backup(.FileName)
    20. If RadioButton2.Checked Then
    21. ChangeXml(.FileName, ActionType.Expand)
    22. ElseIf RadioButton1.Checked Then
    23. ChangeXml(.FileName, ActionType.Collapse)
    24. End If
    25. End If
    26. End With
    27. End Using
    29. End Sub
    31. Private Sub ChangeXml(ByVal filename As String, ByVal action As ActionType)
    32. Dim a3sXml As New Xml.XmlDocument
    33. a3sXml.Load(filename)
    34. For Each node As XmlNode In a3sXml.SelectNodes("//alternative_set")
    35. Select Case action
    36. Case ActionType.Collapse
    37. node.Attributes.RemoveNamedItem("open")
    38. Case ActionType.Expand
    39. Dim xmlAttrib = a3sXml.CreateAttribute("open")
    40. xmlAttrib.Value = "1"
    41. node.Attributes.Append(xmlAttrib)
    42. End Select
    43. Next
    44. a3sXml.Save(filename)
    45. Application.Exit()
    46. End Sub
    48. Sub Backup(ByVal filename As String)
    49. Dim backupDir = New DirectoryInfo(Path.Combine(Path.GetDirectoryName(filename), "Backup"))
    50. backupDir.Create()
    51. Dim newFilename As String = Path.Combine(backupDir.FullName, Path.GetFileName(filename))
    52. If File.Exists(newFilename) Then
    53. Dim fileNumber As Integer = 0
    54. Dim fileBase = Path.GetFileNameWithoutExtension(filename)
    55. Dim fileExt = Path.GetExtension(filename)
    56. Do
    57. fileNumber += 1
    58. newFilename = Path.Combine(backupDir.FullName, String.Format("{0} ({1}){2}", fileBase, fileNumber, fileExt))
    59. Loop Until Not File.Exists(newFilename)
    60. End If
    61. File.Copy(filename, newFilename)
    62. End Sub
    63. End Class
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

    Arby hat geschrieben, dass ich den Starpath so anlegen soll

    VB.NET-Quellcode

    1. Const startpath As String = "Mein Pfad"
    und nicht so wie ich es gemacht habe

    VB.NET-Quellcode

    1. Dim startpath As String = "Mein Pfad"


    kann mir bitte jemand den Unterschied erklären?
    Macht doch eigentlich keinen Unterschied. Const ist eben eine Konstante, die immer gleich bleibt und Dim macht eine Variable draus, die aber durch die Angabe eines fixen Pfades, doch auch immer gleich bleibt.

    Seh ich das richtig?

    Tom

    @Arby:: Na, sowas nenne ich doch einen schnuckligen Code :thumbsup: :thumbsup: .
    Den guckt man an, und kann ihn durchlesen, und sieht, wies geht, und dass die Methoden genau das tun, wie sie heißen (ausser Button1_Click, aber bei nur einem Button auffm Form kann man das verschmerzen).
    Und jede Methode für sich ist eine autarke Einheit, die alle Info über ihre Parameter bekommt, sodass man bei Fehlverhalten kaum jemals mehr als 10 Zeilen zu untersuchen hat, und pipapo. :thumbsup:

    Die beiden üflüssigen Leerzeilen in Button1_Click() täte ich noch fort, und v.a. bei Backup() sollte der Scope Private gesetzt sein - vb macht Methoden ohne Scope-Angabe idiotischerweise Public.

    Ach - und schließen täte ich ein Form immer nur mit Me.Close - Application.Exit() hat in meinen Augen son bischen was von Programm abschießen im Task-Manager.

    Und Hilfreichigkeit ist unwiderleglich, denn @TomWi: sagt ja selber, dasserdas gut lesen kann :)

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

    sonne75 schrieb:

    Anscheinend aktualisiert sich die List von alleine, nachdem das Dokument geladen wurde. 8o
    Am Anfang ist .Count noch 0 und nach dem LoadFile sind da plötzlich 10 Elemente drin.

    Zauberei. Das widerspricht allem, was ich von diesen Klassen erwarten würde. Naja, hoffentlich erinner ich mich bei Gelegenheit wieder daran, wenn ich selbst mal SelectNodes (falsch ge-)brauche, damit ich nicht ewig nach der Ursache eines möglicherweise fehlerhaften Ergebnisses aufgrund dieses Verhaltens suche.

    TomWi schrieb:

    kann mir bitte jemand den Unterschied erklären?

    Vom Ergebnis her gibt es keinen Unterschied, aber wenn du den Inhalt eh nicht änderst, er also konstant bleibt, ist es deshalb besser, die Variable als Konstante zu deklarieren, weil es besser wartbar ist. Unter "wartbar" verstehe ich z.B. die Möglichkeit, auf einen Blick zu sehen: Das Ding kann sich zur Laufzeit nicht ändern - ich muss also nicht erst den Code daraufhin absuchen, falls irgendwo ein Fehler passiert, und kann mich direkt auf andere Fehlerquellen konzentrieren, falls z.B. mal ein Dateiname oder Pfad falsch zusammengebaut werden sollte. Sowas gilt insbesondere in Projekten, die nicht von einer Person bearbeitet werden, sondern wo auch andere den Code verstehen müssen, aber auch für die Fälle, wo man ein Projekt nach mehreren Monaten oder Jahren wieder anfassen und sich wieder in die damals verzapfte Logik reindenken muss.
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

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

    Arby schrieb:

    Das widerspricht allem, was ich von diesen Klassen erwarten würde.

    Ich denke, es liegt daran, dass die List auf .SelectNodes gelegt wurde, welches seinerseits eine List ist. Und wenn diese List aktualisiert wird (weil .LoadFile gemacht wurde), dann wird auch die erste List mitaktualisiert. Es sind ja sozusagen nur jeweils "Zeiger", also Referenzen, auf die Daten.
    Die erste List ist ein Zeiger auf die zweite List, die zuerst noch auf Nothing zeigt. Dann kommen an die Stelle von Nothing Daten, die zweite List zeigt also auf Daten und die erste List, die auf die zweite zeigt, zeigt auch auf die Daten.

    Hat jemand verstanden, was ich meine? :P

    Übersichtlich ist so ein Code aber überhaupt nicht...

    EDIT: von der anderen Seite, ist .SelectNodes eine Funktion, die eine Liste mit Übereinstimmungen gibt. Wenn es keine gab (weil das Dokument noch Nothing war), wieso werden dann plötzlich Übereinstimmungen gefunden? :?: Na ja, hängt ja vom Code hinter dieser Funktion ab, wenn es nur Referenzen sind, die sich dann erneuern (weil die Daten sich erneuern), dann aktualisieren sich wohl die Daten.
    Wobei es im Objektkatalog steht:
    Rückgabewerte:
    Eine System.Xml.XmlNodeList mit einer Auflistung der Knoten, die mit der XPath-Abfrage übereinstimmen.Das Herstellen einer "Liveverbindung" von XmlNodeList mit dem XML-Dokument sollte nicht erwartet werden.Das heißt, Änderungen, die im XML-Dokument sichtbar sind, werden nicht in der XmlNodeList angezeigt (und umgekehrt).

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

    Für alle Knobler: schlage vor, folgendes Problem zu lösen:
    Bezug: [VB 2010] Item in 2. Combobox löschen, wenn es in der 1. Combox ausgewählt wurde

    Problem schrieb:

    per Combos sollen 6 Eingänge zugewiesen werden. Ist ein Eingang zugewiesen, so soll er in den anneren Combos nicht mehr zur Auswahl stehen. Um damit nicht festzufahren gibt es ein zusätzliches Combo-Item "<keine>", welches immer in allen Combos verfügbar bleibt.

    also gibts 6 Combos, und 7 Items, welche dahinein zu verteilen sind. Und zwar hat jede Combo eine eigene DataSource, und die ist jedesmal, wenn bei irgendeiner der Combos das SelectedIndexChanged auftritt, neu zu berechnen.
    Also am einfachsten leitest du alle SelectedIndexChanged-Events auf eine Methode, und da wird zentral alles neu verteilt.
    Bei der Berechnung brauchst du ein kleines Datenmodell, was du manipulieren kannst, ohne das gleich alle Combos rumhüpfen - das einfachste, mit dem das möglich ist, wäre ein Array von 6 List(Of String) - Objekten.



    Edit: Also hier meine Lösung:

    VB.NET-Quellcode

    1. Public Class frmDependendCombos
    3. Private _SourceSource As String() = "<Kein> Inp1 Inp2 Inp3 Inp4 Inp5 Inp6".Split
    4. Private _Sources(_SourceSource.Length - 2) As List(Of String)
    5. Private _Combos As ComboBox()
    6. Private _Handler As EventHandler = Sub(s, e) AssignSources()
    8. Public Sub New()
    9. InitializeComponent()
    10. _Combos = {ComboBox1, ComboBox2, ComboBox3, ComboBox4, ComboBox5, ComboBox6}
    11. For i = 0 To _Combos.Length - 1
    12. _Sources(i) = New List(Of String)(_SourceSource)
    13. _Combos(i).DataSource = _Sources(i)
    14. Next
    15. EnableEvent(True)
    16. End Sub
    18. Private Sub AssignSources()
    19. EnableEvent(False)
    20. For i = 0 To _Combos.Length - 1
    21. With _Sources(i)
    22. Dim selected = .Item(_Combos(i).SelectedIndex)
    23. .Clear()
    24. .AddRange(_SourceSource)
    25. .Add(selected)
    26. End With
    27. Next
    28. For Each src0 In _Sources
    29. For Each src In _Sources
    30. If src Is src0 Then Continue For
    31. Dim selected = src.Last
    32. If selected <> _SourceSource(0) Then src0.Remove(selected)
    33. Next
    34. Next
    35. For i = 0 To _Combos.Length - 1
    36. Dim src = _Sources(i)
    37. Dim selected = src.Last
    38. src.RemoveAt(src.Count - 1)
    39. _Combos(i).DataSource = Nothing
    40. _Combos(i).DataSource = src
    41. _Combos(i).SelectedIndex = src.IndexOf(selected)
    42. Next
    43. EnableEvent(True)
    44. End Sub
    46. Private Sub EnableEvent(value As Boolean)
    47. If value Then
    48. For Each cmb In _Combos
    49. AddHandler cmb.SelectedIndexChanged, _Handler
    50. Next
    51. Else
    52. For Each cmb In _Combos
    53. RemoveHandler cmb.SelectedIndexChanged, _Handler
    54. Next
    55. End If
    56. End Sub
    58. End Class

    DependendCombos.zip

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Hallo alle zusammen,
    auch ich möchte mal meinen Code posten, weil ich noch nicht so wirklich weiß, ob er sauber geschrieben ist.
    Verbesserungsvorschläge aufjedenfall erwünscht :)

    Mein Programm soll eine BinärUhr sein oder besser gesagt, ein Control, was man sich auf jede Anwendung ziehen kann.

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Imports System.Drawing
    5. Imports System.Windows.Forms
    6. Imports System.Drawing.Drawing2D
    8. Public Class BinaryClock
    10. Inherits Panel
    12. Public Sub New()
    13. MyBase.New()
    14. MyBase.SetStyle(ControlStyles.UserPaint, True)
    15. MyBase.SetStyle(ControlStyles.CacheText, True)
    16. MyBase.SetStyle(ControlStyles.DoubleBuffer, True)
    17. MyBase.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
    18. MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    19. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
    20. With Me
    21. .Name = "BinaryClock"
    22. .Size = New Size(159, 84)
    23. .MinimumSize = New Size(.Width, .Height)
    24. End With
    25. End Sub
    27. Dim styl As New Style
    28. Dim func As New Functions
    30. Dim pblist As New List(Of PictureBox)
    31. Dim binlist As New List(Of String)
    33. Public WithEvents T_BinaryClock As New Timers.Timer
    35. Private Sub BinaryClock_Load(ByVal sender As Object, _
    36. ByVal e As System.EventArgs) Handles Me.HandleCreated
    37. For i As Integer = 0 To 2 Step 1
    38. For j As Integer = 0 To 5 Step 1
    39. Dim pb As New PictureBox
    40. With pb
    41. .Name = i.ToString & "_" & j.ToString
    42. .Size = New Size(24, 24)
    43. .Location = New Point(5 + ((j * 24) + (j * 1)), 5 + ((i * 24) + (i * 1)))
    44. .BackgroundImageLayout = ImageLayout.Center
    45. .BackgroundImage = My.Resources._false
    46. .BackColor = Color.Transparent
    47. End With
    48. pblist.Add(pb)
    49. Next
    50. Next
    51. For Each PB In pblist
    52. Me.Controls.Add(PB)
    53. Next
    54. T_BinaryClock.Interval = 1000
    55. T_BinaryClock.Start()
    56. End Sub
    58. Private Sub BinaryClock_Paint(ByVal sender As Object, _
    59. ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    60. Dim ColorTop As Color = Color.LightGray
    61. Dim ColorBottom As Color = Color.DimGray
    62. Dim r As Rectangle
    63. With MyBase.ClientRectangle
    64. r = New Rectangle(0, 0, .Width - 1, .Height - 1)
    65. End With
    66. Dim radius As Single = 3
    67. styl.DrawFillRoundedRectangle(e.Graphics, r, radius, Color.Black, _
    68. New LinearGradientBrush(r, ColorTop, ColorBottom, _
    69. LinearGradientMode.Vertical))
    70. End Sub
    72. Private Sub BinaryClock_Resize(ByVal sender As Object, _
    73. ByVal e As System.EventArgs) Handles Me.Resize
    74. Invalidate()
    75. End Sub
    77. Private Sub Timer_BinaryClock_Elapsed(ByVal sender As Object, _
    78. ByVal e As EventArgs) Handles T_BinaryClock.Elapsed
    79. With Me
    80. .Name = "BinaryClock"
    81. .Size = New Size(159, 84)
    82. .MinimumSize = New Size(.Width, .Height)
    83. .MaximumSize = New Size(.Width, .Height)
    84. End With
    85. binlist = func.BinarClock(Now.Hour, Now.Minute, Now.Second)
    86. For i As Integer = 0 To binlist.Count - 1
    87. If binlist(i) = "1" Then
    88. pblist(i).BackgroundImage = My.Resources._true
    89. Else
    90. pblist(i).BackgroundImage = My.Resources._false
    91. End If
    92. Next
    93. End Sub
    94. End Class
    96. Public Class Style
    98. Public Sub DrawFillRoundedRectangle(ByVal g As Graphics, _
    99. ByVal r As Rectangle, _
    100. ByVal radius As Single, _
    101. ByVal borderColor As Color, _
    102. ByVal fillBrush As Brush)
    103. Dim path As GraphicsPath = FillRoundedRectanglePath(r, radius)
    104. g.FillPath(fillBrush, path)
    105. g.DrawPath(New Pen(borderColor), path)
    106. path.Dispose()
    107. End Sub
    109. Private Function FillRoundedRectanglePath(ByVal r As RectangleF, _
    110. ByVal radius As Single) As GraphicsPath
    111. Dim path As New GraphicsPath
    112. Dim d As Single = 2 * radius
    113. With path
    114. If radius < 1 Then
    115. .AddRectangle(r)
    116. Else
    117. .AddLine(r.X + radius, r.Y, r.X + r.Width - d, r.Y)
    118. .AddArc(r.X + r.Width - d, r.Y, d, d, 270, 90)
    119. .AddLine(r.X + r.Width, r.Y + radius, r.X + r.Width, r.Y + r.Height - d)
    120. .AddArc(r.X + r.Width - d, r.Y + r.Height - d, d, d, 0, 90)
    121. .AddLine(r.X + r.Width - d, r.Y + r.Height, r.X + radius, r.Y + r.Height)
    122. .AddArc(r.X, r.Y + r.Height - d, d, d, 90, 90)
    123. .AddLine(r.X, r.Y + r.Height - d, r.X, r.Y + radius)
    124. .AddArc(r.X, r.Y, d, d, 180, 90)
    125. End If
    126. .CloseFigure()
    127. End With
    128. Return (path)
    129. End Function
    130. End Class
    132. Public Class Functions
    133. Public Function BinarClock(ByVal hh As Integer, ByVal mm As Integer, _
    134. ByVal ss As Integer) As List(Of String)
    135. Dim binstring As New List(Of String)
    136. If hh < 12 And hh > 0 Then
    137. binstring.Add("1")
    138. Else
    139. binstring.Add("0")
    140. End If
    141. For i As Integer = 0 To 2 Step 1
    142. Dim temp As String = ""
    143. Select Case i
    144. Case 0
    145. temp = Convert.ToString(hh, 2)
    146. For j As Integer = (4 - temp.Length) To 0 Step -1
    147. binstring.Add("0")
    148. Next
    149. For m As Integer = 0 To temp.Length - 1 Step 1
    150. binstring.Add(temp.Substring(m, 1))
    151. Next
    152. Case 1
    153. temp = Convert.ToString(mm, 2)
    154. For k As Integer = (5 - temp.Length) To 0 Step -1
    155. binstring.Add("0")
    156. Next
    157. For n As Integer = 0 To temp.Length - 1 Step 1
    158. binstring.Add(temp.Substring(n, 1))
    159. Next
    160. Case 2
    161. temp = Convert.ToString(ss, 2)
    162. For l As Integer = (5 - temp.Length) To 0 Step -1
    163. binstring.Add("0")
    164. Next
    165. For o As Integer = 0 To temp.Length - 1 Step 1
    166. binstring.Add(temp.Substring(o, 1))
    167. Next
    168. End Select
    169. Next
    170. Return binstring
    171. End Function
    172. End Class
    Keep Calm And Color Your Life

    Habe nur kurz drüber geschaut und was mir aufgefallen ist:

    VB.NET-Quellcode

    1. MyBase.SetStyle(ControlStyles.UserPaint, True)
    2. MyBase.SetStyle(ControlStyles.CacheText, True)
    3. MyBase.SetStyle(ControlStyles.DoubleBuffer, True)
    4. MyBase.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
    5. MyBase.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    6. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)


    sollte zu dem werden:

    VB.NET-Quellcode

    1. SetStyle(ControlStyles.CacheText Or ControlsStyles.DoubleBuffer Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.SupportsTransparentBackColor, True)
    2. UpdateStyles()
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Und mit den ganzen PictureBoxen sieht das auch etwas komisch aus - wofür brauchst du denn die? In den meisten Fällen sollte GDI+ (besser) funktionieren, und das mit nur einem Control.

    VB.NET-Quellcode

    1. SetStyle(ControlStyles.CacheText Or ControlsStyles.DoubleBuffer Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.SupportsTransparentBackColor, True)
    2. UpdateStyles()


    Ok, des kannte ich noch garnicht, aber ist ja schön zu wissen, dass man es auch so zusammenfassen kann ;)
    ich habe des alles nur so ausgeschrieben, damit es für mich übersichtlicher aussieht.

    Ja die Pictureboxen sind für mich die Anzeigeboxen für die Uhrzeit und ich dachte es wäre besser einfach deren
    BackgroundImage zu ändern, als immer wieder das Control neu zu Zeichnen.

    Hier mal ein Bild vom Control.
    Um Jeden Punkt ist halt ne PictureBox.
    Bilder

    • BinaryClock.png

      1,4 kB, 171×95, 3.850 mal angesehen
    Keep Calm And Color Your Life

    Cypress schrieb:

    Ja die Pictureboxen sind für mich die Anzeigeboxen für die Uhrzeit und ich dachte es wäre besser einfach deren
    BackgroundImage zu ändern, als immer wieder das Control neu zu Zeichnen.


    Die Picturebox macht ja auch nichts anderes als das Image neu zuzeichnen. Nur steckt hinter der Picturebox noch mehr als nur ein Rendervorgang, weshalb du nur Performance einbüßt.