12图片框及图像框控件.pdfVIP

12-5-20 第五周 （2 ）　图片框与图像框控件 第五周 （2）　图片框与图像框控件 教学时间：2010年3月31日(第5周)　　 　教案序号：21-22　　　　　 教学课时：2 教学进度：正常 教学 目标：掌握图片框和图像框的区别及应用。 教学重点：掌握图片框和图像框的区别及应用。 教学难点：图片框和图像框的应用。 教学过程：程序下载 一、图像框与图片框的比较 　　图像框控件和图片框控件相似，都可用来显示应用程序中的图形，都支持相同的图形格式，且图形的加载方 法也相同。它们的不同之处在于： １、图片框控件可以作为其他控件的容器，可以使用Print方法在其中显示文本，而图像框不具有这些功能。 ２、将图片加载到图片框中，图片框可以自动调整其大小以适应加载的图形。将图片加载到图像框中，图片则可 以自动调整其大小以适应图像框的大小。 　　图像框的Stretch属性决定图片是否能自动调整其大小以适应图像框的大小，当Stretch属性的值为 Ture时，则图片将 自动调整其大小：当Stretch属性的值为False时，则图像框 自动调整其大小以适应图片的大 小。左边图像框Stretch属性的值为False,右边图像框Stretch属性的值为Ture。 二、实例 １、压缩与拉伸图片 　　本实例利用图像框的特点Stretch属性来实现对图片的压缩与拉伸。在窗体中放置一个图像框控件和两个按 钮控件，如图所示： /~c17/2009-2/vb/files/5-2/5-2.html 1/5 12-5-20 第五周 （2 ）　图片框与图像框控件 双击 【压缩】按钮，打开 【代码】窗口，将下列代码添加到ComFress_Click事件过程中： Private Sub ComPress_Click () If Imagel.Height 1000 Then ComPress.Endabled False Else Imagel.Height Imagel.Height - 100 ComStretch.Erabled Ture End If End Sub 同理，双击 【拉伸】按钮，将下列代码添加到ComPress_Click事件过程中： Private Sub ComPress_Click () If Imagel.Height 3000 Then ComPress.Endabled False Else Imagel.Height Imagel.Height + 100 ComStretch.Erabled Ture End If End Sub 　　在该程序中，为了避免由于将图片的高度无限拉伸或无限压缩而出错，使用了一个If语句来判断当前图片的 高度，如果图片的高度小于1000,则将 【压缩】按钮置为无效，否则，将当前高度减少100 ;如果图片的高度大于 3000,则将 【拉伸】按钮置为无效，否则，将当前高度增加100。 　　运行该程序，每单击一次 【压缩】按钮，图片的高度就缩小一点，当缩小到一定程度时， 【压缩】按钮变为 无效，不能再压缩图片。此时，单击 【拉伸】按钮，则图片被拉伸一点，同时， 【压缩】按钮变为有效。不断单 击 【拉伸】按钮，图片不断被拉伸，当拉伸到一定程度， 【拉伸】按钮变为无效，不能再拉伸图片，此时，单击 l压缩】按钮，则图片被压缩一点，同时， 【拉伸】按钮变为有效。图5.48所示的是程序运行后，单击数次 【压 /~c17/2009-2/vb/files/5-2/5-2.html 2/5 12-5-20 第五周 （2 ）　图片框与图像框控件 l压缩】按钮，则图片被压缩一点，同时， 【拉伸】按钮变为有效。图5.48所示的是程序运行后，单击数次 【压 缩】按钮后图片被压缩的情形。 ２、小