第07章 图形与图像操作.pptVIP

第7章 图形与图像操作 本章小结 图形图像操作是VB编程中重要的一部分。本章首先介绍了图形操作基础，其中包括坐标系统的概念、操作以及图形层的基础知识。然后介绍了常用图形控件的基本属性，并对常用图形方法进行了详细阐述，同时对VB中的常用控件进行了介绍。本章最后举例说明了图形图像的常见应用，让用户对应用VB进行图形图像操作的能力有一定的认识和了解。 7.5.2 简单动画制作 ?例7.15 钟表的时针、分针和秒针的走针动画，运行效果如图7.17所示。代码如下： Const PI = 3Dim r1, r2, r3, x0, y0 Private Sub Form_Load() x0 = Shape1.Left + Shape1.Width / 2 y0 = Shape1.Top + Shape1.Height / 2 Line1.X1 = x0 Line1.Y1 = y0 Line2.X1 = x0 Line2.Y1 = y0 Line3.X1 = x0 Line3.Y1 = y0 Line1.Visible = False Line2.Visible = False Line3.Visible = False r1 = Shape1.Height * 0.45 r2 = r1 * 0.7 r3 = r1 * 0.5 Timer1_Timer End Sub 图7. 16 钟表动画 Private Sub Timer1_Timer() Line1.Visible = True Line2.Visible = True Line3.Visible = True t = Time() s = Val(Second(t)) m = Val(Minute(t)) h = Val(Hour(t)) j1 = s * PI / 30 - PI / 2 Line1.X2 = x0 + r1 * Cos(j1) Line1.Y2 = y0 + r1 * Sin(j1) j2 = m * PI / 30 - PI / 2 Line2.X2 = x0 + r2 * Cos(j2) Line2.Y2 = y0 + r2 * Sin(j2) j3 = h * PI / 6 - PI / 2 Line3.X2 = x0 + r3 * Cos(j3) Line3.Y2 = y0 + r3 * Sin(j3) End Sub Private Sub Command1_Click() End End Sub 7.5.3 图形漫游技术 ?例7.16 在窗体内显示一幅图片，移动滚动条实现图形漫游，运行效果如图7.19。 Private Sub Form_Activate() Picture1.ScaleMode = 3 PictureClip1.ClipWidth = Picture1.Width / Screen.TwipsPerPixelX PictureClip1.ClipHeight = Picture1.Height / Screen.TwipsPerPixelY HScroll1.Max = PictureClip1.Width - Picture1.Width / Screen.TwipsPerPixelX VScroll1.Max = PictureClip1.Height - Picture1.Height / Screen.TwipsPerPixelY End Sub Private Sub HScroll1_Change() PictureClip1.ClipX = HScroll1.Value Picture1.Picture = PictureClip1.Clip End Sub Private Sub HScroll1_Scroll() PictureClip1.ClipX = HScroll1.Value 图8. 17 图形漫游 Picture1.Picture = PictureClip1.Clip End Sub Private Sub VScroll1_Change() PictureClip1.ClipY = VScroll1.Value Picture1.Picture = PictureClip1.Clip End Sub Private Sub VScroll1_Scroll() PictureClip1.ClipY =