1.Command1.click Event:
Thisform.Olecontrol1.movie=getfile("SWF") && 确实后缀名为?SWF
Thisform.refresh
2.Command2.click Event:
Thisform.Olecontrol1.playing=.T. && 播放Flash动画
Thisform.refresh
3.Command3.click Event:
Thisform.Olecontrol1.playing=.F. && 暂停当前动画的播放
Thisform.refresh
命令中的movie,playing也没有这两个命令