我们在制作多媒体程序时,不可避免的要涉及图像的显示,尽管VB中提供的picturebox可以显示多种格式的图像文件,但由于没有提供滚动条和缩放功能,在使用中多有不便。笔者在编制一多媒体程序时,就需要对图像进行缩放显示。这通常有两种处理办法,一是利用第三方控件,如Windows自带的WANG图像控件;二是利用VB的picturebox和滚动条控件自行编程实现。两种方法各有优缺点,可以根
方法/步骤
1、据需要具体选用。一,利用第三方皮薹匆热控件实现在“工程”中选取“部件”,将WANG图像编辑控制添加到工具箱中,并在窗体中绘制出合适大小,按鼠标右键,选胃申赜驵取特性,设置好各种参数后加入程序代码就行了,使用非常简单,如果需要,在程序中也可加入一定的图像编辑功能。采用第三方控件,功能较强,程序编制也简单一些,不失为一种好方法。但存在一些其他问题,比如本文采用的WANG图像编辑控制,在使用中就经常出现“类没有注册”的错误,解决此问题,要么修改注册表,要么重装系统,很麻烦,所以在要求的功能不是很多的情况下,用第二种方法比较合适。以下就是使用WANG控件的程序,可以看出,代码很简单。
2、PrivateSubimgedit1_KeyDown(KeyC艺皱麾酪odeAsInteger,ShiftAsIntege鸡堕樱陨r)SelectCaseKeyCode'定义功能键,+,-用以缩放图像CasevbKeyAddImgEdit1.Zoom=imgedit1.zoom*1.2CasevbKeySubtractImgEdit1.Zoom=imgedit1.zoom/1.2EndSelectImgEdit1.RefreshEndSub
3、PrivateSubForm_Resize()ImgEdit1.Top=0ImgEdit1.Left=0ImgEdit1.Height=Form1.ScaleHeightImgEdit1.Width=Form1.ScaleWidthEndSub
4、PrivateSubForm_Load()imgedit1.image="a:\ddd.jpg"ImgEdit1.ImagePalette=3ImgEdit1.DisplayEndSub
5、二是利用VB的picturebox和滚动条控件编程实现
6、PICTUREBOX控件能支持许多种图像格式,但没有缩放功能并且不自动添加滚动条,所以必须自行编程实现。
7、应用程序使用两个图片框,一个作为包容器,可称之为父图片框,另一个作为子图片框显示图形,配合滚动条控件在父图片框内移动子图片框就可实现画面的滚动。