单击按钮后弹出保存文件对话框 单击, 对话框, 按钮, 文件, 保存

iloveyou

各位专家，我原先用的是VB 6.0，学习VB 2008快三个月了。最近，自己在做一个记事本程序的练习。关于对话框的实现有点困惑，不知怎么编写？？？就是如何使用VB 2008在单击“保存”按钮后，弹出保存文件对话框，然后把ListBox的内容保存到.txt中，每个item占一行。

somboy

VB 6.0是Microsoft在1998年发布的产品，相对于最新的VB 2008版本之间存在很大的差异。三个月的时间就学到了对话框编程，应该说你的基础还是不错，同时这个问题也是与旧版本区别比较明显的。这里我为你提供一个详细的解决方案供你参考，有问题可以通过网络课堂及时与我们联系。
（1）新建一个Windows应用程序，添加一个窗体，再制作记事本程序的布局。
（2）添加一个按钮定义文本为“保存”，然后双击按钮进入Click事件处理程序。

1. Private Sub Button1_Click(ByVal sender As System.Object, _
   
2.                           ByVal e As System.EventArgs) Handles Button1.Click       
   
3. End Sub

复制代码

somboy

（3）添加如下的代码，弹出保存对话框并进行文件的保存操作。

1.         SaveFileDialog1.Filter = "文本文档|*.txt"
   
2.         If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
   
3.         FileOpen(1, SaveFileDialog1.FileName, IO.FileMode.Open, OpenAccess.Write)
   
4.         For i As Integer = 0 To ListBox1.Items.Count - 1
   
5.         Print(1, ListBox1.Items(i).ToString)
   
6.         Next
   
7.         FileClose(1)
   
8.         End If

复制代码