Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

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



Application Security Testing: An Integral Part of DevOps

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.



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