visualbasic图形处理

《visualbasic图形处理》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第九章VisualBasic图形处理第九章VisualBasic图形处理9.1图形操作基础9.2图形控件9.3绘图方法9.1图形操作基础9.1.1坐标系统对象定位使用的是容器的坐标系，每个容器都有一个坐标系。坐标系由三要素构成：坐标原点，坐标度量单位（刻度），坐标轴的长度与方向。9.1图形操作基础1.坐标原点与坐标轴方向在默认的VB坐标系统中，原点（0,0）位于容器内部的左上角，X轴的正向水平向右，Y轴的正向垂直向下。对于窗体和图片框来说，这里所说的“容器内部”是指可以容纳其他控件并且可用于绘图的区域，该区域称为绘图区或工作区。绘图区不包括边框，窗

2、体的绘图区还要将标题栏和菜单栏（若有）除外。因此，窗体中控件的Left属性是指控件左上角到窗体绘图区左边的距离，Top属性是控件左上角到窗体绘图区顶边的距离。9.1图形操作基础2.坐标刻度坐标刻度即容器内坐标的度量单位。VB中默认的刻度为缇（1厘米约为567缇，1英寸约为1440缇）。刻度由窗体、图片框等容器对象的ScaleMode属性决定，该属性的设置值如表12.1所示，其中大于0的设置值称为标准刻度。9.1图形操作基础ScaleMode属性的设置值：9.1图形操作基础3.自定义坐标系在实际应用中，有时可能需要改变坐标系的原点、坐标轴的方向或刻度

3、，这时就要建立自己的坐标系。创建自定义坐标系可以使用容器对象的属性，亦可使用它的方法。9.1图形操作基础9.1.2颜色设置1.使用QBColor函数2.使用RGB函数3.使用VB系统颜色常数4.使用颜色值9.1图形操作基础9.1.3图形属性1.线宽和线型DrawWidth属性用来返回或设置图形方法输出的线宽。DrawStyle属性用来返回或设置图形方法输出的线型。该属性的设置值0～4的效果分别与Line控件的BordeStyle属性的1～5对应。若DrawWidth属性设置值大于1，在DrawStyle属性被设置为1～4时，只能画实线。9.1图形操

4、作基础2.填充颜色与填充样式FillColor属性用于为Line和Circle方法生成的矩形和圆填充颜色。FillStyle属性用于为Line和Circle方法生成的矩形和圆指定填充的图案。该属性的设置值与Shape控件的FillStyle属性相同。除Form对象外，若FillStyle属性被设置为默认值1（透明），则忽略FillColor属性的设置值。9.2图形控件9.2.1图形框控件图形框控件（PictureBox）可以用来显示位图、JPGE、GIF、图标等格式的图片，在工具箱面板中，图形框控件的图标如图9-2所示。图形框的图片加载方式有两种，

5、一是通过Picture属性选择需要加载的图片，二是通过LoadPicture()函数实现。9.2图形控件9.2.2图像框控件图像框控件(Image)是用来控制图形图像输出的，用户可以通过所建立的Image对象来指定图像文件贴在窗体的位置。9.2图形控件前面讲过，图形框与图像框的用法基本相同，但有以下区别：(1)图形框是“容器”控件，可以作为父控件，而图像框不能作为父控件。也就是说，在图形框中可以包含其他控件，而其他控件不能“属于”一个图像框。图形框是一个“容器”，可以把其他控件放在该控件上，作为它的“子控件”。当图形框中含有其他控件时，如果移动图形

6、框，则框中的控件也随着一起移动，并且与图形框的相对位置保持不变；图形框内的控件不能移到图形框外。(2)图形框可以通过Print方法接收文本，并可接收由像素组成的图形，而图像框不能接收Print方法输入的信息，也不能用绘图方法在图像框上绘制图形。每个图形框都有一个内部光标(不显示)，用来批示下一个将被绘制的点的位置，这个位置就是当前光标的坐标，通过CurrentX和CurremY属性来记录。(3)图像框比图形框占用的内存少，显示速度快。在用图形框和图像框都能满足需要的情况下，应优先考虑使用图像框。9.2图形控件例题9-3：编写如下代码，在两个图像框中

7、实现图像文件的交换，运行效果如图所示。9.2图形控件PrivateSubForm_Load()Image1.Picture=LoadPicture("C:DocumentsandSettingsAllUsersDocumentsMyPictures示例图片Winter.jpg")Image2.Picture=LoadPicture("C:DocumentsandSettingsAllUsersDocumentsMyPictures示例图片Sunset.jpg")EndSubPrivateSubCommand1_Click()

8、Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureIma