图形框和图像框
若要在应用程序中创作图形效果,可以使用图形框(PictureBox)和图像框(Image)控件。它们都可以显示BMP、ICO、WMF、GIF、JPEG等文件的图形,而且图形框还可以作为容器放置其它控件,以及通过Print、Pest、Line、Circle等方法在其中输出文本和画图。
7.6.1 图形框
图形框的主要属性有Picture和Autosize。
(1) Picture属性
Picture属性决定控件中所显示的图形文件,其值可以通过下列三种途径获得:
u 在设计状态直接选择图形文件设置Picture属性。
u 在程序运行时使用LoadPicture()函数装入图形,使用形式为:
图形框. Picture=LoadPicture(“图形文件名”)
u 装入另一图形框中的图形,使用形式为:
图形框1. Picture=图形框2. Picture
(2) Autosize属性
当Autosize属性设置为True时,图形框将自动调整大小与显示的图片匹配;将Autosize属性设置为False时,则图形框不能自动改变大小,若加载的图形比控件大,则超过部分将被剪裁。
7.6.2 图像框
图像框和图形框基本相同,都有Picture属性,区别在于两点,一是图像框不能作为容器存放其它控件、二是图像框没有Autosize属性,但有Stretch属性。
Stretch属性用于伸展图像,当Stretch属性为False时,在设计状态,图像框可自动改变大小,以适应其中的图形,相当于图形框在Autosize属性设置为True时的功能,而在程序运行时图形框的大小不会改变,图形或剪裁占用图像框左上角部分空间,相当于图形框在Autosize属性设置为False时的功能;当Stretch属性为True时,加载到图像框的图形可自动调整尺寸,以适应图像框的大小,图形有可能会失真。利用图像框的Stretch属性可实现图形有缩放。
事件代码如下:
Dim H, W As Integer ' H和W分别存放图形的原始大小
Sub Check1_Click()
Image1.Stretch = Check1.Value '复选框控制Image1的Stretch属性
End Sub
Sub Form_Load()
H = Image1.Height ' 初始时,Image1的高度就是图像的原始高度
W = Image1.Width ' 初始时,Image1的宽度就是图像的原始宽度
End Sub
Sub HScroll1_Scroll()
Image1.Height = H * HScroll1.Value / 10 ' Image1按比例缩放高度
Image1.Width = W * HScroll1.Value / 10 ' Image1按比例缩放宽度
End Sub