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

文章作者 100test 发表时间 2008:01:04 13:36:27
来源 100Test.Com百考试题网

在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.Pai