3 Fragen zu Autoscroll

In VB.NET 2003 (Windows Forms) wird das automatische Scrollen eines Steuerelements mit `AutoScroll = True` standardmäßig durch die System-Scrollbars gesteuert. Die Schrittweite, mit der beim Klicken auf die Pfeile oder beim Drücken der Pfeiltasten gescrollt wird, ist durch die Eigenschaft `ScrollSmallChange` (bzw. `SmallChange` bei Scrollbars) festgelegt. Allerdings bietet das `Panel`-Steuerelement in .NET 1.1 (also auch in VB.NET 2003) **keine öffentliche Eigenschaft**, um die Scroll-Schrittweite direkt zu ändern. **Möglichkeiten:** 1. **Eigene Scroll-Logik implementieren:** Du kannst das Scrollen programmatisch steuern, indem du die `AutoScrollPosition`-Eigenschaft des Panels selbst setzt. Beispiel: ```vb ' Angenommen, Panel1 ist dein Scroll-Panel Dim scrollStep As Integer = 20 ' gewünschte Schrittweite in Pixeln ' Nach unten scrollen Panel1.AutoScrollPosition = New Point(Panel1.AutoScrollPosition.X, -Panel1.AutoScrollPosition.Y + scrollStep) ' Nach oben scrollen Panel1.AutoScrollPosition = New Point(Panel1.AutoScrollPosition.X, -Panel1.AutoScrollPosition.Y - scrollStep) ``` Beachte das Minuszeichen: Die Y-Koordinate von `AutoScrollPosition` ist immer negativ, wenn gescrollt wurde. 2. **Eigene Scrollbars verwenden:** Wenn du volle Kontrolle über die Schrittweite möchtest, kannst du eigene `VScrollBar`- oder `HScrollBar`-Steuerelemente verwenden und deren `SmallChange`-Eigenschaft setzen. Dann musst du das Scrollen aber komplett selbst verwalten. 3. **System-Scrollbars (Panel) anpassen:** In .NET 1.1 gibt es **keine** Möglichkeit, die Schrittweite der eingebauten Scrollbars eines Panels direkt zu ändern. Erst ab .NET 2.0 gibt es die Möglichkeit, über das `Scroll`-Event und die `ScrollEventArgs` darauf Einfluss zu nehmen. **Fazit:** In VB.NET 2003 kannst du die Schrittweite beim app-gesteuerten Scrollen nur beeinflussen, indem du die `AutoScrollPosition`-Eigenschaft selbst setzt. Die Schrittweite der eingebauten Scrollbars (bei Benutzereingaben) ist nicht direkt änderbar. **Weitere Infos:** - [Microsoft Docs: Panel.AutoScrollPosition](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.scrollablecontrol.autoscrollposition) - [Microsoft Docs: VScrollBar.SmallChange](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.scrollbar.smallchange) Falls du ein Beispiel für eine bestimmte Scrollrichtung oder ein bestimmtes Szenario brauchst, bitte die Frage entsprechend präzisieren.

