【课件教程】第5.2章标准控件2VisualBasic大学计算机二级VB考试学习复习资料.ppt

第5章 标准控件 * * 5.3 图片框与图像框 一、图片框（PictureBox） 图片框可以显示多种图形格式的图片，包括位图文件（.bmp）、图标文件（.ico）、光标文件（.cur）、元文件（.wmf）、增强的元文件（.emf）、JPEG文件（.jpg）或GIF文件（.gif）。 PictureBox控件也可以作为控件的容器，还可用于显示用Print方法产生的文本和用图形方法绘制的图形。要清除用Print方法在图片框中产生的文本和用图形方法绘制的图形，使用Cls方法： 对象名. Cls 属性 ．Picture 属性：设置图片框中显示的图片，可以在属性窗口中设置其Picture属性, 也可以在代码中使用LoadPicture函数进行设置，格式如下： 对象名.Picture = LoadPicture(“图形文件名”) 要清除图片框中的图像，可以在属性窗口中直接删除其Picture属性的内容，也可以在代码中使用LoadPicture函数进行清除，格式如 下： 对象名.Picture = LoadPicture（） 或 对象名.Picture = LoadPicture(“ ”) ．Autosize 属性：默认值为False，表示图片框以设计时的大小显示图像，多余部分自动被裁剪。 若将其设置为True, 图片框可以自动调整大小以显示整幅图像。 ．AutoRedraw 属性：是否自动重新绘制图形 事件 常用事件有Resize、Paint、Click等 方法 常用方法有Refresh、Move、Print及一组绘图方法（第8章详细介绍）等 [例5-7] Private Sub Command1_Click() If Option1(0).Value Then Picture1.ForeColor = vbRed Picture1.Print 选择了红色 End If If Option1(1).Value Then Picture1.ForeColor = vbGreen Picture1.Print 选择了绿色 End If If Option1(2).Value Then Picture1.ForeColor = vbBlue Picture1.Print 选择了蓝色 End If End Sub Private Sub Command2_Click() Picture1.Cls End Sub 二、图像框（Image） 图像框的用法与图片框大致相同，也可以显示与图片框一样的多种格式的图片，但它不能作为其他控件的容器，也不支持图片框的各种绘图方法。但图像框占用的系统资源比图片框少且重绘速度快，但只支持图片框的一部分属性、事件和方法。 属性 .Stretch属性 设为True，表示可根据图像框控件的大小来自动放缩显示图片，这一点是图片框无法实现的，但注意此时有可能导致显示的图片发生变形。 默认值False表示图像框控件可以根据显示图片的大小来调整自身的尺寸，以显示整幅图片，如同图片框控件的AutoSize属性被设置为True时的状况一样 方法 图像框的常用方法有Refresh和Move方法。 事件 图像框的常用事件主要是鼠标事件。 [例5-8] Strech 属性为True Private Sub Command1_Click() Image1.Picture = LoadPicture(c:\girl.jpg) End Sub ? Private Sub Command2_Click() Image1.Picture = LoadPicture() End Sub ? Private Sub Command3_Click() Unload Me End Sub 5.4 滚动条与计时器 一、滚动条（Hscroll和Vscroll） VB提供两种滚动条控件： 水平滚动条HScrollBar 垂直滚动条VScrollBar。 两种滚动条除方向不同外，结构和操作方法完全一样。 HScrollBar VScrollBar 属性 ．Max属性：滚动条所能表示的最大值。当滚动块移动到滚动条的最右端或底部时，滚动条的Value属性值等于Max值。 ．Min属性：滚动条所能表示的最小值。当滚动块移动到滚动条的最左端或顶部时，滚动条的Value属性值等于Min值。 ．Value属性：滚动条的当前位置值，该值始终介于Max和Min属性值之间(包括这两个值)。 ．LargeCha