利用VB开发CAI课件
if dir("文件名.flc")<>"" then
本文链接地址：http://www.oyaya.net/fanwen/view/143895.html
animation1.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
③ 动画向前退一帧：
★读了本文的人也读了：