Wie wandle ich mit VB.NET 2003 einen String in eine Grafik um, um dessen Laufweite mit MeasureString zu messen?

Question

Wie wandle ich mit VB.NET 2003 einen String in eine Grafik um, um dessen Laufweite mit MeasureString zu messen?

Antwort

Verwandte Fragen

Wie erhalte ich in VB.NET 2003 eine Rückmeldung, wenn das Verschieben einer Datei in den Papierkorb abgebrochen wird?

Wie kann ich in VB.NET 2003 den Papierkorb verwenden?

Warum funktioniert 'TextBox1.ContextMenu = Nothing' in VB.NET 2003 nicht?

Wie deaktiviere ich in VB.NET 2003 das ContextMenu einer TextBox, um die rechte Maustaste anderweitig zu nutzen?

Wie prüfe ich in VB.NET 2003, ob ein String sowohl Buchstaben als auch Ziffern enthält?

Wie löscht man in VB.NET 2003 eine Spalte aus einem ListView?

Kann das ListView in VB.NET 2003 einzelne Spalten sortieren?

Wie kann ich in VB.NET 2003 beim Scrollen von Panel1 (AutoScroll = True) ein Objekt in Panel2 parallel bewegen?

Warum funktioniert 'Panel1.Scroll' in VB.NET 2003 nicht?

Wie kann ich in VB.NET 2003 feststellen, ob aktuell ein Scrollvorgang stattfindet?

Accepted Answer

Um in VB.NET 2003 einen String in eine Grafik umzuwandeln und dessen Laufweite (Breite) mit `MeasureString` zu messen, gehst du wie folgt vor: 1. **Importiere die benötigten Namespaces:** ```vb Imports System.Drawing ``` 2. **Erstelle ein Graphics-Objekt:** Da du kein echtes Steuerelement zum Zeichnen brauchst, kannst du ein temporäres Bitmap-Objekt verwenden, um ein Graphics-Objekt zu erhalten. 3. **Verwende MeasureString:** Mit dem Graphics-Objekt und einer gewünschten Schriftart kannst du die Breite des Strings messen. **Beispielcode:** ```vb Imports System.Drawing Dim text As String = "Dein Text hier" Dim font As New Font("Arial", 12) ' Temporäres Bitmap erstellen Dim bmp As New Bitmap(1, 1) Dim g As Graphics = Graphics.FromImage(bmp) ' String messen Dim sizeF As SizeF = g.MeasureString(text, font) ' Ergebnis ausgeben MessageBox.Show("Breite: " & sizeF.Width.ToString() & " Pixel") ' Ressourcen freigeben g.Dispose() bmp.Dispose() font.Dispose() ``` **Hinweise:** - `MeasureString` gibt ein `SizeF`-Objekt zurück, das die Breite (`Width`) und Höhe (`Height`) des gerenderten Textes enthält. - Die Maßeinheit ist Pixel. - Die Schriftart und -größe beeinflussen das Ergebnis. **Weitere Infos:** - [Microsoft-Dokumentation zu Graphics.MeasureString](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.graphics.measurestring) So kannst du die Laufweite eines Strings in VB.NET 2003 bestimmen.

Accepted Answer

