实验六专业_____________ 班级________年级________姓名______________学号_______________一、实验目的1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件；2、学习在窗体中创建常用控件2、学习在属性窗口和在程序代码中设置属性3、学习调用控件的方法4、学习编写各控件和鼠标与键盘的事件过程二、实验内容1、单选按钮、复选框、框架1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。

框架Fr1包含单选按钮Op1和Op2。

2）设计窗体，要求①标题为“设置字体”；②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示；③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2；④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。

⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。

Private Sub Option1_Click()Label1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_Click()Label1.FontName = Option2.CaptionEnd SubPrivate Sub Option3_Click()Label1.FontItalic = TrueEnd SubPrivate Sub Option4_Click()Label1.FontItalic = FalseEnd Sub3）在窗体是设置设置框Text1，其中文字为：黑体、四号、居中；设置单选按钮Option1和Option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。

Text.text=option1.captionText1.text=option2.caption4）在窗体上设置框架，其标题为“效果”，框架内设置四个复选框，标题分别为“上标”、“下标”、“阳文”和“阴文”。

其中：“上标”处于选中状态，“阴影”处于被禁止状态，其余两个处于未选中状态。

设置value2、列表框、组合框1）按图设计，在窗体中设置两个标签L1和L2、两个列表框MyList1和MyList2：其中：标签的标题分别为“科目名称”和“专业”；两个列表框的列表项如图所示；并且MyList1允许仅用鼠标进行多项选（Multiselect=1）(style= 1-checkbox)2）按图设置窗体的标题为“简单组合框”、一个简单组合框MyComb1、两个标题分别为“添加”和“删除”的命令按钮Cmd1和Cmd2。

要求：①简单组合框的左边距1000、上边距500；在组合框中添加“土建”、“计算机”、“会计”、“工商管理”。

②设置编写适当的事件过程，使得程序运行时，在组合框的文本框中输入项目，单击“添加按钮，将其添加到组合框中；在组合框中选定一个项目，单击“删除”按钮，则删除除该项目。

P r i v a t e S u b C o m m a n d1_C l i c k()C o m b o1.A d d I t e m C o m b o1.T e x tE n d S u bP r i v a t e S u b C o m m a n d2_C l i c k()C o m b o1.R e m o v e I t e m C o m b o1.L i s t I n d e xE n d S u b3）按图示设计窗体：要求：编写适当的事件过程，实现①当List1任选一项，单击“选择”按钮，将选项定项添加到List2中②当List2任选一项，单击“删除”按钮，将选项定项从List2中删除③单击“统计”按钮，弹出消息框，显示选定项目数信息。

P r i v a t e S u b C o m m a n d1_C l i c k()L i s t2.A d d I t e m L i s t1.T e x tE n d S u bP r i v a t e S u b C o m m a n d2_C l i c k()L i s t2.R e m o v e I t e m L i s t2.L i s t I n d e xP r i v a t e S u b C o m m a n d3_C l i c k()x=L i s t2.L i s t C o u n tM s g B o x"你选了"&x&"个项目",0,"选定项统计"E n d S u b4）按图示设计窗体：要求：①三个标签控件可随内容自动改变大小，Label1的文本居中对齐；②组合框Combo1的选项有：隶书、楷体_GB2312、宋体、黑体等四项③编写适当事件过程，实现：当组合框或列表框中单击某项时，则Label1中按选项设置字体和字号。

P r i v a t e S u b C o m b o1_C l i c k()L a b e l1.F o n t=C o m b o1.T e x tE n d S u bP r i v a t e S u b L i s t1_C l i c k()L a b e l1.F o n t S i z e=L i s t1.T e x tE n d S u b3、滚动条、1）按图示设计窗体：要求：①两个标签控件可随内容自动改变大小，Label1的文本居中对齐且在垂直方向变化大小以适应内容，文本字体为“隶书”、字号为“四号”。

