第11章图形与图像【荐】.pptVIP

* 第11章图形与图像 11.1 绘制图形 11.1.1 图形控件 11.1.2 图形的坐标系统 11.1.3 与图形有关的属性 11.1.4 使用颜色 11.2 显示图片 11.2.1 直接加载图片到窗体 11.2.2 使用图像控件 11.2.3 使用图片框控件 11.3 滚动条控件 11.3.1 滚动条的属性 11.3.2 滚动条的事件 11.3.3 滚动条的应用 习题十一 11.1 绘制图形 11.1.1 图形控件 1.Shape控件 2. Line控件 3. 图形控件与动画 【例11-1】曲柄滑块机构的演示。利用Timer控件来控制图形控件的转动，如图11-2所示。 图11-2 曲柄滑块机构 图11-3 用户界面的设计 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性， (3) 编写程序代码。 编写窗体的Load事件代码： Private Sub Form_Load() With Shape1 .Tag = .Width / 2 圆的半径 X0 = .Left + .Tag 圆心的x坐标 Y0 = .Top + .Tag 圆心的y坐标 End With With Line1 连杆的长 .Tag = Sqr((.X1 – .X2) ^ 2 + (.Y1 – .Y2) ^ 2) End With End Sub 编写Timer1的Timer事件代码： Private Sub Timer1_Timer() t = t + 1 Shape3.Left = X0 + Shape1.Tag * Sin(pi * t / 30) – 30 Shape3.Top = Y0 – Shape1.Tag * Cos(pi * t / 30) + 30 Line1.X1 = Shape3.Left + 30 Line1.Y1 = Shape3.Top + 30 Line1.X2 = Shape3.Left + Sqr(Line1.Tag ^ 2 – (Shape3.Top – Y0) ^ 2) Line2.X1 = Line1.X1 Line2.Y1 = Line1.Y1 Shape2.Left = Line1.X2 End Sub 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() If Command1.Caption = 暂停(S) Then 图11-4 窗体的坐标系统 Command1.Caption = 继续(C) Timer1.Enabled = False Else Command1.Caption = 暂停(S) Timer1.Enabled = True End If End Sub 11.1.2 图形的坐标系统 11.1.3 与图形有关的属性 【例11-2】使用PSet方法绘制圆的渐开线，如图11-7所示。 图11-7 用PSet方法绘制的数学曲线 分析：圆的渐开线可以用参数方程表示： 只需如下命令按钮的Click事件代码： Private Sub Command1_Click() ScaleMode = 6 设置坐标单位为mm x = Me.ScaleWidth / 2 中心点的横坐标 y = Me.ScaleHeight / 2 中心点的纵坐标 For t = 0 To 30 Step 0.01 xt = Cos(t) + t * Sin(t) yt = –(Sin(t) – t * Cos(t)) 与笛卡尔坐标一致，纵坐标向上为正 PSet (xt + x, yt + y), vbBlue 相对于中心点画出曲线 Next t End Sub 2. 画直线、矩形方法（Line） Line方法可以在对象上的两点之间画直线或矩形，语法为 〈object〉.Line [Step] [x1, y1] – [Step] (x2, y2) [,〈颜色〉] [,B [F]] 【例11-3】下面用Line方法的不同参数画出图形，如图11-8所示。 图11-8 用Line方法的不同参数画出的图形 只需如下的窗体事件代码： Pri