VB实验十

实验报告
学院：交通学院专业：土木工程年级：08
姓名：雷钦游学号：081329119 实验室号___明南附201__ 计算机号30
实验日期：2009 年12 月7 日指导教师签字：成绩：
报告退发(订正、重做)
实验十文件管理与操作
一、实验目的
（1）掌握：文件系统应用程序的设计
（2）掌握：文件存储和检索用户数据的方法
二、实验内容
实验内容及操作提示
1、设计如图10-1所示的窗体Form1，编写适当的事件代码，要求运行后，单击“打开”按钮，读入D:\VB\10文件夹下“in.txt”文件中数据，并在文本框Text1显示；单击“保存”按钮，将文本框Text1中的内容转换为大写字母显示在文本框中（如图10-2所示），并保存到“out.txt”文件中。

以10-1frm和10-1.vbp文件名保存在D:\VB\10下。

图10-1 图10-2
2、设计如图10-3所示的窗体“文件选择器”，编写适当的事件代码，要求运行后，驱动器、目录和文件列表框同步显示。

双击文件列表框中的文件时，在底部文本框中显示选中文件带路径的完整文件名（如图10-3所示）。

以10-2frm和10-2.vbp文件名保存在D:\VB\10下。

图10-3 图10-4
3、改进上一个实验内容，要求文件列表框中显示相应路径下的文本文件，双击文件名时，在文本框中显示该文件的内容。

4、设计一个简易记事本，要求能够实现文件的新建、打开、编辑和保存等功能。

界面如图10-5所示。

程序运行后，单击“新建”菜单命令，则清空文本框；用户可以在文本框中输入内容；单击“保
存”菜单命令，则将当前文本框中的内容保存到D:\VB\10下的myfile.txt文件中；单击“打开”菜单命令，则将D:\VB\10下的myfile.txt文件中的内容显示到文本框。

以10-4frm和10-4.vbp文件名保存在D:\VB\10下。

图10-5
三、实验环境
（1）硬件：PC机
（2）软件：Windows 操作系统、V isual BASIC 6.0
四、实验步骤
1、(1).启动VB
(2)添加1 文本控件，2 命令控件
（3）窗体布局.
（4）编写代码
Private Sub Command1_Click()
Dim mystring, mynumber
Open "G:\AA.txt" For Input As #1
Do While Not EOF(1)
mystring = Input(1, #1)
Text1.Text = Text1.Text + mystring
Loop
Close #1
End Sub
Private Sub Command2_Click()
Dim mystring As String
Open "G:\out.txt" For Output As #1
mystring = Text1.Text
Text1.Text = UCase(mystring)
Print #1, UCase(mystring)
Close #1
End Sub
（5）单击“文件”/“保存工程”菜单项，以10-1.frm和10-1.vbp文件名保存在D:\VB\10下。

2、
（1）启动VB，建立一个标准EXE。

（2）在窗体中添加一个驱动器列表框、一个目录列表框、一个文件列表框和一个文本框。

（3）按图10-3设置各控件属性并布局。

（4）分别为Dir1_Change()、Drive1_Change()和File1_DblClick()编写相应的事件代码。

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Text1.Text = File1.Path + "\" + File1.FileName
End Sub
Private Sub Form_Load()
End Sub
（5）单击“文件”/“保存工程”菜单项，以10-2.frm和10-2.vbp文件名将窗体和工程文件保存在D:\VB\10下。

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim filename, mystring As String
Text1.Text = ""
filename = Dir1.Path + "\" + File1.filename
Open filename For Input As #1
Do While Not EOF(1)
mystring = Input(1, #1)
Text1.Text = Text1.Text + mystring
Loop
Close #1
End Sub
4、（1）启动VB，建立一个标准EXE。

（2）在窗体中添加一个文本框，并设计如图10-5所示的菜单。

（3）按图10-5设置各控件属性并布局。

（4）分别为各菜单项编写相应的事件代码。

Private Sub mn_new_Click()
Text1.Text = " "
Form1.Caption = "myfile.txt"
End Sub
Private Sub mn_open_Click()
Dim mystring
Open "c:\myfile.txt" For Input As #1
Do While Not EOF(1)
mystring = Input(1, #1)
Text1.Text = Text1.Text + mystring
Loop
Close #1
End Sub
Private Sub mn_save_Click()
Open "c:\myfile.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Text1_Change()
End Sub
（5）单击“文件”/“保存工程”菜单项，以10-4.frm和10-4.vbp文件名将窗体和工程文件保存在D:\VB\10下。

五、实验调试与结果分析
1.
2.
3.
4.
六、总结
1.通过VB代码编写打开特定的文档
2.使用文件管理器
3.懂得初步自制写字板
4.进一步熟悉菜单栏的编写。