vb上机实验
实验十六 文件系统控件
【实验目的】
掌握驱动器列表框，目录列表框和文件列表框的常用属性和事件。
【实验内容】
实现驱动器列表框，目录列表框和文件列表框三者之间的同步。
【实验步骤与指导】
1．设计界面
在窗体上添加一个驱动器列表框Drive1，一个目录列表框Dir1和一个文件列表框File1。如图16－1所示。
图16－1 初始界面图 图16－2 文件系统控件的同步 2．编写程序代码
Private Sub Drive1_Change( ) Dir1.Path = Drive1.Drive End Sub
Private Sub Dir1_Change( ) File1.Path = Dir1.Path End Sub
3．运行程序
程序运行效果如图16－2所示。
46
zjh
vb上机实验
实验十七 顺序文件
【实验目的】
1．掌握顺序文件的打开，读写和关闭方法。 2．掌握顺序文件的使用。
【实验内容】
打开一个顺序文件，该文件的内容显示在文本框中，对文本框中的文本进行修改，将修改后的文本保存到顺序文件中。
【实验步骤与指导】
1．设计界面
在窗体上添加三个命令按钮，一个文本框和一个通用对话框。初始界面如图17－1所示。
图17－1 初始界面
2．设置属性
表17－1 属性设置
对象 Form1 Text1 Text1 Text1 Command1 Command2 Command3 CommonDialog1 Text MultiLine ScrollBars Caption Caption Caption Filter 属性 Caption 顺序文件 True 3-Both 显示文件 保存文件 退出 Text Files （*.txt）|*.txt 属性值 设置属性后的界面如图17－2所示。
47 zjh
vb上机实验
图17－2 设置属性后的界面
3．编写程序代码
Private Sub Command1_Click( ) Dim File1 As String Dim nextline As String
CommonDialog1.ShowOpen
File1 = CommonDialog1.FileName Text1.Text = \
Open File1 For Input As #1 Do Until EOF(1)
Line Input #1, nextline
Text1.Text = Text1.Text + nextline + Chr(13) + Chr(10) Loop Close 1 End Sub
Private Sub Command2_Click( )
Dim contents As String, File1 As String CommonDialog1.ShowSave
File1 = CommonDialog1.FileName Open File1 For Output As #1 contents = Text1.Text Text1.Text = \ Print #1, contents Close 1 End Sub
Private Sub Command3_Click() Unload Me End Sub 4．运行程序
48 zjh
vb上机实验
运行程序，单击“显示文件”命令按钮，在弹出的通用对话框中选取一个文件，则选中文件内容显示在文本框中。在文本框中进行修改，然后单击“保存文件”命令按钮，则文本框中的内容保存到该文件。程序运行效果如图17－3所示。
图17－3 顺序文件的使用
49 zjh
vb上机实验
实验十八 随机文件
【实验目的】
1．掌握随机文件的打开，读写和关闭方法。 2．掌握随机文件的使用。
【实验内容】
新建随机文件“D:\\txl.txt”。往该随机文件中添加记录，浏览随机文件中的记录。
【实验步骤与指导】
1．设计界面
在窗体上添加三个标签，两个文本框，一个滚动条和三个命令按钮。初始界面如图18－1所示。
图18－1 初始界面
2．设置属性
表18－1 属性设置 对象 Form1 Label1 Label2 Text1 Text2 Command1 Command1 Command2 Command2 Command3 Command3 Label3 属性 Caption Caption Caption Text Text Caption （名称） Caption （名称） Caption （名称） Caption 属性值 随机文件 姓 名： 电话号码： 添加记录 cmdAdd 浏览记录 cmdBrowse 退出 cmdExit 选择记录： 50 zjh