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

第八章　图形操作与多媒体 教学内容： 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) Line1(i).Y1 = 0.9 * Sin(Angle) Line1(i).X2 = Cos(Angle) Line1(i).Y2 = Sin(Angle) Next i End Sub 一、项目功能 二、知识、能力和素质目标 2、按钮的事件：Click Private Sub cmdPlay_Click() Mp3Play1.Play End Sub Private Sub cmdPause_Click() Mp3Play1.Pause End Sub Private Sub cmdClose_Click() Mp3Play1.Close End Sub Private Sub cmdOpen_Click() CommonDialog1.ShowOpen r = Mp3Play1.Open(CommonDialog1.FileName, ) Label3.Caption = 正在播放歌曲： CommonDialog1.FileName End Sub Private Sub cmdStop_Click() Mp3Play1.Stop End Sub 返回目录 ScaleLeft和ScaleTop属性 用于定义容器的左上角的坐标。 例如： 　ScaleLeft=200 　ScaleTop=200　　‘将当前窗体的左上角坐标定义为(200,200) ScaleWidth和ScaleHeight属性 对象的内部宽度和高度 CurrentX和CurrentY属性 用于设置或返回容器当前的坐标值。 例如： Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 　 Picture1.CurrentX = X 　Picture1.CurrentY = Y 　Picture1.Print Str(Int(Picture1.CurrentX)) , Str(Int(Picture1.CurrentY)) End Sub 当用户在Picture1中按下鼠标时，将鼠标按下的位置设为当前位置，并在当前位置输出当前坐标。 Scale方法 用于改变坐标系。Scale方法的语法为： [对象名 . ] Scale [ (x1 , y1) - (x2 , y2) ] 将容器的左上角坐标设为(x1 , y1)，右下角坐标设为(x2 , y2)。即容器的ScaleTop=x1，ScaleLeft=x2，ScaleWidth=x2-x1，ScaleHeigth=y2-y1。 若使用Scale方法时不带参数，表示将容器的坐标系恢复为默认的坐标系。 返回目录 （2）设置颜色 1、 RGB函数 可用于设置任何颜色。RGB函数的语法为： 　　RGB( red , green , blue ) 参数red，green，blue分别表示红，绿，蓝的分量值。三个分量的取值范围都是在0到255之间。 例如： Picture1.Back