In VB.NET 2003 gibt es keine eingebaute, direkte Möglichkeit, den Abbruch (z.B. durch den Benutzer) beim Verschieben einer Datei in den Papierkorb zu erkennen, da die Standardmethoden wie `File.D... [mehr]

Accepted Answer

In VB.NET 2003 gibt es keine eingebaute, direkte Möglichkeit, den Abbruch (z.B. durch den Benutzer) beim Verschieben einer Datei in den Papierkorb zu erkennen, da die Standardmethoden wie `File.Delete` die Datei sofort löschen und keine Interaktion mit dem Papierkorb bieten. Um eine Datei in den Papierkorb zu verschieben und Rückmeldungen über einen Abbruch zu erhalten, musst du die Windows-API-Funktion `SHFileOperation` verwenden. Diese Funktion kann Rückgabewerte liefern, die anzeigen, ob die Operation erfolgreich war, abgebrochen wurde oder ein Fehler aufgetreten ist. Hier ein Beispiel, wie du das in VB.NET 2003 umsetzen kannst: ```vbnet Imports System.Runtime.InteropServices Public Class Form1 <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> Private Structure SHFILEOPSTRUCT Public hwnd As IntPtr Public wFunc As Integer Public pFrom As String Public pTo As String Public fFlags As Short Public fAnyOperationsAborted As Boolean Public hNameMappings As IntPtr Public lpszProgressTitle As String End Structure <DllImport("shell32.dll", CharSet:=CharSet.Auto)> Private Shared Function SHFileOperation(ByRef lpFileOp As SHFILEOPSTRUCT) As Integer End Function Private Const FO_DELETE As Integer = &H3 Private Const FOF_ALLOWUNDO As Short = &H40 Private Const FOF_NOCONFIRMATION As Short = &H10 Public Function MoveFileToRecycleBin(ByVal filePath As String) As Boolean Dim shf As New SHFILEOPSTRUCT shf.wFunc = FO_DELETE shf.pFrom = filePath & vbNullChar & vbNullChar shf.fFlags = FOF_ALLOWUNDO Dim result As Integer = SHFileOperation(shf) If shf.fAnyOperationsAborted Then ' Abbruch durch den Benutzer Return False ElseIf result <> 0 Then ' Fehler beim Verschieben Throw New System.ComponentModel.Win32Exception(result) Else ' Erfolgreich verschoben Return True End If End Function End Class ``` **Wichtige Hinweise:** - Die Funktion gibt `False` zurück, wenn der Benutzer den Vorgang abbricht (`fAnyOperationsAborted = True`). - Bei Fehlern wird eine Exception ausgelöst. - Bei Erfolg gibt die Funktion `True` zurück. **Weitere Informationen:** - [Microsoft Doku zu SHFileOperation](https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shfileoperationa) Mit dieser Methode kannst du also erkennen, ob der Benutzer den Vorgang abgebrochen hat.

Accepted Answer

In VB.NET 2003 gibt es keine eingebaute .NET-Klassenbibliothek, um Dateien direkt in den Windows-Papierkorb zu verschieben. Du kannst jedoch die Windows-API-Funktion **SHFileOperation** aus der Shell3... [mehr]

Accepted Answer

In VB.NET 2003 gibt es keine eingebaute .NET-Klassenbibliothek, um Dateien direkt in den Windows-Papierkorb zu verschieben. Du kannst jedoch die Windows-API-Funktion **SHFileOperation** aus der Shell32.dll verwenden, um Dateien oder Ordner in den Papierkorb zu verschieben. Hier ein Beispiel, wie du das machen kannst: 1. **Deklariere die benötigten Strukturen und Funktionen:** ```vb.net Imports System.Runtime.InteropServices Public Class Papierkorb <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> Private Structure SHFILEOPSTRUCT Public hwnd As IntPtr Public wFunc As Integer <MarshalAs(UnmanagedType.LPTStr)> Public pFrom As String <MarshalAs(UnmanagedType.LPTStr)> Public pTo As String Public fFlags As Short Public fAnyOperationsAborted As Boolean Public hNameMappings As IntPtr <MarshalAs(UnmanagedType.LPTStr)> Public lpszProgressTitle As String End Structure <DllImport("shell32.dll", CharSet:=CharSet.Auto)> Private Shared Function SHFileOperation(ByRef lpFileOp As SHFILEOPSTRUCT) As Integer End Function Private Const FO_DELETE As Integer = &H3 Private Const FOF_ALLOWUNDO As Short = &H40 Private Const FOF_NOCONFIRMATION As Short = &H10 ' Methode zum Verschieben in den Papierkorb Public Shared Function InPapierkorbVerschieben(ByVal dateipfad As String) As Boolean Dim shf As New SHFILEOPSTRUCT() shf.wFunc = FO_DELETE shf.pFrom = dateipfad & vbNullChar & vbNullChar shf.fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION Dim result As Integer = SHFileOperation(shf) Return (result = 0) End Function End Class ``` 2. **Verwendung:** ```vb.net Dim erfolg As Boolean = Papierkorb.InPapierkorbVerschieben("C:\Pfad\zur\Datei.txt") If erfolg Then MessageBox.Show("Datei wurde in den Papierkorb verschoben.") Else MessageBox.Show("Fehler beim Verschieben in den Papierkorb.") End If ``` **Hinweise:** - Der Pfad muss vollständig sein. - Für mehrere Dateien kannst du die Pfade mit einem Null-Zeichen (`vbNullChar`) trennen. - Diese Methode funktioniert unter Windows-Betriebssystemen. **Weitere Informationen:** - [Microsoft Doku zu SHFileOperation](https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shfileoperationa) Mit dieser Methode kannst du in VB.NET 2003 Dateien und Ordner in den Papierkorb verschieben.

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es die Eigenschaft `ContextMenu` für Steuerelemente wie `TextBox`. Allerdings akzeptiert diese Eigenschaft **kein `Nothing`** (bzw. `null`), um das K... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es die Eigenschaft `ContextMenu` für Steuerelemente wie `TextBox`. Allerdings akzeptiert diese Eigenschaft **kein `Nothing`** (bzw. `null`), um das Kontextmenü zu deaktivieren. Stattdessen erwartet sie ein Objekt vom Typ `ContextMenu`. Wenn du versuchst, `TextBox1.ContextMenu = Nothing` zu setzen, passiert entweder nichts oder es wird ein Fehler ausgelöst, weil das Steuerelement weiterhin das Standard-Kontextmenü anzeigt. **Lösung:** Um das Kontextmenü zu deaktivieren, musst du eine **leere Instanz** eines `ContextMenu` zuweisen: ```vb TextBox1.ContextMenu = New ContextMenu() ``` Dadurch wird das Standard-Kontextmenü durch ein leeres ersetzt, und beim Rechtsklick erscheint kein Menü mehr. **Hinweis:** Ab .NET 2.0 gibt es die Eigenschaft `ContextMenuStrip` und das Verhalten ist etwas anders. In .NET 1.1 (VB.NET 2003) funktioniert aber nur der oben beschriebene Weg. **Weitere Infos:** - [Microsoft Docs: TextBox.ContextMenu Property (.NET 1.1)](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.textbox.contextmenu?view=netframework-1.1)

