利用vb开发cai课件

《利用vb开发cai课件》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、利用VB开发CAI课件摘要利用VB编写多媒体课件，主要解决动画、声音、图片、文本的显示、播放与控制等问题，本文介绍一些有关的编程技巧和关键技术。关键词VB多媒体课件　　VisualBasic采用面对对象的程序设计思想，且继承了Basic简单易学的特点，功能强大被很多课件的开发者所青睐，它和许多课件开发平台相比，具有更好的灵活性，可以充分的实现开发者的意图，是开发多媒体程序的利器，下面是我用VisualBasic编写课件的一点经验。1．播放FLC动画FLC动画是表示物理量之间的联接关系及运动关系有利工具，我采

2、用vbplay.vbx控件播放动画。使用该控件，必须有aaplay.dll文件同时存在。①播放动画前判断是否有动画文件，有则播放：ifdir("文件名.flc")<>""thenanimation1.animation="文件名.flc"animation1.visible=trueendif②为了看清物理量某一状态，动画需要在某一帧暂停：PrivateSubpausebtn_Click()Ifanimation1.PauseThenanimation1.Pause=FalseElseanima

3、tion1.Pause=TrueEndIfEndSub③动画向前退一帧：PrivateSubback_Click()animation1.PositionFrame=animation1.PositionFrame-1EndSub2．声音的播放为了使用者更好的理解并撑握软件所讲知识，增强学习效果，声音解说在多媒体课件中起着十分重要的作用。声音可用ci_mode_closeAsInteger=524PublicConstmci_mode_playAsInteger=526PublicConstmci_mode

4、_pauseAsInteger=529PrivateSubsound_Click()'如果声音正在播放则暂停或继续播放If(NotMMControl1.Mode=mci_mode_pause)And(MMControl1.Mode=mci_mode_play)ThenMMControl1.mand="pause"Else'播放解说词MMControl1.DeviceType="MControl1.filename="文件名.and="open"MMControl1.mand="prev"MMControl1

5、.mand="play"EndIfEndSub'========================================================'如果解说已播放结束,则关闭媒体播放器PrivateSubMMControl1_Done(NotifyCodeAsInteger)IfMMControl1.Position=MMControl1.LengthThenMMControl1.mand="close"EndIfEndSub3．图形按钮编程实现虽然VB提供了标准的MSystem"(ByVal

6、SoundNameAsString,ByValhandleAsInteger,ByValFlagsAsLong)AsInteger#EndIfPublicConstsnd_nodefault=H2PublicConstsnd_sync=O0PublicConstsnd_filename=H20000③在窗体上画picture控件，picture1.autosize=true，picture1.borderstyle设置为0-none，picture1.picture设置为normal.bmp。④编程如下：'

7、============================================================'当光标在窗体中时，按钮处于正常状态PrivateSubForm1_MouseMove()picture1.picture=loadpicture("normal.bmp")mark=falseEndSub'============================================================'当光标在按钮上移动时，按钮处于激活状态，且播放声音mover.

8、arkthenpicture1.picture=loadpicture("move.bmp")playsound"mover.emark=trueendifendsub'============================================================'当鼠标右键按下时，按钮处于按下状态PrivateSubPicture1_MouseDop")endsub'=========