ListBoxEnsureVisible - Ensure that a ListBox element is visible [ All Languages » VB »  Arrays] Total Hit ( 2264) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

Click here to copy the following block ' 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

Related Article(s)

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )