用编写动画播放器物业

2、程序代码

第一步：在Form1的代码窗口中添加以下代码：

Dim FileNames() As String 用于保存打开的文件名称。

Dim PlayFileNum As Integer 用于计算正在播放的文件序号。

Dim TotalFile As Integer 用于统计打开的文件总数。

Private Sub cmdOpen_Click() 打开

On Error GoTo ExitOpen

ags = cdlOFNAllowMultiselect Or cdlOFNFileMustExist Or cdlOFNExplorer

leName = ″\"

owOpen 显示“打开”对话框。

以vbNullChar作为子字符串的边界分隔字符串CommonDialog1返回的FileName。

FileNames() = Split(leName, vbNullChar)

If UBound(FileNames) = 0 Then 用户只打开了一个文件。

Form2!vie = FileNames(0)

TotalFile = 1

PlayFileNum = 0

Else 用户打开了多于一个文件。

Form2!vie = FileNames(0) ＋ ″\\″ ＋ FileNames(1)

TotalFile = UBound(FileNames)

PlayFileNum = 1

End If

nels(1).Text = ″共打开了″ ＋ Trim(Str(TotalFile)) ＋ ″个文件″

cmdPlay_Click

ExitOpen:

End Sub

Private Sub cmdPlay_Click() 开始播放

If TotalFile 1 Then Exit Sub 用户还没有打开文件。

显示Form2开始播放动画。

ption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″

ow

Form2!aying = True

If TotalFile = 1 Then PlayFileNum = 0

显示状态条的信息。

nels(3).Text = ″正在播放文件：″ ＋ FileNames(PlayFileNum) ＋ ″ ...″

显示滑动条的状态。

x = Form2!talFrames

ption = Str(x / 2) ＋ ″帧″

而共同把持着该项目历史前三好成绩的博尔特和布雷克已经在100米飞人大战中包揽了金银牌 ption = Str(x) ＋ ″帧″

End Sub

Private Sub cmdPause_Click() 暂停播放

Form2!op

End Sub

Private Sub cmdPre_Click() 播放上一个文件

If TotalFile 1 Then 当用户打开多于一个文件时

PlayFileNum = PlayFileNum － 1

If PlayFileNum 1 Then PlayFileNum = TotalFile

Form2!vie = FileNames(0) ＋ ″\\″ ＋ FileNames(PlayFileNum)

End If

显示播放状态的信息。

nels(3).Text = ″正在播放文件：″ ＋ FileNames(PlayFileNum) ＋ ″ ...″

x = Form2!talFrames

ption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″

ption = Str(x / 2) ＋ ″帧″

ption = Str(x) ＋ ″帧″

End Sub

Private Sub cmdNext_Click() 播放下一个文件

If TotalFile 1 Then 用户打开多于一个文件时

PlayFileNum = PlayFileNum ＋ 1

If PlayFileNumTotalFile Then PlayFileNum = 1

Form2!vie = FileNames(0) ＋ ″\\″ ＋ FileNames(PlayFileNum)

End If

显示播放状态的信息。

nels(3).Text = ″正在播放文件：″ ＋ FileNames(PlayFileNum) ＋ ″ ...″

x = Form2!talFrames

ption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″

ption = Str(x / 2) ＋ ″帧″

ption = Str(x) ＋ ″帧″

End Sub

Private Sub cmdPreFrame_Click() 跳到动画的上一帧

Form2!ck

End Sub

Private Sub cmdNextFrame_Click() 跳到动画的下一帧

Form2!rward

End Sub

Private Sub cmdExit_Click() 退出程序

End

End Sub

Private Sub Slider1_Scroll()

当用户拖动滑动条时，将播放帧数设置为滑动条中的值。

Form2!ameNum = lue

End Sub

Private Sub mnuDisplay0_Click()

将画面大小设置为在控件内保持动画原来比例全部显示

Form2!aleMode = 0

ecked = True

ecked = False

ecked = False

End Sub

Private Sub mnuDisplay1_Click()

将画面的缩放设置为随控件横向（或纵向）的缩放而变化

Form2!aleMode = 1

ecked = False

ecked = True

ecked = False

End Sub

Private Sub mnuDisplay2_Click()

将画面大小设置为不理会动画原来比例缩放至控件大小

Form2!aleMode = 2

ecked = False

ecked = False

ecked = True

End Sub

Private Sub mnuLoopPlay_Click()

将播放方式设置为循环或不循环。

ecked = Not ecked

Form2!op = Not Form2!op

End Sub

Private Sub mnuQuality0_Click()

将画面质量设置为低分辨率

Form2!ality = 0

ecked = True

ecked = False

End Sub

Private Sub mnuQuality1_Click()

将画面质量设置为高分辨率

Form2!ality = 1

ecked = False

ecked = True

End Sub

Private Sub mnuZoomIn_Click()

放大画面。

Form2!om (50)

End Sub

Private Sub mnuZoomOut_Click()

缩小画面。

Form2!om (200)

End Sub

Private Sub Form_Unload(Cancel As Integer)

End 结束程序

End Sub 　　第二步：在Form2的代码窗口中添加以下代码：

Private Sub Form_Resize()

将ShockwaveFlash1控件的大小设置为Form2的大小。

p = aleTop

ft = aleLeft

dth = aleWidth

ight = aleHeight

End Sub

Private Sub Timer1_Timer()

在状态栏和滑动条上显示当前播放的帧。

Form1!nels(5).Text = Str(ameNum)

Form1!lue = ameNum

End Sub 　　第三步：调试、运行程序，运行界面如图2所示。

当播放Flash动画时，在播放窗口中单击鼠标右键时，将会弹出如图3所示的菜单。在该菜单，我们可以完成控制Flash动画播放的大部份工作。若想取消该功能，只要将Shockwave flash控件的Menu属性设置为False即可。

以上程序在Windows98，VB6.0下运行通过。

查看本文来源

石家庄治疗卵巢炎哪家好
贵阳治白癜风专业医院
济南白癜风权威医院