第五章程序设计与软件工程基础 实验十一VB6.0的基本操作 学号: 姓名: 成绩 学院(系): 专业: 班级 实验要求 1.上机实验前必须认真阅读整个实验内容,并认真学习配套教材上的相关知识。 2.上机实验后,请完成实验步骤部分的填空 3.完成回答问题部分的所有问题 4.上机完成修改程序部分的操作。 5.将完成后的整个实验内容作为实验报告,并从裁剪线处剪下交给任课教师。 二、实验目的 1.熟悉 Visual basic6.0的集成开发环境。 2.掌握用ⅵ i sual basic6.0编程的一般步骤。 剪 3.学会使用窗体对象,以及在窗体上设计应用程序界面。 4.掌握 CommandBut ton、 PictureBox、 TextBox等控件的建立及使用方法。 5.学会设置窗体和其他控件的属性 6.掌握 Click事件的使用方法,理解事件驱动过程。 实验内容 创建一个工程,该工程包含窗体 FormPicture和 FormText。窗体 FormPicture用于显 1示和清除图片,窗体 Formtext用于显示和清除文本。具体要求如下: 1.在窗体 FormPicture上,用程序实现图片的显示与清除。窗体上有四个控件:图 片框 Picture用于显示图片;命令按钮 Command1用于驱动 Commandl Click0事件,完成 显示图片的任务;命令按钮 Command2用于驱动 Command2 Click事件,完成清除图片的 任务:命令按钮 Command3用于驱动 Command3 Click事件,完成转向窗体 FormText的任 务 2.在窗体 Formtext上,用程序实现文本的显示与清除。窗体上有四个控件:文本框 Text1用于显示文本内容;命令按钮 Command1用于驱动 Command1_ Click0事件,完成显示 文本的任务;命令按钮 Command2用于驱动 Command2 Click0事件,完成清除文本的任务; 命令按钮 Command3用于驱动 Command3 Click事件,完成转向窗体 FormPicture的任务 四、实验步骤
1 第五章 程序设计与软件工程基础 实验十一 VB 6.0 的基本操作 学 号： 姓名： 成绩： 学院（系）： 专业： 班级： 一、实验要求 1．上机实验前必须认真阅读整个实验内容，并认真学习配套教材上的相关知识。 2．上机实验后，请完成实验步骤部分的填空。 3．完成回答问题部分的所有问题。 4．上机完成修改程序部分的操作。 5．将完成后的整个实验内容作为实验报告，并从裁剪线处剪下交给任课教师。 二、实验目的 1．熟悉 Visual Basic 6.0 的集成开发环境。 2．掌握用 Visual Basic 6.0 编程的一般步骤。 3．学会使用窗体对象，以及在窗体上设计应用程序界面。 4．掌握 CommandButton、PictureBox、TextBox 等控件的建立及使用方法。 5．学会设置窗体和其他控件的属性。 6．掌握 Click事件的使用方法，理解事件驱动过程。 三、实验内容 创建一个工程，该工程包含窗体FormPicture和 FormText。窗体 FormPicture用于显 示和清除图片，窗体FormText用于显示和清除文本。具体要求如下： 1．在窗体 FormPicture 上，用程序实现图片的显示与清除。窗体上有四个控件：图 片框 Picture1用于显示图片；命令按钮 Command1用于驱动 Command1_Click()事件，完成 显示图片的任务；命令按钮 Command2 用于驱动 Command2_Click()事件，完成清除图片的 任务；命令按钮Command3用于驱动 Command3_Click()事件，完成转向窗体FormText的任 务。 2．在窗体FormText上，用程序实现文本的显示与清除。窗体上有四个控件：文本框 Text1用于显示文本内容；命令按钮Command1用于驱动 Command1_Click()事件，完成显示 文本的任务；命令按钮Command2用于驱动 Command2_Click()事件，完成清除文本的任务； 命令按钮 Command3用于驱动Command3_Click()事件，完成转向窗体FormPicture的任务。 四、实验步骤 裁 剪 线
1.执行“文件”菜单中的“新建工程”命令创建一个新工程,同时系统自动为新工 程创建一个名字为Form1的窗体。 2.执行“工程”菜单中的“添加窗体”命令再新建一个名字为Form2的窗体。 3.双击工程资源管理器窗口中的Form1窗体使窗体Form1被选中,在属性窗口中将 Form1的№ame(名称)属性设置为 FormPicture 4.在窗体 FormPicture上,用工具箱上的图片框 PictureBox创建控件 Picture1,用 命令按钮 CommandBut ton创建对象 Commandl、 Command2和 Command3。窗体界面如图5-1 转文本口 图5-1 5.选中窗体 FormPicture上的每一个控件,在属性窗口中依次为他们设置表5-1所 示的属性值。 表51 FormPicture上控件的属性设置 控件名称 属性 属性值 控件名称 属性 属性值 FormPicture Capti 显示或清除图片 Command2 Caption 清除图片 Picture Autosize True 显示图片 Caption 转文本窗口 宋体5号 Command3 宋体5号 6.双击窗体 FormPicture上的命令按钮 Command1进入代码编辑窗口,然后输入以下 程序。 Rem Commandl Click o事件完成显示图片任务 Private Sub Commandl Click Picturel. Picture= LoadPicture("D: \1j\tp bmp") 用 LoadPictureO在图片框中装入图形,装入的图形可自己设置 End sub Rem command2 Click0事件完成清除图片任务 Private Sub Command2 Click O Picturel. Picture= LoadPicture o 装入一个空图形时可删除图片框中原来的图形 End sub Rem command3 Click0事件完成转换窗口任务 Private Sub Command3 Click FormPicture.Hide’隐藏窗体 FormIc ture
2 1．执行“文件”菜单中的“新建工程”命令创建一个新工程，同时系统自动为新工 程创建一个名字为Form1 的窗体。 2．执行“工程”菜单中的“添加窗体”命令再新建一个名字为 Form2的窗体。 3．双击工程资源管理器窗口中的 Form1 窗体使窗体 Form1 被选中，在属性窗口中将 Form1 的 Name（名称）属性设置为FormPicture。 4．在窗体FormPicture上，用工具箱上的图片框 PictureBox创建控件Picture1，用 命令按钮 CommandButton 创建对象 Command1、Command2 和 Command3。窗体界面如图 5-1 所示。 图 5-1 5．选中窗体 FormPicture 上的每一个控件，在属性窗口中依次为他们设置表 5-1 所 示的属性值。 表 5-1 FormPicture上控件的属性设置 控件名称 属性 属性值 控件名称 属性 属性值 FormPicture Caption 显示或清除图片 Command2 Caption 清除图片 Picture1 AutoSize True Font 宋体 5 号 Command1 Caption 显示图片 Command3 Caption 转文本窗口 Font 宋体 5 号 Font 宋体 5 号 6．双击窗体 FormPicture 上的命令按钮 Command1 进入代码编辑窗口，然后输入以下 程序。 Rem Command1_Click()事件完成显示图片任务 Private Sub Command1_Click() Picture1.Picture = LoadPicture("D:\lj\tp.bmp") '用 LoadPicture()在图片框中装入图形，装入的图形可自己设置 End Sub Rem Command2_Click()事件完成清除图片任务 Private Sub Command2_Click() Picture1.Picture = LoadPicture() '装入一个空图形时可删除图片框中原来的图形 End Sub Rem Command3_Click()事件完成转换窗口任务 Private Sub Command3_Click() FormPicture.Hide '隐藏窗体FormPicture
FormText Show 显示窗体 Formtext End sub 说明:图片框 PictureBox控件的主要作用是为用户显示图片,也可以作为其他控件 的容器。可显示的图片格式有.bmp、.ico、,jpg、,gif等。图片框的 Autosize属性设置 为True时,图片框能自动调整大小与显示的图片匹配:设置为 False时,图片框不能自动 调整大小来适应其中的图片。 7.双击工程资源管理器窗口中的Fom2窗体使窗体Form2被选中,在属性窗口中将 Form2的№ame(名称)属性设置为 FormText 8.在窗体 mteXt上,用工具箱上的文本框 Text Box创建控件Text1,用命令按钮 CommandBut ton创建对象 Command、 Comman和 Command3。窗体界面如图52所示。 回 显示文本 济除文本 图5-2 9.选中窗体 Formtext上的每一个控件,参照表5-1和图5-2,在属性窗口中依次为 他们设置属性值,最后填上表5-2中的空。 表5-2For皿ext上控件的属性设置 剪 控件名称 属性 属性值 控件名称 属性 属性值 Commandl 宋体小5号加粗 TextI borderStyle Forecolor 宋体小5号加粗 隶书三号 Caption返图片窗口 10.双击窗体 FormText上的命令按钮 Commandl进入代码编辑窗口,然后输入以下程 Rem commandl click0事件完成显示文本任务 Private Sub Commandl Click O Text1.Text="欢迎使用 Visual bas 设置Text的值 End sub Rem command2 Click0事件完成清除文本任务 Private Sub Command2 Click O Text1. Text 清除Text的值 End sub Rem command3 Click0事件完成转换窗口任务
3 FormText.Show '显示窗体FormText End Sub 说明：图片框 PictureBox 控件的主要作用是为用户显示图片，也可以作为其他控件 的容器。可显示的图片格式有.bmp、.ico、.jpg、.gif 等。图片框的 AutoSize 属性设置 为 True时，图片框能自动调整大小与显示的图片匹配；设置为 False时，图片框不能自动 调整大小来适应其中的图片。 7．双击工程资源管理器窗口中的 Form2 窗体使窗体 Form2 被选中，在属性窗口中将 Form2 的 Name（名称）属性设置为FormText。 8．在窗体 FormText 上，用工具箱上的文本框 TextBox 创建控件 Text1，用命令按钮 CommandButton 创建对象Command1、Command2 和Command3。窗体界面如图 5-2所示。 图 5-2 9．选中窗体 FormText 上的每一个控件，参照表 5-1 和图 5-2，在属性窗口中依次为 他们设置属性值，最后填上表5-2 中的空。 表 5-2 FormText 上控件的属性设置 控件名称 属性 属性值 控件名称 属性 属性值 FormText Caption Command1 Caption Text1 Caption Font 宋体小 5号加粗 BorderStyle 1 Command2 Caption ForeColor 蓝色 Font 宋体小 5号加粗 Font 隶书三号 Command3 Caption 返图片窗口 Font 10．双击窗体 FormText 上的命令按钮 Command1 进入代码编辑窗口，然后输入以下程 序。 Rem Command1_Click()事件完成显示文本任务 Private Sub Command1_Click() Text1.Text = "欢迎使用Visual Basic" '设置 Text 的值 End Sub Rem Command2_Click()事件完成清除文本任务 Private Sub Command2_Click() Text1.Text = "" '清除 Text 的值 End Sub Rem Command3_Click()事件完成转换窗口任务 裁 剪 线
Private Sub Command3 Click O Formtext Hide 隐藏窗体 Formtext Formpicture. Show 显示窗体 FormPicture End sub 11.执行“运行”菜单中的“启动”命令运行程序,屏幕上显示 FormPicture窗体的 界面,单击命令按钮“显示图片”可驱动 Commandl click0事件,在图片框中显示图片 如图5-3(a所示;单击命令按钮“清除图片”可驱动 Command2 click0事件,清除图片框 中的图片:单击命令按钮“转文本窗口”可驱动 Command3 click0事件,屏幕上显示 FormText窗体的界面 12.在 FormText窗体的界面上,单击命令按钮“显示文本”可在文本框中显示文本, 如图5-3(b)所示;单击命令按钮“清除文本”可清除文本框中的文本:单击命令按钮“返 图片窗口”可在屏幕上显示 FormPicture窗体的界面。 区 显示或清除文本 欢迎使用 Visual basic 活涂图片 示文本 清粽文本 图片窗 图5-3 13.当运行程序能完成设计要求时,执行“运行”菜单中的“结束”命令或单击窗体 界面上的关闭按钮可以结束当前程序的运行。 14.执行“文件”菜单中的“工程另存为”命令来保存工程,文件名为sy61.vbp 15.双击工程资源管理器窗口中的 FormPicture窗体使窗体 FormPicture被选中,执 行“文件”菜单中的“ FormPicture另存为”命令来保存窗体,窗体文件名为sy61_1.frm 双击工程资源管理器窗口中的 Formtext窗体使窗体 FormText被选中,执行“文件”菜单 中的“ FormText另存为”命令来保存窗体,窗体文件名为sy612.fm。 五、回答问题 1.运行程序时,命令按钮的执行顺序必须为显示图片、清除图片、转文本窗口吗 请用事件驱动的程序设计思想来简答本题。 2.执行“工程”菜单中的“工程属性”命令打开“工程属性”对话框,在对话框的
4 Private Sub Command3_Click() Formtext.Hide '隐藏窗体FormText Formpicture.Show '显示窗体FormPicture End Sub 11．执行“运行”菜单中的“启动”命令运行程序，屏幕上显示FormPicture窗体的 界面，单击命令按钮“显示图片”可驱动 Command1_Click()事件，在图片框中显示图片， 如图 5-3(a)所示；单击命令按钮“清除图片”可驱动 Command2_Click()事件，清除图片框 中的图片；单击命令按钮“转文本窗口”可驱动 Command3_Click()事件，屏幕上显示 FormText 窗体的界面。 12．在 FormText窗体的界面上，单击命令按钮“显示文本”可在文本框中显示文本， 如图 5-3(b)所示；单击命令按钮“清除文本”可清除文本框中的文本；单击命令按钮“返 图片窗口”可在屏幕上显示FormPicture 窗体的界面。 (a) (b) 图 5-3 13．当运行程序能完成设计要求时，执行“运行”菜单中的“结束”命令或单击窗体 界面上的关闭按钮可以结束当前程序的运行。 14．执行“文件”菜单中的“工程另存为”命令来保存工程，文件名为sy6_1.vbp。 15．双击工程资源管理器窗口中的FormPicture窗体使窗体FormPicture被选中，执 行“文件”菜单中的“FormPicture另存为”命令来保存窗体，窗体文件名为sy6_1_1.frm； 双击工程资源管理器窗口中的 FormText窗体使窗体FormText被选中，执行“文件”菜单 中的“FormText 另存为”命令来保存窗体，窗体文件名为sy6_1_2.frm。 五、回答问题 1．运行程序时，命令按钮的执行顺序必须为显示图片、清除图片、转文本窗口吗？ 请用事件驱动的程序设计思想来简答本题。 答： 2．执行“工程”菜单中的“工程属性”命令打开“工程属性”对话框，在对话框的
“启动对象”的下拉列表框中选择“ FormText”,即设置启动对象为 FormText。请问重新 设置启动对象后,再运行程序时首先显示的窗体是哪一个? 3.文本框中显示的文本是什么颜色?请写出在属性窗口中将文本颜色改成红色的操 作过程以及在程序中设置文本颜色为红色的语句行。 答 线六、修改程序 1.将 FormPicture窗体中命令按钮“显示图片”的单击事件修改如下: Private Sub Commandl Click O tp$= InputBox$("请输入图片所在的位置和名字!","输入图片名","d:Ⅵjtp.bmp" Picturel. Picture= LoadPicture(tp) End sub 2.运行程序,在 FormPicture窗体界面上单击命令按钮“显示图片”,打开“输入图 片名”的输入对话框,如图5-4所示。在对话框中输入要显示的图片的位置和文件名,然 后单击“确定”按钮或按下回车键,相应的图片就显示在图片框中。 输入图片名 请输入图片所在的位置和名字! d: \j\tp bap 图5-4
5 “启动对象”的下拉列表框中选择“FormText”，即设置启动对象为 FormText。请问重新 设置启动对象后，再运行程序时首先显示的窗体是哪一个？ 答： 3．文本框中显示的文本是什么颜色？请写出在属性窗口中将文本颜色改成红色的操 作过程以及在程序中设置文本颜色为红色的语句行。 答： 六、修改程序 1．将 FormPicture窗体中命令按钮“显示图片”的单击事件修改如下： Private Sub Command1_Click() tp$= InputBox$("请输入图片所在的位置和名字！","输入图片名","d:\lj\tp.bmp") Picture1.Picture = LoadPicture(tp) End Sub 2．运行程序，在 FormPicture窗体界面上单击命令按钮“显示图片”，打开“输入图 片名”的输入对话框，如图 5-4所示。在对话框中输入要显示的图片的位置和文件名，然 后单击“确定”按钮或按下回车键，相应的图片就显示在图片框中。 图 5-4 裁 剪 线