Moin,
Ich Versuche aktuell meinen Code etwas zu Verbessern (Da sich die Form immer aufhängt während dem Laden)
Der Code Erstellt erst eine Picturebox und lädt anschließend das entsprechende Bild.
Das ganze läuft als Thread.
*(bt) ist eine Klasse
Nur leider in diesem Versuch (So habe ich es mit dem Invoke gefunden) wird das ErrorImage Geladen statt das entsprechende Bild.
Ich Freue mich über Feedback, da ich nach 2Std jetzt Komplett Ratlos bin xD
Ich Versuche aktuell meinen Code etwas zu Verbessern (Da sich die Form immer aufhängt während dem Laden)
Der Code Erstellt erst eine Picturebox und lädt anschließend das entsprechende Bild.
Das ganze läuft als Thread.
VB.NET-Quellcode
- PBI = New PictureBox
- BeginInvoke(Sub() PanelI.Controls.Add(PBI))
- ' MsgBox(ModCheck.ToString)
- BeginInvoke(Sub()
- With PBI
- .Name = i & "_Picturebox"
- .Dock = DockStyle.Left
- .BackColor = Color.FromArgb(40, 40, 40)
- .Width = 160
- .BringToFront()
- If Filename.Contains("png") Then
- If File.Exists(ModCheck & i & "\" & Filename) = True Then
- .SizeMode = PictureBoxSizeMode.StretchImage
- .Load(ModCheck & i & "\" & Filename)
- Else
- .SizeMode = PictureBoxSizeMode.CenterImage
- .Image = .ErrorImage
- End If
- ElseIf Filename.Contains("dds") Then
- If File.Exists(ModCheck & i & "\" & Filename) = True Then
- ' MsgBox("DDS, JA")
- .SizeMode = PictureBoxSizeMode.StretchImage
- .Image = New Bitmap(bt)
- Else
- .SizeMode = PictureBoxSizeMode.CenterImage
- .Image = .ErrorImage
- End If
- Else
- .SizeMode = PictureBoxSizeMode.CenterImage
- .Image = .ErrorImage
- End If
- End With
- End Sub)
*(bt) ist eine Klasse
Nur leider in diesem Versuch (So habe ich es mit dem Invoke gefunden) wird das ErrorImage Geladen statt das entsprechende Bild.
Ich Freue mich über Feedback, da ich nach 2Std jetzt Komplett Ratlos bin xD