第十章图形的控制与处理课件58.pptVIP

第10章 图形的控制与处理 主讲： 10.1 图形控件 VB提供的与绘图有关的标准控件有图片框（PictureBox）、图像框（Image）、直线（Line）和形状（Shape）。Image、Line、Shape控件需要较少的系统资源，且包含PictureBox中可用的属性、方法和事件子集，因此他们比PictureBox控件显示速度快些。 PictureBox和Image控件可以显示位图、图标、图元文件中的图形，也可处理GIF和JPEG格式的图形文件。 10.1.1 PictureBox控件 图片框（PictureBox）控件的主要作用是在窗体的指定位置为用户显示图片，也可作为其它控件的容器、显示Print方法输出的文本或显示图形方法输出的图形。实际显示的图片由Picture属性决定。在工具箱面板中，PictureBox控件的图标如图10-1所示。 10.1.1 PictureBox控件 1、主要属性 10.1.1 PictureBox控件 （1）在设计阶段加载图片文件有两种方法： 1）通过设置属性窗口中的Picture属性来加载图片，步骤如下： 在窗体上建立一个图片框 保持图片框为激活的控件，在属性窗口中找到Picture属性，单击该属性条，其右侧出现“…”按钮 单击“…”按钮，屏幕显示“加载图片”对话框，从相应文件夹中找到所需加载的图片，单击打开，图片即被加载 2）利用剪贴板加载 用绘图或图像处理软件完成图形处理，并将图形复制到剪贴板中 切换到VB，在窗体上建立图片框，并保持为激活状态 使用“粘贴”命令，即完成图片加载 10.1.1 PictureBox控件 （2）在运行阶段通过LoadPicture函数加载图片，格式如下： 对象名.Picture=LoadPicture(图片文件名) 例如：加载图片：Picture1.Picture=LoadPicture(C:\Pic\MyPic1.gif) 10.1.1 PictureBox控件 （1）卸载图片 卸载图片文件也有两种方法：一种是在设计阶段卸载，另一种是在运行阶段卸载。在设计阶段设置属性窗口中的Picture属性为None，在运行阶段通过LoadPicture函数卸载图片，格式如下： 对象名.Picture=LoadPicture() （2）复制图片 复制图片可以利用Picture属性和LoadPicture()函数来完成，如： Picture1.Picture=LoadPicture(C:\Pic\MyPic1.gif） Picture2.Picture=Picture1.Picture 10.1.1 PictureBox控件 格式：SavePicture picture, stringexpression 说明： picture：图片框对象或其他对象的picture属性 Stringexpression：文件名 10.1.1 PictureBox控件 在一个对象被移动或放大之后，或在一个覆盖该对象的窗体被移开之后，该对象部分或全部暴露时，此事件发生。 如果AutoRedraw属性被设置为True，重新绘图会自动进行，就不需要Paint事件。 10.1.1 PictureBox控件 图片框中常使用Cls方法和Print方法。 【例10-1】在C:\新建一个文件夹stu1，将我的文档中的示例图片Sunset.JPG复制到stu1文件夹下。再启动VB，在stu1文件夹下新建一个工程文件，其布局与运行结果如图10-2所示。 10.1.1 PictureBox控件 （1）控件选择：两个标签控件：Label1、Label2；两个图片框控件：Picture1、Picture2；三个命令按钮：Cmd1、Cmd2、Cmd3 （2）控件属性设置： 10.1.1 PictureBox控件 （3）代码编写： 编写命令按钮Cmd1的Click事件： Private Sub Cmd1_Click() Picture1.Picture = LoadPicture(App.Path \Sunset.JPG) End Sub 编写命令按钮Cmd2的Click事件： Private Sub Cmd2_Click() Picture2.Picture = Picture1.Picture End Sub 编写命令按钮Cmd3的Click事件： Private Sub Cmd3_Click() Picture1.Picture = LoadPicture() Picture2.Picture = LoadPicture() End Sub 说明：App.Path用于取得当前工程文件所在的文件夹路径，App.Path \Sunset.JPG指明了Sunset