vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück
Rubrik: TextBox, ListBox & ComboBox15.10.02
Listbox automatisch nach unten scrollen

VB-Version:  VB5, VB6
 Views:  22.788 

Beim Hinzufügen von Einträgen in eine Listbox scrollt diese nichtautomatisch weiter, was manchmal ganz schön nervig sein kann. Dem kann man aberabhelfen. Zum Ausprobieren starten Sie ein neues Projekt, auf das Sie eine Listbox und einen CommandButton setzen. Fügen Sie folgenden Code ein:

' zuerst mal die Listbox mit ein paar Einträgen bestücken
Private Sub Form_Load()
  List1.AddItem "Eintrag 1"
  List1.AddItem "Eintrag 2"
  List1.AddItem "Eintrag 3"
  List1.AddItem "Eintrag 4"
  List1.AddItem "Eintrag 5"
End Sub
 
Private Sub Command1_Click()
' neuen Eintrag hinzufügen
  List1.AddItem "... und noch ein Eintrag"
  With List1
    If .ListCount < 0 Then
      ' mittels ListIndex den letzten Eintrag auswählen
      .ListIndex = .ListCount - 1
 
      ' den letzten Eintrag nicht markiert darstellen
      .Selected(.ListIndex) = False
    End If
  End With
End Sub

Starten Sie Ihr Projekt und klicken Sie auf den CommandButton bis die Listboxdie Scroll-Leiste anzeigt. Jetzt können Sie beobachten, wie mit jedem Klickweitergescrollt wird.

Diese Seite wurde bereits 22.788 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2020 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