Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6,VBS
Expertise: Intermediate
Dec 16, 2000

ListBoxEnsureVisible - Ensure that a ListBox element is visible

' ensure that a listbox item is visible
' if the second argument is omitted, the index of current item is used
'
' NOTE: uses the ListBoxVisibleItems function

Sub ListBoxEnsureVisible(lst As ListBox, Optional ByVal itemIndex As Long = -1)
    Dim visibleCount As Long
    
    ' provide a default for the 2nd argument
    If itemIndex < 0 Then itemIndex = lst.ListIndex
    
    ' get the number of visible items
    visibleCount = ListBoxVisibleItems(lst)
    
    If itemIndex < lst.TopIndex Then
        ' scroll up
        lst.TopIndex = itemIndex
    ElseIf itemIndex >= lst.TopIndex + visibleCount Then
        ' scroll down
        lst.TopIndex = itemIndex - visibleCount + 1
    End If
    
End Sub
Paul Wolff
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date