保存下文框内容为文本文件

*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowSave
F = CommonDialog1.FileName
Open F For Output As #1
Print #1, Text1.Text
Close #1
End Sub

这样，列表框的全部项目就可以保存下来了。

如果仅保存列表框的部分内容，可在List1的Click事件加入以下代码：

Dim i As Integer
i = i + List1.ListIndex
Text1.Text = Text1.Text + List1.List(Index + i) + vbCrLf

本例在PWin98、VB6.0环境下调试通过。 

关键词：保存下文框内容为文本文件