Question

VB的LISTBOX控件值怎么读取

之前问过一个 但是很多人可能没看懂。所以此次我把写的明白点！

以上有个文本框，还有个浏览按钮，就是选择TXT文档的路径，选择了以后点添加会把路径加到LIST1里面。然后点清空按钮，会把这个TXT文本里的内容给清空掉。

前面的那几个按钮功能都已经实现好了，就是清空这个我不知道怎么写，指定路径的话我会写。但是这个文档路径是自定义添加的，添加多少行是个未知数字。

Answer 1

'这应该是你想要的. 一个 CommonDialog, 一个ListBox, 一个耐悔TextBox 和昌丛正两个CommandButtonPrivate Sub Command1_Click()
CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNPathMustExist
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <郑基> "" Then
Dim i As Integer
For i = 0 To List1.ListCount - 1
If LCase(List1.List(i)) = LCase(CommonDialog1.FileName) Then Exit Sub
Next
List1.AddItem CommonDialog1.FileName
End If
End SubPrivate Sub Command2_Click()
If List1.ListIndex = -1 Then Exit Sub
Open List1.List(List1.ListIndex) For Output As #1
Close #1
End Sub

Answer 2

你岁搏的意思是先添加需要清空文档的还是清衫闭空listA、乎塌祥清空List == List1.ClearB、循环清空List1中列出的文件内容 for i=0 to list1.ListCount-1 open List1.list(i) for output as #1 print #1,"" close #1 Next i