프로그래밍 블로그

listHelp.zip

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

Private Sub Form_Load()
Dim TArr() As String
Dim TestStr As String

TestStr = "명인바보=_=;; 명인은 천재다 명인은 고수다, 명인은 초보다"
TArr() = Split(TestStr, "명인")

Dim i As Long
For i = LBound(TArr) To UBound(TArr)
Debug.Print "|" & TArr(i) & "|" '직접실행창에 출력
Next
End Sub

Split 함수를 사용할때 꼭
배열을 설정할때 배열길이를 설정하면 안된다
위 처럼 Tarr() 식으로 선언을 해주어야 한다.

Split와 반대대는 함수는 Join 함수 반대로
특정 기준으로 붙여주는 함수