实验七：VB常用控件(一)

《实验七：VB常用控件(一)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验报告学院：专业：年级：姓名：学号：实验室号：_______计算机号：实验日期：年月日指导教师签字：成绩：报告退发(订正、重做)实验七：常用控件（一）一、实验目的（1）掌握：窗体、文本控件及命令按钮的常用属性、事件和方法（2）掌握：框架、选择控件（单选按钮和复选框）、列表框和组合框、滚动条的常用属性、事件和方法。二、实验内容1、启动VisualBasic，在窗体上画一个标签和一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。以Sy7-1.frm和Sy7-1.vbp文件名保存在D:VB程序。2设计一个界面如下图所示的程序，

2、要求程序能实现界面所示的编辑操作和字体设计功能。以Sy7-2.frm和Sy7-2.vbp文件名保存在D:VB程序。3设置如下图界面所示的程序，要求程序运行时选中组合框中的某一项，将弹出如下对话框加以说明。以Sy7-3.frm和Sy7-3.vbp文件名保存在D:VB程序。4在窗体上画一个名称为HS1的水平滚动条和三个名称分别为C1,C2,C3，标题分别为“左端”，“居中”，“右端”的命令按钮。编程是的程序运行后，单击C1，则滚动框位于滚动条的最左端；单击C2，则滚动框位于滚动条的中间处；单击C3，则滚动框位于滚动条的最右端（如下图所示）。以Sy7-4.frm和Sy7-4.v

3、bp文件名保存在D:VB程序三、实验环境（1）硬件：PC机（2）软件：Windows操作系统、VisualBasic6.0四、实验步骤1、启动VisualBasic，在窗体上画一个标签和一个命令按钮，然后在属性窗体设置相应的属性，编写适当的事件过程，使得运行时单击命令按钮，结果如图所示。以Sy7-1.frm和Sy7-1.vbp文件名保存在D:VB程序。操作步骤如下：（1）启动VisualBasic，在窗体上画一个标签和一个命令按钮。（2）窗体、标签及命令按钮的属性设置如下：控件名称属性Form1Caption=“窗体”Width＝2895Height=3270Label1

4、Caption=“这是一个命令按钮”Font=“隶书”四号Autosize＝TrueCommand1Caption=“单击”Width＝1300Height=600Style＝1－GraphicalDownPicture=“D:yuan.bmp”（3）各控件布局如下：单击这是一个命令按钮（4）双击窗体，打开代码窗口，输入如下代码：PrivateSubCommand1_Click()Form1.Picture=Command1.DownPictureEndSub（5）单击“文件”/“保存工程”菜单项，以Sy7-1.frm和Sy7-1.vbp文件名将窗体和工程文件保存在D:V

5、B程序内。2．设计一个界面如下图所示的程序，要求程序能实现界面所示的编辑操作和字体设计功能。以Sy7-2.frm和Sy7-2.vbp文件名保存在D:VB程序。操作步骤如下：（1）启动VisualBasic，在窗体上画两个框架，一个文本框，三个单选按钮和三个复选按钮。（2）各控件属性设置如下：控件名称属性Frame1Caption=“编辑操作”Frame2Caption=“字体设置”Option1Caption=“复制”Option2Caption=“剪切”Option3Caption＝“粘贴”Check1Caption＝“隶书”Check2Caption＝“倾斜”Check

6、3Caption＝“下划线”Text1Scrollbars＝2－Vertical（3）各控件布局如下：复制剪切粘贴隶书倾斜下划线（4）双击窗体，打开代码窗口，输入如下代码：PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.Font="黑体"ElseText1.Font="宋体"EndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubChec

7、k3_Click()IfCheck3.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSubPrivateSubForm_Load()Text1.Font=宋体Text1.Text="听雪一盏摇曳的残烛在我眼前攒动着,从青春时的亮丽清澈到今天的浑浊黯淡,母亲正一点一点的燃烧尽最后的脂肪。地上的影子象张大嘴巴的墓穴，深不见底，阴森诡异，等待时机将母亲一口吞噬"EndSubPrivateSubOption1_Cl