利用VB开发CAI课件论文.docVIP

　　利用VB开发CAI课件论文 摘要 利用VB编写多媒体课件，主要解决动画、声音、图片、文本的显示、播放与控制等问题，本文介绍一些有关的编程技巧和关键技术。 关键词 VB 多媒体 课件 Visual Basic采用面对对象的程序设计思想，且继承了Basic简单易学的特点， 功能强大被很多课件的开发者所青睐，它和许多课件开发平台相比，具有更好的灵活性，可以充分的实现开发者的意图.freelation1.animation=文件名.flc animation1.visible=true endif ②为了看清物理量某一状态，动画需要在某一帧暂停： Private Sub pausebtn_Click() If animation1.Pause Then animation1.Pause = False Else animation1.Pause = True End If End Sub ③ 动画向前退一帧： Private Sub back_Click() animation1.PositionFrame = animation1.PositionFrame - 1 End Sub 2．声音的播放 为了使用者更好的理解并撑握软件所讲知识，增强学习效果，声音解说在多媒体课件中起着十分重要的作用。声音可用ci_mode_close As Integer = 524 Public Const mci_mode_play As Integer = 526 Public Const mci_mode_pause As Integer = 529 Private Sub sound_Click() 如果声音正在播放则暂停或继续播放 If (Not MMControl1.Mode = mci_mode_pause) And (MMControl1.Mode = mci_mode_play) Then MMControl1.mand = pause Else 播放解说词 MMControl1.DeviceType = MControl1.filename = 文件名.and = open MMControl1.mand = prev MMControl1.mand = play End If End Sub ======================================================== 如果解说已播放结束,则关闭媒体播放器 Private Sub MMControl1_Done(NotifyCode As Integer) If MMControl1.Position = MMControl1.Length Then MMControl1.mand = close End If End Sub 3．图形按钮编程实现 虽然VB提供了标准的MSystem (ByVal SoundName As String, ByVal handle As Integer, ByVal Flags As Long) As Integer #End If Public Const snd_nodefault = H2 Public Const snd_sync = O0 Public Const snd_filename = H20000 ③在窗体上画picture控件，picture1.autosize=true，picture1.borderstyle设置为0-none，picture1.picture设置为normal.bmp。 ④编程如下： ============================================================ 当光标在窗体中时，按钮处于正常状态 Private Sub Form1_MouseMove() picture1.picture=loadpicture(normal.bmp) mark=false End Sub ============================================================ 当光标在按钮上移动时，按钮处于激活状态，且播放声音 mover.ark then picture1.picture=loadpicture(move.bmp) playsound mover.e mark =true end if end sub ============================================================ 当鼠标右键按下时，按钮处于按下状态 Private Sub Picture1_MouseDop) end sub ============