수다닷컴

무소유제가 텍스트 박스로 하고있다가 오늘 리스트박스를 사용하게 되었는데여

a.txt에는
1
2
3
4
등의 내용이 있어여

그리고 리스트박스에는 a.b.1 ## 1
a.b.1 ## 2 이런식으로 하면서 4까지 되면 이제 a.b.1에서 a.b.2로 바꿔져서 다시 반복하고 싶은데
도대체 검색을 하고 참고를 해도 어떡게 해야돼는지 모르겠어여

우선
소스는

If Len(Dir(App.Path & \a.txt)) ThenOpen App.Path & \a.txt For Input As #1Do While Not EOF(1)Line Input #1, LinetsRichTextBox1.Text= RichTextBox1.Text & a.b.1 ## &Linets& vbCrLfLoopClose #1RichTextBox1.TEXT = Left(RichTextBox1.TEXT, Len(RichTextBox1.TEXT) - 1)End If
여기까진 했는데... 찾아봐도 안나오고 ㅠㅠ도와주세여 ㅠㅠ

신청하기