第十一章 图形与图像.pptVIP

显示图片时，即可以在窗体设计阶段在属性窗口设置其Picture属性，也可以在代码编写阶段用 LoadPicture函数加载图片，其格式为： LoadPicture([文件名]) Me.Picture = LoadPicture(c:\素材\flower.jpg) 11.2.1 Add Image to the Form 11.2.2 Using Image Control 　 图像控件ImageBox不能用绘图方法绘制图形，只能用来显示图片。但在显示图片时所占用的系统资源比图片框要小，因此在只显示图片而不绘制图形的情况下，用图像框要显得方便快捷。此外图像框的Stretch属性设成True后，图片的大小会自动伸缩到图像框的大小。 例8.利用图像控件设计“红绿灯”程序 11.2.2 Using Image Control Private Sub Image1_Click() u = Image1.Tag Select Case u Case 1 Image1.Picture = Image3(0).Picture 绿灯 Image1.Tag = 2 Image2.Picture = Image3(2).Picture Image1.Tag = 1 Case 2 Image1.Picture = Image3(1).Picture 黄灯 Image1.Tag = 3 Case 3 Image1.Picture = Image3(2).Picture 红灯 Image1.Tag = 1 Image2.Picture = Image3(0).Picture Image2.Tag = 2 End Select End Sub 11.2.2 Using Image Control 图片框PictureBox具有类似于窗体显示图片、绘制图形的功能，但其图形处理方面的属性和方法比窗体要丰富的多。如，AutoSize属性设置成真后，当图片框控件比实际图片小时，图片框会自动适应图片的尺寸；可以用PaintPicture方法对图片进行翻转、拉伸等处理。 Displaying Picture 制作简易图片浏览器 Output of graph and text 制作移动的函数曲线 11.2.3 Using Picture Box Control 例9.制作简易图片浏览器 11.2.3 Using Picture Box Control Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() ChDrive Drive1.Drive ChDir Dir1.Path Picture1.Picture = LoadPicture(File1.FileName) End Sub 11.2.3 Using Picture Box Control 例10.输出图形和文本 11.2.3 Using Picture Box Control Private Sub Form_Paint() Const pi = 3.1415926 With Picture1 .Top = 0 .Left = 0 .Width = Me.ScaleWidth .Height = Me.ScaleHeight .ScaleMode = 6 oldx = .ScaleWidth / 2 oldy = .ScaleHeight / 2 .Cls 画坐标轴 Picture1.Line (oldx, 0)-(oldx, .ScaleHeight), RGB(255, 0, 0) Picture1.Line (0, oldy)-(.ScaleWidth, oldy), RGB(255, 0, 0) End With Picture1.CurrentX = oldx - 4: Picture1.CurrentY = oldy + 0.5 Picture1.Print 0 11.2.3 Using Picture Box Control 画x轴刻度 For xt = -Int(oldx) To Int(oldx) Step 0.5 If xt 0 Then st = xt * 10 * pi Picture1.CurrentX = oldx + st - 3: