Hey,
habe ein Panel, in welchem oben links ein Label ist und rechts neben dem Panel eine Vertikale Scrollbar.
Nun habe ich es geschafft, durch die Scrollbar das Label immer runter oder hoch zu bewegen.
Allerdings kommt es zu einem merkwürdigen Bug, bei dem, wenn man die Scrollbar bspw. nach unten bewegt der Text stück für Stück oben abschneidet.
Ich vermute, dass das Label nicht korrekt verschoben wird.
Habe folgenden Code:
Wo liegt der Fehler?
Danke schonmal.
Grüße
habe ein Panel, in welchem oben links ein Label ist und rechts neben dem Panel eine Vertikale Scrollbar.
Nun habe ich es geschafft, durch die Scrollbar das Label immer runter oder hoch zu bewegen.
Allerdings kommt es zu einem merkwürdigen Bug, bei dem, wenn man die Scrollbar bspw. nach unten bewegt der Text stück für Stück oben abschneidet.
Ich vermute, dass das Label nicht korrekt verschoben wird.
Habe folgenden Code:
VB.NET-Quellcode
- Dim chatscroll As Integer
- Private Sub vssChatScroll_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles vssChatScroll.Scroll
- If vssChatScroll.Value > chatscroll Then
- lblChat.Location = New Point(lblChat.Location.X, lblChat.Location.Y - vssChatScroll.Value)
- chatscroll = vssChatScroll.Value
- ElseIf vssChatScroll.Value < chatscroll Then
- lblChat.Location = New Point(lblChat.Location.X, lblChat.Location.Y + vssChatScroll.Value)
- chatscroll = vssChatScroll.Value
- End If
- End Sub
Wo liegt der Fehler?
Danke schonmal.
Grüße