1个回答
展开全部
SaveFileDialog1.Filter = "文本文档|*.txt"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
FileOpen(1, SaveFileDialog1.FileName, IO.FileMode.Open, OpenAccess.Write)
For i As Integer = 0 To ListBox1.Items.Count - 1
Print(1, ListBox1.Items(i).ToString)
Next
FileClose(1)
End If
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
FileOpen(1, SaveFileDialog1.FileName, IO.FileMode.Open, OpenAccess.Write)
For i As Integer = 0 To ListBox1.Items.Count - 1
Print(1, ListBox1.Items(i).ToString)
Next
FileClose(1)
End If
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询