实验1VB编程环境和文件.doc

实验1 环境和文件
实验目的:
1.熟悉VB的集成开发环境
2.掌握常用控件的属性、方法
3.熟悉常用对象事件的使用
4.熟悉文件系统控件的使用
5.掌握文件的打开、关闭和读写操作
实验1.1认识Visual Basic
实验任务:
认识Visual Basic的集成开发环境,熟悉各个窗口的功能,熟悉控件的属性、方法,熟悉事件的使用。实验结果界面如图1-1所示。
图 1-1 实验1.1运行界面
实验步骤:
1.启动VB6.0,创建一个“标准EXE”类型的应用程序。
2.将窗体的Font属性设为宋体、小二、粗体,Caption属性设置为“我的第一个程序”。
3.在窗体上添加两个命令按钮Command1(Caption属性设置为“欢迎”)和Command2(Caption属性设置为“再见”) 。
4.双击“欢迎”按钮,涉及如下代码:
Print “欢迎使用 Visual Basic”
5.双击“再见”按钮,添加如下代码:
End
6.将窗体和工程分别以文件名vb1.frm和vb1.vbp保存在自己的文件夹中。
7.单击F5,试验运行本程序,直至满意为止。
说明:这里,“自己的文件夹”指任意磁盘获U盘如D盘根目录下以自己的名字和学号命名的子目录(例如姓名为“赵阳”,学号为09080126;则自己的文件夹就是“D:\赵阳09080126”),以后所有的实验若无特殊说明均保存在该目录下。
思考:除了上述方法,还可以怎样实现上述题目要求?试一试。
实验1.2 对象移动动画
实验任务:
熟悉Move方法实现对象移动,进一步熟悉控件事件的使用。实验结果界面如图1-2所示。
图1-2 实验1.2运行界面
实验步骤:
1.将窗体的Caption属性设为“欢迎新同学”;为窗体设置Picture属性(图片可以从C:\Windows\Web\Wallpaper中取,也可放自己喜欢的照片),设置窗体不可改变大小。
2.在窗体上添加两个标签,Caption属性为“欢迎新同学”,并将其设置为浮雕效果(提示:浮雕效果可以由两个背景风格为透明、前景颜色不同、位置稍有错位的标签重叠而成)。
3.添加两个命令按钮Command1 和Command2,清空Caption属性,将Style属性设置为1-Grapical,分别为Picture属性设置图标文件“Point02.ico”、“Point04.ico”(图标文件位于VB的安装目录下\Common\Graphics\Icons\Arrows文件夹中)。
4.双击Command1,添加如下代码:
Label1.Move Label1.Left - 50
Label2.Move Label2.Left – 50
5.双击Command2,添加如下代码:
Label1.Move Label1.Left + 50
Label2.Move Label2.Left + 50
6.将窗体和工程文件保存在自己的文件夹中。
7.单击F5,试验运行本程序,直至满意为止。
思考:根据Move方法的语法“对象名.Move left, top, width, height”,修改上述程序还可以有哪些变化?试一试。
实验1.3文件系统控件
实验任务:
建立一个图形浏览器,窗体上放置驱动器列表框、目录列表框、文件列表框、一个文本框和一个图像框,并实现以下要求:
(1)文件列表框能过滤只显示后缀为BMP的图形文件;
(2)当单击某BMP图形文件名后,在Text1显示文件名(包括路径),在Image1显示该图形内容;
(3)当双击某图形文件名后,调用windows画图程序对该图形进行编辑。
实验结果如图1-3所示。
图l-3 实验1.3运行界面
实验步骤:
1.在窗体中加入Drive、Dir、FileList三个文件操作控件,分别用于驱动器、目录及文件名列表的操作(三个控件可直接在VB工具栏中找到)。
2.通过drive1及dir1控件的change事件过程建立三控件之间的相互关联,代码如下:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
3.在Form_load()事件过程中设置文件列表中的筛选过滤条件,并设置Image1对象的Stretch属性使预览时的图像大小自动适应图像框大小。代码如下:
Private Sub Form_Load()
File1.Pattern = "*.bmp"
Image1.Stretch = True
End Sub
4.编写代码实现图形文件的单击预览,双击打开编辑。
Dim Fname$
Private Sub File1_Click()
Fname = File1.Path & IIf(Right(File1.Path, 1) = "\", "", "\") & File1.FileName
Text1.Text = Fname
Image1.Picture = LoadPicture(Fname)
End Sub
Private Sub File1_DblClick()
Fname = File1.Path & IIf(Right(File1.Path, 1) = "\", "", "\") & File1.FileName
Text1.Text = Fname
Dim a
a = Shell("D:\windows\System32\mspaint.exe " & Fname, vbMaximizedFocus)
‘注意,应掌握Shell函数调用外部过程的方法
End Sub
5.将窗体和工程文件保存在自己的文件夹中。
6.单击F5,试验运行本程序,直至满意为止。
思考:可否仿照上述实验,完成下一个实验后,建立一个文本浏览器。窗体上放置驱动器列表框、目录列表框、文件列表框和两个文本框,要求:
1、仅列出扩展名为txt的文本文件
2、当单击某文本文件后在文本框显示该文件内容;
3、当双击扩展名为.txt的文件后,调用“记事本”程序对文本文件进行编辑。
实验1.4顺序文件
实验任务:
建立一个具有写入和读取顺序文件功能的程序,能将多行文本框中输入的数据保存到文本文件,并在需要的时候读入内存显示在文本框中。实验结果如图1-4所示。
图l-4 实验1.4运行界面
实验步骤:
1.新建工程,加入两个文本框、两个命令按钮以及通用对话框控件,使其符合题目的界面及操作要求;
2.在代码窗口中输入下列命令代码:
Option Explicit
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
‘打开在通用对话框中选定的文本文件用于覆盖式写入
Print #1, Text1.Text ‘写入文件的命令除了Print #外还有writ