End If
Case "graph"
image.Picture=LoadPicture("")
image.Visible=False
End Select
End Sub
Sub openMedia(mediatype As String, medianame As String)'
打开并演播媒体
If Not MMControl.Mode=MCI_MODE_NOT_OPEN_Then
MMControl.Wait=True
MMControl.command="Close"
End If
Select Case Mediatype
Case "graph" '图像
image.Picture=LoadPicture(medianame)
image.Visible=True
exit sub
Case "sound" '声音
tt$=UCase(Right$(medianame,3))
Select Case tt$
Case "WAV"
MMControl.DeviceType="WaveAudio"
Case "MID"
MMControl.DeviceType="Sequencer"
End Select
Case "animator" '二、三维动画
tt$=UCase(Right$(medianame,3))
Select Case tt$
Case "FLC","FLI"
Mmcontrol.DeviceType="Animation1"
Case "MMM"
Mmcontrol.DeviceType="MMMovie"
End Select
Case "video" '视频
tt!=UCase (Right$(medianame,3))
Select Cast tt$
Case "AVI"
Mmcontrol.DeviceType="AVIVideo"
Case "MOV"
Mmcontrol.DeviceType="QtwVideo"
Case "MPG"
Mmcontrol.DeviceType="MMaster" ' reelmagic设备名
Case "DAT"
Mmcontrol.DeviceType="MMaster" ' reelmagic设备名
Case "CDI"
Mmcontrol.DeviceType="MMaster" 'reelmagic设备名
End Select
End Select
Mmcontrol.FileName=medianame
Mmcontrol.Wait=True
Mmcontrol.Command="Open" '打开设备
Mmcontrol.Notify=True
Mmcontrol.command="play" '演播
End Sub

作者：江华 陶菲

上一页  [1] [2] 

“多媒体创作系统的设计与实现提供各类毕业论文!”版权归作者所有，转载请著名出处。