利用VB开发CAI课件

animation1.PositionFrame = animation1.PositionFrame - 1

End Sub

2．声音的播放

为了使用者更好的理解并撑握软件所讲知识，增强学习效果，声音解说在多媒体课件中起着十分重要的作用。声音可用windows的录音机录制。是否声音播放可由使用者控制，也可实现声音的暂停。下面是利用MCI控件实现声音的播放。

Public Const mci_mode_close As Integer = 524

Public Const mci_mode_play As Integer = 526

Public Const mci_mode_pause As Integer = 529

'如果声音正在播放则暂停或继续播放

If (Not MMControl1.Mode = mci_mode_pause) And (MMControl1.Mode = mci_mode_play) Then

   MMControl1.Command = "pause"

 Else