Visual Basic程序设计教案：第五章 Visual Basic标准控件02.doc

5.3 图片框(Picturebox)和图像框(Image) 一、图片框(Picture) 用来显示图像或文本; 图像格式包括位图(.bmp)、图标(.ico)、光标(.cur)、JPEG文件(.jpg)或GIF文件(.gif)。作为容器。 Picture 属性：用于设置图片框显示图片。 可以在属性窗口或在代码中设置 ; 对象名.Picture = LoadPicture(“图形文件名”) 清除图片框中的图像： 在属性窗口取消Picture属性值 代码中：对象名.Picture = LoadPicture（） 或 对象名.Picture = LoadPicture(“”) 对象名.Picture = nothing Autosize 属性： 为True, 自动调整大小显示整幅图像。 为False,根据图片框大小剪裁。 常用事件：click、dblclick 常用方法：Refresh、Print、cls、move. 如：picture1.refresh 图片框图片变化时,刷新。 picture1.Print 在图片框中输出文本。 picture1.Cls 清除图片框中内容。 Picture1.Move letf, top, width, height将图片框移动到某位置,变化大小. 例如：从组合框中选择图片名称，用图片框显示。 Private Sub Combo1_Click() x = d:\ + Combo1.Text + .bmp Picture1.Picture = LoadPicture(x) Picture1.Refresh End Sub 利用图片框输出文本信息 Private Sub Picture1_Click() Picture1.Print 姓名 性别 年龄 Picture1.Print ----------------- Picture1.Print 张三 男 18 Picture1.Print 王敏 女 20 Picture1.Print 李四 男 19 End Sub 二、图像框(Image) 图像框在工具箱中的名称为Image, Image控件用于显示图像，和PictureBox控件用法一样，但占用系统资源较少。 picture属性：image1.Picture = LoadPicture(“图形文件名”) Stretch属性：控制控件大小 True：则可以缩放图像来适应控件大小； False：则可以自动调整控件大小以适应图像。 常用事件：click、dblclick； 常用方法：Refresh、move. 例如：从单选按钮中选择图片名称，用图片框和图像框显示。 选项按钮click事件: Picture1.Picture = LoadPicture(“d:\雪铁龙.bmp”) Image1.Picture = LoadPicture((“d:\雪铁龙.bmp”) Picture1.Refresh Image1.Refresh 例如:设计图片放大, 缩小窗体 Picture1:显示操作信息 Image1的属性设置： Stretch为True BordeStyle为1 Height和Width均为1800 在窗体的通用段声明模块变量： Dim n As Integer n记录图片框中的输出项数 Private Sub Form_Load() n = 0 n赋初值 End Sub Private Sub Command1_Click() 单击“放大”按钮 Image1.Width = Image1.Width * 1.25 Image1.Height = Image1.Height * 1.25 Picture1.Print 放大图片 : n = n + 1 If n = 10 Then Picture1.Cls: n = 0 End Sub Private Sub Command2_Click() 单击“缩小”按钮 Image1.Width = Image1.Width * 0.75 Image1.Height = Image1.Height * 0.75 Picture1.Print 缩小图片 : n = n + 1 If n = 10 Then Picture1.Cls: n = 0 End Sub Private Sub Command3_Click() 单击“还原”按钮