Accepted Answer

Um in VB.NET 2003 das Standard-Contextmenü einer TextBox zu deaktivieren und die rechte Maustaste für eigene Zwecke zu verwenden, kannst du das ContextMenu der TextBox auf `Nothing` setzen u... [mehr]

Accepted Answer

Um in VB.NET 2003 das Standard-Contextmenü einer TextBox zu deaktivieren und die rechte Maustaste für eigene Zwecke zu verwenden, kannst du das ContextMenu der TextBox auf `Nothing` setzen und das MouseDown- oder MouseUp-Ereignis abfangen. Beispiel: ```vb.net ' Im Konstruktor oder Form_Load: TextBox1.ContextMenu = Nothing ' Beispiel für die Verwendung der rechten Maustaste: Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown If e.Button = MouseButtons.Right Then ' Eigene Aktion hier MessageBox.Show("Rechte Maustaste wurde gedrückt!") End If End Sub ``` Dadurch erscheint kein Standard-Kontextmenü mehr, und du kannst die rechte Maustaste für eigene Funktionen nutzen.

Accepted Answer

Um in VB.NET 2003 zu prüfen, ob ein String neben Buchstaben auch Ziffern enthält, kannst du eine Schleife verwenden, die durch jeden Buchstaben des Strings geht und prüft, ob mindestens... [mehr]

Accepted Answer

Um in VB.NET 2003 zu prüfen, ob ein String neben Buchstaben auch Ziffern enthält, kannst du eine Schleife verwenden, die durch jeden Buchstaben des Strings geht und prüft, ob mindestens ein Buchstabe und mindestens eine Ziffer enthalten sind. Reguläre Ausdrücke sind in .NET 1.1 (VB.NET 2003) zwar verfügbar, aber hier ein Beispiel ohne Regex: ```vb Dim input As String = "abc123" Dim hatBuchstabe As Boolean = False Dim hatZiffer As Boolean = False For Each c As Char In input If Char.IsLetter(c) Then hatBuchstabe = True ElseIf Char.IsDigit(c) Then hatZiffer = True End If If hatBuchstabe And hatZiffer Then Exit For End If Next If hatBuchstabe And hatZiffer Then MessageBox.Show("Der String enthält Buchstaben und Ziffern.") Else MessageBox.Show("Der String enthält nicht beides.") End If ``` **Erklärung:** - `Char.IsLetter(c)` prüft, ob das Zeichen ein Buchstabe ist. - `Char.IsDigit(c)` prüft, ob das Zeichen eine Ziffer ist. - Sobald beides gefunden wurde, wird die Schleife abgebrochen. Alternativ kannst du auch mit regulären Ausdrücken arbeiten, falls du das bevorzugst: ```vb Dim input As String = "abc123" If System.Text.RegularExpressions.Regex.IsMatch(input, "[A-Za-z]") AndAlso _ System.Text.RegularExpressions.Regex.IsMatch(input, "\d") Then MessageBox.Show("Der String enthält Buchstaben und Ziffern.") Else MessageBox.Show("Der String enthält nicht beides.") End If ``` Beide Methoden funktionieren in VB.NET 2003.