In VB.NET 2003 (also .NET Framework 1.1) ist das Verhalten des `Panel`-Steuerelements mit aktiviertem `AutoScroll` so ausgelegt, dass beim Scrollen immer der gesamte Inhalt des Panels sichtbar gemacht werden kann – also alles, was sich innerhalb der `Controls`-Sammlung und außerhalb des sichtbaren Bereichs befindet. Eine direkte Möglichkeit, das Standard-Scrolling so zu manipulieren, dass **nur ein Teil** des Inhalts gescrollt werden kann und der Rest dauerhaft verborgen bleibt, gibt es nicht. Das Panel-Scrolling bezieht sich immer auf den gesamten Inhalt. **Mögliche Workarounds:** 1. **Zwei Panels verwenden:** Teile den Inhalt auf zwei Panels auf – einen sichtbaren, scrollbaren Bereich und einen verborgenen Bereich (z.B. ein Panel außerhalb des sichtbaren Bereichs oder mit `Visible = False`). Nur der sichtbare Teil wird gescrollt. 2. **Custom Panel ableiten:** Erstelle eine eigene Panel-Klasse, die das Scrollverhalten überschreibt. In .NET 1.1 ist das allerdings recht aufwändig, da viele Scroll-Mechanismen intern ablaufen. Du könntest aber z.B. im `OnPaint`-Event oder durch gezieltes Verschieben von Controls das gewünschte Verhalten nachbilden. 3. **Controls dynamisch ein-/ausblenden:** Blende Controls, die nicht gescrollt werden sollen, einfach aus (`Visible = False`), solange sie nicht sichtbar sein sollen. So werden sie vom AutoScroll-Mechanismus ignoriert. **Beispiel für Variante 3:** ```vb ' Angenommen, Panel1 enthält mehrere Controls For Each ctrl As Control In Panel1.Controls If ctrl.Top > 200 Then ' z.B. alles unterhalb von 200px soll verborgen bleiben ctrl.Visible = False Else ctrl.Visible = True End If Next ``` **Fazit:** Das Standard-Panel in VB.NET 2003 bietet keine eingebaute Möglichkeit, das Scrollen auf einen Teilbereich zu beschränken. Du musst mit Workarounds wie Aufteilen, Ein-/Ausblenden oder einer eigenen Panel-Implementierung arbeiten. Weitere Infos zum Panel-Control: [Microsoft Docs: Panel.AutoScroll Property](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.panel.autoscroll?view=netframework-1.1)

Um in VB.NET 2003 ein Objekt in `Panel2` parallel zur Scrollbewegung von `Panel1` zu bewegen, kannst du das `Scroll`-Ereignis von `Panel1` verwenden. Da `Panel` in .NET 1.1 (also auch in VB.NET 2003) kein eigenes `Scroll`-Event besitzt, musst du das Ereignis des übergeordneten Controls oder das `WM_VSCROLL`/`WM_HSCROLL`-Windows-Message abfangen. Hier ein Beispiel, wie du das mit einem eigenen Panel (abgeleitet von Panel) und dem Überschreiben von `WndProc` machen kannst: ```vb ' CustomPanel.vb Public Class CustomPanel Inherits Panel Public Event PanelScrolled As EventHandler Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) MyBase.WndProc(m) Const WM_VSCROLL As Integer = &H115 Const WM_HSCROLL As Integer = &H114 If m.Msg = WM_VSCROLL OrElse m.Msg = WM_HSCROLL Then RaiseEvent PanelScrolled(Me, EventArgs.Empty) End If End Sub End Class ``` Jetzt kannst du dieses CustomPanel in deinem Formular verwenden: ```vb ' Im Formular Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' panel1 durch CustomPanel ersetzen AddHandler CustomPanel1.PanelScrolled, AddressOf Panel1_Scrolled End Sub Private Sub Panel1_Scrolled(ByVal sender As Object, ByVal e As EventArgs) ' Beispiel: Ein Objekt (z.B. PictureBox) in Panel2 verschieben ' Angenommen, du möchtest die Scrollposition von Panel1 auf Panel2 übertragen Panel2.AutoScrollPosition = CustomPanel1.AutoScrollPosition ' Oder ein Objekt verschieben: ' PictureBox1.Location = New Point(PictureBox1.Location.X, -CustomPanel1.AutoScrollPosition.Y) End Sub ``` **Hinweise:** - Ersetze `CustomPanel1` durch den Namen deines CustomPanel-Objekts. - Passe die Logik im Eventhandler an, je nachdem, wie das Objekt in `Panel2` bewegt werden soll. - In .NET 1.1 ist die Unterstützung für Scroll-Events eingeschränkt, daher ist dieser Weg über das Überschreiben von `WndProc` notwendig. **Weitere Infos:** - [Microsoft Docs: Panel.AutoScroll Eigenschaft](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.scrollablecontrol.autoscroll?view=netframework-1.1) - [Beispiel für Scroll-Event in .NET 1.1 (StackOverflow)](https://stackoverflow.com/questions/1467857/panel-scroll-event-in-net-1-1) So kannst du die Bewegung eines Objekts in `Panel2` synchron zum Scrollen von `Panel1` realisieren.