VB 강좌 ListBox 알아보기

listHelp.zip

 

이번 강좌는 ListBox 를 배워보는 시간입니다.
첨부 파일 해뒀으니, 사용해보시고, 익혀보세요!
저도 초보니깐 ^^;; 틀린게 있더라도 잘 이해해주시면서 봐주세요.

즐거운 비주얼베이직 되시길 +_+

Option Explicit

Private Sub Command1_Click() '리스트  값 추가
List1.AddItem "+_+ 추가됬다" & List1.ListCount
'List1에 "+_+ 추가됬다" 라는 값을 추가 _
 List1.ListCount 은 list1의 총 값의 갯수를 출력하는 메소드다. _
 여기서 넣어준 이유는 값을 다 다르게 넣어주기 위해서다.
End Sub

Private Sub Command2_Click() '리스트 값 삭제
On Error Resume Next '에러무시
If List1.ListIndex >= 0 Then 'List1의 listindex값이 0 이상일경우에만 삭제
List1.RemoveItem List1.ListIndex
End If
'List1.RemoveItem List1.ListIndex 만 코딩할경우 _
 아무것도 선택이 되지 않았을때 에러가 난다. _
 그러므로, if문을 사용해서나, on error resume next 를 써서 에러를 무시한다.
End Sub

Private Sub Command3_Click() '리스트 값 출력
MsgBox List1.Text
'List1의 값을 출력하는 내가 알고 있는 방식은 2가지이다. _
 그중 한가지 방법은 List1.text 이고, _
 다른 방식은 List1.list(list1.listindex) 이다. _
 편한걸 쓰기 바란다.
End Sub

Private Sub Command4_Click() '리스트 값 전체삭제
List1.Clear 'list1의 list값을 전부다 삭제
End Sub

Private Sub Command5_Click() '리스트 값 선택
On Error Resume Next '에러무시
If List1.ListCount > 0 Then 'List1의 총 갯수가 1이상일경우에만 선택
List1.ListIndex = 0 ' List1의 인덱스 0 선택 즉 첫번째
End If 'listindex값은 0부터 시작함 // ListCount 는 1부터 시작함
End Sub

 

제작 : 명인's
블로그주소 : http://clanguage.tistory.com/