Wie erstelle ich mit VB.NET 2003 eine Zeichnung aus einem mehrdimensionalen Array und lege mit "rfg" die Reihenfolge fest?

Ja. Das geht in VB.NET 2003, indem du: 1. die Daten in einem Array hältst, 2. nach `rfg` sortierst, 3. die Bilder in genau dieser Reihenfolge zeichnest. Ein mehrdimensionales Array ist dafür aber unpraktisch. Besser ist ein Array von Strukturen oder Klassen. ## Prinzip Jeder Eintrag enthält z. B.: - `ID` - `Bildpfad` - `X` - `Y` - `Breite` - `Höhe` - `RFG` = Zeichenreihenfolge Dann sortierst du alle Elemente nach `RFG` aufsteigend: - kleine `RFG` zuerst = hinten - große `RFG` zuletzt = vorne ## Beispiel für VB.NET 2003 ```vbnet Public Structure ZeichenObjekt Public ID As Integer Public Bildpfad As String Public X As Integer Public Y As Integer Public Breite As Integer Public Hoehe As Integer Public RFG As Integer End Structure ``` ### Array anlegen ```vbnet Dim objekte() As ZeichenObjekt ReDim objekte(2) objekte(0).ID = 1 objekte(0).Bildpfad = "C:\bild1.bmp" objekte(0).X = 10 objekte(0).Y = 10 objekte(0).Breite = 100 objekte(0).Hoehe = 100 objekte(0).RFG = 2 objekte(1).ID = 2 objekte(1).Bildpfad = "C:\bild2.bmp" objekte(1).X = 30 objekte(1).Y = 30 objekte(1).Breite = 100 objekte(1).Hoehe = 100 objekte(1).RFG = 1 objekte(2).ID = 3 objekte(2).Bildpfad = "C:\bild3.bmp" objekte(2).X = 50 objekte(2).Y = 50 objekte(2).Breite = 100 objekte(2).Hoehe = 100 objekte(2).RFG = 3 ``` ## Nach `RFG` sortieren In VB.NET 2003 notfalls einfach per BubbleSort: ```vbnet Dim i As Integer Dim j As Integer Dim temp As ZeichenObjekt For i = 0 To objekte.Length - 2 For j = i + 1 To objekte.Length - 1 If objekte(i).RFG > objekte(j).RFG Then temp = objekte(i) objekte(i) = objekte(j) objekte(j) = temp End If Next Next ``` ## Zeichnen Zum Beispiel im `Paint`-Ereignis: ```vbnet Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Dim i As Integer Dim img As Image For i = 0 To objekte.Length - 1 img = Image.FromFile(objekte(i).Bildpfad) e.Graphics.DrawImage(img, objekte(i).X, objekte(i).Y, objekte(i).Breite, objekte(i).Hoehe) img.Dispose() Next End Sub ``` ## Wichtig `Image.FromFile` im Paint-Ereignis ist langsam. Besser: Bilder vorher laden und im Speicher halten. ## Falls du unbedingt ein mehrdimensionales Array willst Dann etwa so: ```vbnet ' 0=ID, 1=Bildpfad, 2=X, 3=Y, 4=Breite, 5=Hoehe, 6=RFG Dim daten(2, 6) As Object ``` Das funktioniert, ist aber schlecht wartbar, weil `daten(i, 6)` viel unklarer ist als `objekte(i).RFG`. ## Fazit Ja, die Reihenfolge steuerst du einfach über `RFG`, indem du vor dem Zeichnen danach sortierst. Am besten mit einer `Structure` statt mit einem mehrdimensionalen Array.