m0r
r
注释：显示状态条的信息。r
r
StatusBar1Pa
els3Text〃正在播放文件：〃＋FileNamesPlayFileNum＋〃〃r
r
注释：显示滑动条的状态。r
r
Slider1MaxForm2ShockwaveFlash1TotalFramesr
r
Label2Captio
StrSlider1Max2＋〃帧〃r
r
Label3Captio
StrSlider1Max＋〃帧〃r
r
E
dSubr
r
PrivateSubcmdPause_Click注释：暂停播放r
r
Form2ShockwaveFlash1Stopr
r
E
dSubr
r
PrivateSubcmdPre_Click注释：播放上一个文件r
r
IfTotalFile1The
注释：当用户打开多于一个文件时r
r
PlayFileNumPlayFileNum－1r
r
IfPlayFileNum1The
PlayFileNumTotalFiler
r
Form2ShockwaveFlash1MovieFileNames0＋〃〃＋FileNamesPlayFileNumr
r
E
dIfr
r
注释：显示播放状态的信息。r
r
StatusBar1Pa
els3Text〃正在播放文件：〃＋FileNamesPlayFileNum＋〃〃r
r
Slider1MaxForm2ShockwaveFlash1TotalFramesr
r
Form2Captio
FileNamesPlayFileNum＋〃－Flash动画播放器〃r
r
Label2Captio
StrSlider1Max2＋〃帧〃r
r
Label3Captio
StrSlider1Max＋〃帧〃r
r
E
dSubr
r
PrivateSubcmdNext_Click注释：播放下一个文件r
r
IfTotalFile1The
注释：用户打开多于一个文件时r
r
PlayFileNumPlayFileNum＋1r
r
IfPlayFileNumTotalFileThe
PlayFileNum1r
r
Form2ShockwaveFlash1MovieFileNames0＋〃〃＋FileNamesPlayFileNumr
r
E
dIfr
r
注释：显示播放状态的信息。r
r
StatusBar1Pa
els3Text〃正在播放文件：〃＋FileNamesPlayFileNum＋〃〃r
r
Slider1MaxForm2ShockwaveFlash1TotalFramesr
r
Form2Captio
FileNamesPlayFileNum＋〃－Flash动画播放器〃r
r
Label2Captio
StrSlider1Max2＋〃帧〃r
r
Label3Captio
StrSlider1Max＋〃帧〃r
r
E
dSubr
r
PrivateSubcmdPreFrame_Click注释：跳到动画的上一帧r
r
Form2ShockwaveFlash1Backr
r
E
dSubr
r
PrivateSubcmdNextFrame_Click注释：跳到动画的下一帧r
r
Form2ShockwaveFlash1Forwardr
r
E
dSubr
r
PrivateSubcmdExit_Click注释：退出程序r
r
E
dr
r
E
dSubr
r
PrivateSubSlider1_Scrollr
r
注释：当用户拖动滑动条时，将播放帧数设置为滑动条中的值。r
r
Form2ShockwaveFlash1FrameNumSlider1Valuer
r
E
dSubr
r
PrivateSubm
uDisplay0_Clickr
r
注释：将画面大小设置为在控件内保持动画原来比例全部显示r
r
Form2ShockwaveFlash1ScaleMode0r
r
m
uDisplay0CheckedTruer
r
m
uDisplay1CheckedFalser
r
m
uDisplay2CheckedFalser
r
E
dSubr
r
PrivateSubm
uDisplay1_Clickr
r
注释：将画面的缩放设置为随控件横向（或纵向）的缩放而变化r
r
Form2ShockwaveFlash1ScaleMode1r
r
m
uDisplay0CheckedFalser
r
m
uDisplay1CheckedTruer
r
m
uDisplay2CheckedFalser
r
E
dSubr
r
PrivateSubm
uDisplay2_Clickr
r
注释：将画面大小设置为不理会动画原来比例缩放至控件大小r
r
Form2ShockwaveFlash1ScaleMode2r
r
m
uDisplay0CheckedFalser
r
m
uDisplay1CheckedFalser
r
m
uDisplay2CheckedTruerr