第八章图形操作与多媒体教学内容.pptVIP

第八章　图形操作与多媒体 教学内容： 8.1 图形控件与操作 8.2 多媒体控件与操作 一、项目功能 二、知识、能力和素质目标 Private Sub Form_Resize() Dim i, Angle Static flag As Boolean If flag = False Then flag = True For i = 0 To 14 画出表盘12个点和时、分、秒共15个LINE If i 0 Then Load Line1(i) Line1(i).Visible = True Line1(i).BorderWidth = 5 Line1(i).BorderColor = RGB(0, 128, 0) 设置LINE的粗细和颜色 Next i End If For i = 0 To 14 Scale (-1, 1)-(1, -1) Angle = i * 2 * Atn(1) / 3 Line1(i).X1 = 0.9 * Cos(Angle)