Accepted Answer

In VB.NET 2003 kannst du eine Spalte (Column) aus einem ListView entfernen, indem du sie aus der `Columns`-Sammlung des ListView löschst. Das geht zum Beispiel so: ```vb.net ' Angenommen, d... [mehr]

Accepted Answer

In VB.NET 2003 kannst du eine Spalte (Column) aus einem ListView entfernen, indem du sie aus der `Columns`-Sammlung des ListView löschst. Das geht zum Beispiel so: ```vb.net ' Angenommen, du möchtest die erste Spalte (Index 0) löschen: ListView1.Columns.RemoveAt(0) ``` Oder, wenn du die Spalte über ihren Namen entfernen möchtest: ```vb.net ' Angenommen, die Spalte heißt "Name": ListView1.Columns.RemoveByKey("Name") ``` **Wichtige Hinweise:** - Die Indizes beginnen bei 0. - Nach dem Entfernen der Spalte werden die zugehörigen Daten in den ListViewItems nicht mehr angezeigt. - In VB.NET 2003 gibt es noch keine `RemoveByKey`-Methode, da die `Name`-Eigenschaft erst später eingeführt wurde. In diesem Fall musst du mit dem Index arbeiten. **Zusammengefasst:** Um eine Spalte zu löschen, verwende `ListView1.Columns.RemoveAt(IndexDerSpalte)`.

Accepted Answer

Das ListView-Steuerelement in VB.NET 2003 unterstützt von Haus aus keine automatische Spaltensortierung, wie man es etwa von DataGridView kennt. Allerdings kannst du das Sortieren einzelner Spalt... [mehr]

Accepted Answer

Das ListView-Steuerelement in VB.NET 2003 unterstützt von Haus aus keine automatische Spaltensortierung, wie man es etwa von DataGridView kennt. Allerdings kannst du das Sortieren einzelner Spalten selbst implementieren. Dazu musst du: 1. Die Eigenschaft **ListView.View** auf **Details** setzen. 2. Die Eigenschaft **ListView.ColumnClick**-Event abfangen. 3. Einen eigenen **IComparer** schreiben, der die ListViewItems anhand der gewünschten Spalte sortiert. 4. Die **ListView.ListViewItemSorter**-Eigenschaft auf eine Instanz deines Comparers setzen. Ein Beispiel findest du in der offiziellen Microsoft-Dokumentation: [https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listview.listviewitemsorter](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.listview.listviewitemsorter) Zusammengefasst: Ja, du kannst einzelne Spalten sortieren, aber du musst die Sortierlogik selbst programmieren. Automatisch geht es in VB.NET 2003 nicht.

Accepted Answer

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)... [mehr]

Accepted Answer

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.

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es die Eigenschaft oder das Ereignis `Panel1.Scroll` so, wie man es aus späteren .NET-Versionen kennt, noch nicht. Das Panel-Steuerelement (`System.W... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es die Eigenschaft oder das Ereignis `Panel1.Scroll` so, wie man es aus späteren .NET-Versionen kennt, noch nicht. Das Panel-Steuerelement (`System.Windows.Forms.Panel`) unterstützt zwar das automatische Scrollen über die Eigenschaften `AutoScroll`, `AutoScrollMinSize` und die Methode `ScrollControlIntoView`, aber ein direktes `Scroll`-Ereignis oder eine `Scroll`-Eigenschaft ist in dieser Version nicht vorhanden. **Hintergrund:** - Die Eigenschaft `Scroll` (z.B. als Ereignis) wurde erst in späteren .NET-Versionen eingeführt. - In .NET 1.1 kannst du Scrollen nur über die genannten Eigenschaften und Methoden steuern, aber nicht direkt auf ein Scroll-Ereignis reagieren. **Lösung:** - Um auf das Scrollen zu reagieren, kannst du das Panel von `Panel` auf `UserControl` oder ein anderes Steuerelement umstellen, das das Scroll-Ereignis unterstützt. - Alternativ kannst du das Windows-Message-System abfangen, indem du das Panel ableitest und die `WndProc`-Methode überschreibst, um auf die Scroll-Messages (`WM_HSCROLL`, `WM_VSCROLL`) zu reagieren. **Beispiel für eine eigene Panel-Klasse mit Scroll-Ereignis:** ```vb.net Public Class MyPanel Inherits Panel Public Event PanelScrolled As EventHandler Protected Overrides Sub WndProc(ByRef m As Message) 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 MyBase.WndProc(m) End Sub End Class ``` Du kannst dann das Ereignis `PanelScrolled` verwenden. **Fazit:** `Panel1.Scroll` funktioniert in VB.NET 2003 nicht, weil das Panel-Steuerelement in dieser Version kein solches Ereignis oder keine solche Eigenschaft besitzt. Du musst entweder auf eine spätere .NET-Version umsteigen oder das Verhalten selbst implementieren. Weitere Infos findest du in der [Microsoft-Dokumentation zu Panel (englisch)](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.panel?view=netframework-1.1).

Accepted Answer

In VB.NET 2003 gibt es keine direkte, eingebaute Eigenschaft oder ein Ereignis, das explizit anzeigt, ob ein Scrollvorgang gerade stattfindet. Du kannst jedoch das Scrollen in Steuerelementen wie `Pan... [mehr]

Accepted Answer

In VB.NET 2003 gibt es keine direkte, eingebaute Eigenschaft oder ein Ereignis, das explizit anzeigt, ob ein Scrollvorgang gerade stattfindet. Du kannst jedoch das Scrollen in Steuerelementen wie `Panel`, `ListBox`, `TextBox` oder `DataGrid` über das Abfangen von Nachrichten oder Ereignissen erkennen. **Beispiel für ein Control mit Scrollbars (z.B. Panel):** Du kannst das Scrollen erkennen, indem du das `Scroll`-Ereignis abfängst. Allerdings gibt es kein "IsScrolling"-Flag, sondern du musst selbst verwalten, ob gerade gescrollt wird. Typischerweise setzt man beim Scroll-Ereignis eine Variable und nutzt einen Timer, um festzustellen, wann das Scrollen aufgehört hat. **Beispiel:** ```vb ' Deklariere eine Variable auf Form-Ebene Private isScrolling As Boolean = False Private WithEvents scrollTimer As New Timer() ' Im Konstruktor oder Form_Load: scrollTimer.Interval = 200 ' 200 ms, anpassen je nach Bedarf ' Scroll-Ereignis des Panels abfangen Private Sub Panel1_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles Panel1.Scroll isScrolling = True scrollTimer.Stop() scrollTimer.Start() End Sub ' Timer-Tick-Ereignis Private Sub scrollTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles scrollTimer.Tick isScrolling = False scrollTimer.Stop() End Sub ``` **Erklärung:** - Immer wenn gescrollt wird, setzt das Scroll-Ereignis `isScrolling` auf `True` und startet den Timer neu. - Wenn für die eingestellte Zeit kein weiteres Scroll-Ereignis kommt, läuft der Timer ab und setzt `isScrolling` auf `False`. - So kannst du mit der Variable `isScrolling` abfragen, ob gerade (vermutlich) gescrollt wird. **Hinweis:** Das funktioniert für Controls, die ein `Scroll`-Ereignis besitzen. Bei anderen Controls (z.B. ListView, DataGrid) kann es nötig sein, Windows-Nachrichten (`WM_VSCROLL`, `WM_HSCROLL`) abzufangen, was in VB.NET 2003 über Überschreiben von `WndProc` oder mit API-Interoperabilität möglich ist. **Weitere Infos:** - [Microsoft Docs: Control.Scroll Event](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.control.scroll) - [Microsoft Docs: Timer Class](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.timer) Falls du ein bestimmtes Steuerelement meinst, bitte konkretisieren, da die Umsetzung je nach Control unterschiedlich sein kann.