第10章处理图形- 多媒体课件培训资料.pptVIP

Visual Basic程序设计教程 【例10-10】图形复制。有两张图片放入影像框中，单击任何一个，复制到图片框中央。 控件： 建立有2个元素的Image控件数组Img1 (0)和Img1(1) 建立1个图片框控件PicShow 设置各对象（名称）属性。设置2个Image控件数组元素的Stretch属性为True。 Private Sub Form_Load() Img1(0).Picture = LoadPicture(e:\feng\temp\APPWIZ.ICO) Img1(1).Picture = LoadPicture(e:\feng\temp\face.ico) PicShow.FontSize = 15End SubPrivate Sub Img1_Click(Index As Integer) Dim t As String t = 左右 PicShow.Cls PicShow.Print 你点中 Mid(t, Index + 1, 1) 边的图片： PicShow.PaintPicture Img1(Index).Picture, _ PicShow.Width/2 - Img1(Index).Width/2, _ PicShow.Height/2 - I