수다닷컴

텍스트1에있는걸 리스트로 옮기기에서

추가,저장은 하겠는데 삭제도 할수있어요 근데삭제는 일일이써야해서 불편해요.. 소스가이거거든요Dim i, str
str = InputBox(삭제하실 메세지를 입력해주세요(전체삭제하려면 Temp.txt 파일을 삭제하세요), 삭제)
If str = Then Exit Sub
For i = 0 To List1.ListCount - 1
If str = List1.List(i) Then
List1.RemoveItem (i)

Exit Sub
End If
Next i
MsgBox 올바른메세지를입력하세요, vbInformation + vbOKOnly, 검색 샐패
End Sub

메세지 박스가떠서 삭제할 메세지를 일일이 다써야함;;;...

그냥 리스트 누르고 삭제누르면 삭제되게 하고싶습니다 ㅠㅠ

전체삭제까진 안바래도 이거라두좀..
-----------------------------------

아 .. 저건 해결했어요
List1.RemoveItem List1.ListIndex
이렇게하니까되더라구요

근데 리스트내용클릭안하고

Private Sub Command1_Click()
List1.RemoveItem List1.ListIndex

End Sub

커맨드 클릭하면 오류가뜨면서종료가되요

오류가떳을때
msgbox 삭제할 메세지를 클릭해주세요
라는 메세지박스를 뜨게하고싶습니다 ;어려운건가요?

신청하기