Hoi,
Ich habe zur laufzeit in einem Panel mehrere Pictureboxes erstellt.
Nun sollen die boxen größer/kleiner werden, wenn sich die bilder im mittleren bereich / außerhalb des mittleren bereiches des Panels sind.
Nun wollte ich einfach nur die size bzw height/width der boxen änderen.
Problem: die bilder sind jetzt einmal groß und einmal klein vorhanden, wenn ich scrole.
Was ist falsch?
Ich habe zur laufzeit in einem Panel mehrere Pictureboxes erstellt.
Nun sollen die boxen größer/kleiner werden, wenn sich die bilder im mittleren bereich / außerhalb des mittleren bereiches des Panels sind.
Nun wollte ich einfach nur die size bzw height/width der boxen änderen.
Problem: die bilder sind jetzt einmal groß und einmal klein vorhanden, wenn ich scrole.
Was ist falsch?
Quellcode
- Private Sub Pnl_Filme_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles Pnl_Filme.Scroll
- Dim i As Long
- Dim LblLeft As Long
- Dim LblHgtmin As Long, LblWdtmin As Long, LblHgtmax As Long, LblWdtmax As Long
- LblHgtmin = 200 : LblWdtmin = 150
- LblHgtmax = 400 : LblWdtmax = 300
- For i = 1 To DGV_Filme.Rows.Count
- LblLeft = Me.Pnl_Filme.Controls("Lbl_Bild_" & i).Location.X
- If LblLeft > 400 And LblLeft < 1200 Then
- Me.Pnl_Filme.Controls("Lbl_Bild_" & i).Height = LblHgtmax
- Me.Pnl_Filme.Controls("Lbl_Bild_" & i).Width = LblWdtmax
- Else
- Me.Pnl_Filme.Controls("Lbl_Bild_" & i).Height = LblHgtmin
- Me.Pnl_Filme.Controls("Lbl_Bild_" & i).Width = LblWdtmin
- End If
- Next
- End Sub