vbnet程序设计实验004.doc

实验四 常用控件 一、实验目的 1. 掌握图片框、图像框、定时器、单选按钮和复选框的功能和应用。 2. 掌握列表框、组合框和框架的使用。 3. 熟悉多窗体的基本操作，掌握窗体操作的常用语句与方法。 二、实验内容 1. 图片框、图像框、单选按钮、复选框和框架的综合应用。 2. 用定时器制作秒表。 3. 列表框及组合框程序设计。 4. 多窗体程序设计。 三、实验步骤与指导 1. 图片框、图像框、单选按钮、复选框和框架的综合应用 要求：窗体加载时为图片框和图像框载入图片；用框架对单选按钮进行分组；用单选按钮改变图片框和图像框的大小；用复选框指定图片框是否自动改变大小以显示全部图形，图像框是否缩放图形以适应控件大小。 （1）设计界面 在窗体上放置两个框架，其中各放置三个单选按钮。在框架Frame1中添加一个图片框，在Frame2中添加一个图像框。在窗体上添加两个复选框，四个标签。 （2）设置属性 图像框的BorderStyle属性设为1-Fixed Single，以便在程序运行时使图像框的边界可见。各标签的属性均采用默认值。其他控件的属性设置见表4-1。 表4-1 控件属性 对象 名称 属性名 属性值 对象 名称 属性名 属性值 OptionButton OptEnlargeI Caption 放大 OptionButton optEnlargeP Caption 放大 OptReduceI Caption 缩小 optReduceP Caption 缩小 OptRevertI Caption 还原 optRevertP Caption 还原 Value True Value True CheckBox Check1 Caption AutoSize Frame Frame1 Caption 图片框 Check2 Caption Strech Frame2 Caption 图像框 （3）编写代码 在窗体的Load事件中用LoadPicture函数为图片框和图像框载入图片，并将图片框和图像框的Width和Height属性存入模块级变量，以备还原之用。 通过各单选按钮的单击事件分别完成图片框和图像框的放大、缩小和还原（即改变控件的Width和Height属性）。 在复选框Check1的单击事件中将该复选框的选中状态（Value属性值，整型）转换为逻辑型赋值给图片框的AutoSize属性，指定图片框是否自动改变大小以显示全部图形，并通过复选框的Caption属性显示图片框AutoSize属性的当前值（如：“AutoSize = True”）。 在复选框Check2的单击事件中将该复选框的选中状态赋值给图像框的Stretch属性，指定图像框是否缩放图形以适应控件大小，并通过复选框的Caption属性显示图片框Stretch属性的当前值（如：“Stretch = False”）。 程序的部分运行效果如图4-1所示。 (a) 原始图形 (b) 放大图片框和图像框 图4-1 图片框与图像框 程序代码如下： Option Explicit 模块级变量用于存放图片框和图像框的原始大小 Dim PicW As Integer, PicH As Integer Dim ImgW As Integer, ImgH As Integer Private Sub Check1_Click() 将复选框的选中状态（Value属性值）转换为 逻辑值后赋值给图片框的AutoSize属性， 决定图片框是否自动改变大小以显示全部图形。 Dim blnV As Boolean blnV = Check1.Value Picture1.AutoSize = blnV Check1.Caption = AutoSize = blnV 根据复选框的选中状态确定显示何标签 Label1.Visible = blnV Label2.Visible = Not blnV End Sub Private Sub Check2_Click() 将复选框的选中状态（Value属性值）转换为 逻辑值后赋值给图像框的Stretcch属性， 决定图形是否自动缩放以适应图像框大小。 Dim blnV As Boolean blnV = Check2.Value Image1.Stretch = blnV Check2.Caption = Stretch = blnV 根据复选框的选中状态确定显示何标签 Lab