②宽度水平滚动条HS1取值范围从300~2500，单击滚动条箭头，改变值为50；单击滚动条空白处，改变值为100；③编写适当事件过程，实现：按滚动条当前值改变标签的宽度，并把滚动条当前值显示在文本Private Sub HScroll1_Change()Label1.Width = HScroll1.ValueText1.Text = HScroll1.ValueEnd Sub4、时钟1）按图示设计窗体：要求：①标签Label2为有边框，其标题文字加粗、字号为“四号”②文本框Text1的文字加粗、字号为“四号”③编写适当的事件过程，实现单击“开始”按钮时Label2动态显示当前时间，文本框文字每隔1秒加1。

单击“退出”，退出应用程序。

D i m s A s I n t e g e rP r i v a t e S u b C o m m a n d1_C l i c k()T i m e r1.E n a b l e d=T r u eE n d S u bP r i v a t e S u b T i m e r1_T i m e r()s=s+1L a b e l1.C a p t i o n=T i m eT e x t1.T e x t=sE n d S u bP r i v a t e S u b C o m m a n d2_C l i c k()E n dE n d S u b5、图像框与图片框1）按图示设计窗体：要求：①图像框带有边框、加载图像能自动改变大小适应图像框。

②编写适当事件过程，实现：单击“显示图像”命令按钮或单选按钮，加载图像“setop.bmp”③编写适当事件过程，实现：单击“隐藏图像”命令按钮或单选按钮，删除图像框中图像④编写适当事件过程，实现：通过选中“显示图像”，还是“隐藏图像”，决定显示图像或隐藏图像。

⑤编写适当事件过程，实现：通过复选项框的选项中与否，决定是否显示图像Private Sub Check1_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture("F:\图片\001.jpeg")ElseImage1.Picture = LoadPicture()End IfEnd SubPrivate Sub Command1_Click()Image1.Picture = LoadPicture("F:\图片\001.jpeg")End SubPrivate Sub Command2_Click()Image1.Picture = LoadPicture()End SubPrivate Sub Option1_Click()Image1.Picture = LoadPicture("F:\图片\001.jpeg")End SubPrivate Sub Option2_Click()Image1.Picture = LoadPicture()End Sub2）按图示设计窗体：要求：①图片框能自动改变大小适应图像。

②编写适当事件过程，实现：单击“显示图像”命令按钮或单选按钮，加载图像“TL.bmp”③编写适当事件过程，实现：单击“显示说明”命令按钮或单选按钮，在图片框显示说明文字“这是永定永定土楼”④编写适当事件过程，实现：单击“隐藏图像”命令按钮或单选按钮，删除图像框中图像⑤编写适当事件过程，实现：通过选中“显示图像”，还是“显示说明”，还是“隐藏图像”，决定显示图像、显示说明文字“这是永定永定土楼”或隐藏图像⑥编写适当事件过程，实现：通过复选项框的选项中与否，决定是显示说明文字还是显示图像Private Sub Check1_Click()If Check1.Value = 1 ThenPicture1.Print "这是永定土楼"ElsePicture1.Picture = LoadPicture("F:\图片\001.jpeg")End IfEnd SubPrivate Sub Command1_Click()Picture1.Picture = LoadPicture("F:\图片\001.jpeg")End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture()End SubPrivate Sub Command3_Click()Picture1.Print "这是永定土楼"End SubPrivate Sub Option1_Click()Picture1.Picture = LoadPicture("F:\图片\001.jpeg")End SubPrivate Sub Option2_Click()Picture1.Picture = LoadPicture()End SubPrivate Sub Option3_Click()Picture1.Print "这是永定土楼"End Sub6、形状与直线1）按图示设计窗体：要求：① 体F1标题为“背景”设置(shape1backstyle=0,fillstyle=0)(label1backstyle=0)②状态控件SP1为椭圆，背景不透明，高度和宽度分别为：750 和1500③四个标签控件LBL1、LBL2、LBL3、LBL4可随内容大小自动改变大小，标题如图示；其中LBL1的标题为“脑子急转弯”、字体为“楷体_2312”、字号为“四号”。