시각적 기본 예외를 피할 수있는 방법이 있습니까

Question

여기 내 코드입니다. listbox.selected index은 총 카운트가 listitem에 도달 할 때까지 증가합니다.

If (ListBox1.SelectedIndex <> totalcount) Then 

      ListBox1.SelectedIndex += 1 

     End If 

은 당신이 당신의리스트 박스의 selectedIndex 속성을 초기화하기 위해서이 예외를

Answer 1

첫째을 제공합니다.

그 후, 당신은 (상한에 대해 확인하기 위해) 여러 번 작업 더 수행 할 while 구조를 사용해야합니다 :

'Init 
ListBox1.SelectedIndex = 0 
Dim totalcount = ListBox1.Items.Count 

'A loop through each element 
While ListBox1.SelectedIndex <> totalcount - 1 
    ListBox1.SelectedIndex += 1 
End While