在VB中制作可滚动的图像显示.doc

在VB中制作可滚动的图像显示 ? 摘要：我们在制作多媒体程序时，不可避免的要涉及图像的显示，尽管VB中提 ? ? 供的picturebox可以显示多种格式的图像文件，但由于没有提供滚动条和缩放功 ? ? 能，在使用中多有不便。笔者在编制一多媒体程序时，就需要对图像进行缩放显 ? ? 示。这通常有两种处理办法，一是利用第三方控件，如Windows自带的WANG图像控 ? ? 件；二是利用VB的picturebox和滚动条控件自行编程实现。本文给出了利用这两 ? ? 种方法制作的实例。 ? ? ? ? 在VB中制作可滚动的图像显示 ? ? ? ? 我们在制作多媒体程序时，不可避免的要涉及图像的显示，尽管VB中提供的 ? ? picturebox可以显示多种格式的图像文件，但由于没有提供滚动条和缩放功能，在 ? ? 使用中多有不便。笔者在编制一多媒体程序时，就需要对图像进行缩放显示。这通 ? ? 常有两种处理办法，一是利用第三方控件，如Windows自带的WANG图像控件；二是 ? ? 利用VB的picturebox和滚动条控件自行编程实现。两种方法各有优缺点，可以根 ? ? 据需要具体选用。 ? ? 一，利用第三方控件实现 ? ? 在“工程”中选取“部件”，将WANG ? 图像编辑控制添加到工具箱中，并在窗 ? ? 体中绘制出合适大小，按鼠标右键，选取特性，设置好各种参数后加入程序代码就 ? ? 行了，使用非常简单，如果需要，在程序中也可加入一定的图像编辑功能。 ? ? 采用第三方控件，功能较强，程序编制也简单一些，不失为一种好方法。但存 ? ? 在一些其他问题，比如本文采用的WANG ? 图像编辑控制，在使用中就经常出现“类 ? ? 没有注册”的错误，解决此问题，要么修改注册表，要么重装系统，很麻烦，所以 ? ? 在要求的功能不是很多的情况下，用第二种方法比较合适。以下就是使用WANG控 ? ? 件的程序，可以看出，代码很简单。 ? ? Private ? Sub ? imgedit1_KeyDown(KeyCode ? As ? Integer, ? Shift ? As ? Integer) ? ? Select ? Case ? KeyCode ? 定义功能键，+，-用以缩放图像 ? ? Case ? vbKeyAdd ? ? ImgEdit1.Zoom=imgedit1.zoom*1.2 ? ? Case ? vbKeySubtract ? ? ImgEdit1.Zoom=imgedit1.zoom/1.2 ? ? End ? Select ? ? ImgEdit1.Refresh ? ? End ? Sub ? ? ? ? Private ? Sub ? Form_Resize() ? ? ImgEdit1.Top ? = ? 0 ? ? ImgEdit1.Left ? = ? 0 ? ? ImgEdit1.Height ? = ? Form1.ScaleHeight ? ? ImgEdit1.Width ? = ? Form1.ScaleWidth ? ? End ? Sub ? ? ? ? Private ? Sub ? Form_Load() ? ? imgedit1.image=a:\ddd.jpg ? ? ImgEdit1.ImagePalette ? = ? 3 ? ? ImgEdit1.Display ? ? End ? Sub ? ? 二是利用VB的picturebox和滚动条控件编程实现 ? ? PICTUREBOX控件能支持许多种图像格式，但没有缩放功能并且不自动添加滚 ? ? 动条，所以必须自行编程实现。 ? ? ? 应用程序使用两个图片框，一个作为包容器，可称之为父图片框，另一个作 ? ? 为子图片框显示图形，配合滚动条控件在父图片框内移动子图片框就可实现画面 ? ? 的滚动。 ? ? VB中提供了paintpicture方法，可以在窗体、图片框上的任何地方绘制图 ? ? 形，语法为 ? object.PaintPicture ? picture, ? x1, ? y1, ? width1, ? height1, ? x2, ? ? ? y2, ? width2, ? height2, ? opcode,其中x1,y1为指定在 ? object ? 上绘制 ? picture ? ? ? 的目标坐标；width1,height1 ? 指定 ? picture ? 的目标宽度和高度；x2,y2指定 ? ? ? picture ? 内剪贴区的坐标 ? width2,height2 ? 指