vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück
Rubrik: Controls · ListView   |   VB-Versionen: VB5, VB621.09.04
ListView autom. scrollen

Wie man innerhalb des ListView-Controls autom. an eine bestimmte Position scrollt, das zeigen wir Ihnen in diesem Tipp.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  15.912 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Beim Hinzufügen eines neuen Eintrags in das ListView-Control soll oftmals autom. ans Ende der Liste gescrollt werden. Wie das geht, zeigt nachfolgender "Einzeiler":

ListView1.ListItems(ListView1.ListItems.Count).EnsureVisible

Das Ganze lässt sich - in eine kleine Prozedur verpackt - auch universell für beliebige Positionen umsetzen:

' ListView autom. scrollen
Public Sub ListView_Scroll(oLVW As Object, _
  Optional ByVal nPos As Long = 0, _
  Optional bAutoSelect As Boolean = False)
 
  With oLVW
    If nPos < 1 Or nPos > .ListItems.Count Then 
      ' Ans Ende scrollen
      nPos = .ListItems.Count
    End If
 
    ' zu bestimmter Position scrollen
    .ListItems(nPos).EnsureVisible
 
    ' ggf. Eintrag selektieren
    If bAutoSelect Then
      Set .SelectedItem = .ListItems(nPos)
    End If
  End With
End Sub

Im ersten Parameter muss das ListView-Control übergeben werden. Der zweite Parameter legt die Position fest, bis zu der gescrollt werden soll. Wird hier ein Wert < 1 angegeben, wird autom. ans Ende der Liste gescrollt. Der letzte Parameter gibt optional an, ob der Eintrag autom. selektiert werden soll.

Aufrufbeispiele:

' Ans Ende scrollen, ohne autom. Selektion
ListView_Scroll ListView1, 0
' An den Anfang scrollen, mit autom. Selektion
ListView1_Scroll ListView1, 1, True
' Zur Position 10 scrollen, ohne autom. Selektion
ListView1_Scroll ListView1, 5

Dieser Tipp wurde bereits 15.912 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel