Visual Basic程序设计沈祥玖电子教案 4.1 图片框.docVIP

4.1 图片框（PictureBox） 图片框（PictureBox）主要用于在窗体的指定位置显示图形，其还可以作为其他控件的容器、显示Print方法输出的文本或显示图形方法输出的图形。 4.1.1 属性 （1）Picture属性 用来指定显示的图形。图片框可显示JPG、BMP、WMF、GIF、ICO等格式的图形文件。 Picture属性可以在属性窗口中设置，也可以在代码中设置。 （a）属性窗口中设置 在设计阶段，可以单击属性窗口中Picture 属性行右则的按钮，在弹出的“加载图片”对话框中选择加载图形文件。 （b）在代码中设置 在代码中，可以用LoadPicture函数把图形文件装入图片框或图像框中。语句格式如下： 对象名.Picture=LoadPicture([filename]) 说明： “对象名”：可以是要加载图形的图片框、图像框或窗体的名称 “filename”：字符串表达式，指定一个被显示的图形的文件名，可以包括文件的盘符和路径。如果未指定文件名，清除图象。Picture1.Picture = LoadPicture() 上机练习时，可以先查找电脑中的图片，得到其路径和名称，再输入到代码中。 查找图片的方法：在“资源管理器”或“我的电脑”中的C盘上单击右键，选择右键菜单中的“查找”命令，在弹出的“查找”对话框中名称项里输入“*.JPG”（或“*.BMP”、“*.WMF”等），按“开始查找”按钮即可。 （2）AutoSize属性 指定控件是否自动改变大小以显示图形全部内容。属性值为True或False。 False：保持控件大小不变，超出控件区域的图形内容不被显示。此值为缺省值。 True：自动改变控件大小以显示图形全部内容。 4.1.2 应用举例 【例4.1】设计程序，演示图片框在AutoSize属性不同选值时的状态和用Picture属性加载、清除图形的功能。 分析：为做演示，图片框必不可少，还要建立四个按钮，二个用来设置图片框AutoSize属性值为True或False，另外二个实现加载、清除图形。（如图4-2所示） （a）犹抱琵琶半遮面状态 （b）露出庐山真面目状态 （c）清除状态 图4-2 例4.1程序运行界面 （1）界面设计 在窗体上添加二个图片框、四个命令按钮。 控件的大小、位置和命令按钮的Caption属性可参考图4-2。 （2）编写代码 依次双击窗体和各命令按钮，输入代码如下。 Private Sub Form_Load() 在启动程序时，设置图片框属性并加载图形。 Command2_Click 调用过程Command2_Click,如同输入了Command2_Click事件过程中的四条语句。 Command4_Click 功能同上。关于过程的调用，会在第8章中讲解。 End Sub Private Sub Command1_Click() “露出庐山真面目”按钮事件过程 Picture1.AutoSize = True 自动改变图片框大小以显示图形全部内容 Picture2.AutoSize = True End Sub Private Sub Command2_Click() “犹抱琵琶半遮面”按钮事件过程 Picture1.AutoSize = False 当图片框比图形小时,图形超出部分不被显示 Picture2.AutoSize = False Picture1.Height = 280 减少图片框高度为280,使图片框小于图形 Picture2.Height = 280 End Sub Private Sub Command3_Click() “清除”按钮事件过程 Picture1.Picture = LoadPicture() Picture2.Picture = LoadPicture() End Sub Private Sub Command4_Click() “加载”按钮事件过程 Picture1.Picture = LoadPicture(C:\VB\Face02.ico) 确保C盘的VB文件夹下有图形文件Face02.ico，也可使用其他图形文件 Picture2.Picture = LoadPicture(C:\VB\Face04.ico) End Sub 编程所用的Face02.ico等图标文件，可在C盘中查找“*.ICO”获得，一般能在VB资源文件夹“\Common\Graphics\Icons\Misc”下找到。 按F5键运行程序，界面如图4-2所示。单击“露出庐山真面目”按钮，图形会完全显示；点击“犹抱琵琶半遮面”按钮，图片框缩小，图形中的超出部分不被显示；按“清除”按钮，图形被删除；