实验四常用控件.doc

实验四 常用控件 一、实验目的 1. 掌握图片框、图像框、定时器、单选按钮和复选框的功能和应用。 2. 掌握列表框、组合框和框架的使用。 3. 熟悉多窗体的基本操作，掌握窗体操作的常用语句与方法。 二、实验内容 1. 图片框、图像框、单选按钮、复选框和框架的综合应用。 2. 用定时器制作秒表。 3. 列表框及组合框程序设计。 4. 多窗体程序设计。 三、实验步骤与指导 1. 图片框、图像框、单选按钮、复选框和框架的综合应用 要求：窗体加载时为图片框和图像框载入图片；用框架对单选按钮进行分组；用单选按钮改变图片框和图像框的大小；用复选框指定图片框是否自动改变大小以显示全部图形，图像框是否缩放图形以适应控件大小。 （1）设计界面 在窗体上放置两个框架，其中各放置三个单选按钮。在框架Frame1中添加一个图片框，在Frame2中添加一个图像框。在窗体上添加两个复选框，四个???签。 （2）设置属性 图像框的BorderStyle属性设为1-Fixed Single，以便在程序运行时使图像框的边界可见。各标签的属性均采用默认值。其他控件的属性设置见表4-1。 表4-1 控件属性 对象名称属性名属性值对象名称属性名属性值OptionButtonOptEnlargeICaption放大OptionButtonoptEnlargePCaption放大OptReduceICaption缩小optReducePCaption缩小OptRevertICaption还原optRevertPCaption还原ValueTrueValueTrueCheckBoxCheck1CaptionAutoSizeFrameFrame1Caption图片框Check2CaptionStrechFrame2Caption图像框 （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 根据复选框的选中状态确定显示何标签 L