728x90
Dim listChk As Boolean
Dim i As Long
listChk = False
i = 0
For i = 0 To List1.ListCount - 1 '같은게 있는지 확인
If List1.List(i) = Text1.Text Then listChk = True ' 있으면 lisChk 를 True 값으로
Next
If listChk = False Then List1.AddItem text1.text 'listChk값이 False 이면 추가
참 쉽죠?
'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글
| VB Join 함수 사용방법 (0) | 2009.01.05 |
|---|---|
| VB Split 함수 사용방법 (0) | 2009.01.05 |
| VB Beep API 강좌 (0) | 2009.01.05 |
| VB 글에서 특정문자 찾아서 바꾸기 (0) | 2009.01.02 |
| 싸이월드 스크랩 올리기 Returns Ver 1.8 (2) | 2008.12.31 |
| 싸이월드 스크랩 올리기 Returns Ver 1.7 (0) | 2008.12.20 |
| VB 기초 InputBox 알아보기! (0) | 2008.12.18 |
| VB 기초 MsgBox 알아보기! (0) | 2008.12.18 |
| VB 기초 Do~Loop 강좌 (0) | 2008.12.17 |