VB 调用flash为什么播放flash的时候会卡? 各位大侠,洒家用的是VB6.0企业版,程序里调用了flash (.swf文件)用的是ShockwaveFlash控件。但是程序播放flash 的时候会一卡一卡的,隔三四秒会停顿一下。是什么的原因呢?flash文件大小21.9 MB 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 flash 缓存太小,下载速度小于播放速度。 to woshiwrj: 什么是第三方控件啊?恳请不吝赐教!虚心学习 用 VisioForge Media Player SDK my bloghttp://ufo-crackerx.blog.163.com/ VB的Flash这个控件 一点问题都没有 试看我这代码与你的有啥不同 ?Option ExplicitDim AppDisk$, FlashName$, FlashLength&Private Sub Form_Load() Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") ShockwaveFlash1.ScaleMode = 0 '将画面大小设置为在控件内保持动画原来比例全部显示 Option1(0).Value = True: Check1.Value = 1 Text1.Text = AppDisk & "cars.swf" Timer1.Enabled = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer) Timer1.Enabled = False ShockwaveFlash1.Stop Set Form1 = Nothing EndEnd SubSub SelFile() On Error GoTo ErrH FlashName = "" With CommonDialog1 .DialogTitle = "请选择文件" .CancelError = True .InitDir = AppDisk .Filter = "FLASH格式(*.swf)|*.swf" .ShowOpen End With FlashName = CommonDialog1.FileName If FlashName <> "" Then Text1.Text = FlashNameErrH: If Err = 32755 Then Exit SubEnd SubPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 '打开 Call SelFile If Text1.Text <> "" Then If Dir(Text1.Text) <> "" Then Command1_Click (1) End If Case 1 '播放 Command1_Click (6) ShockwaveFlash1.Movie = Text1.Text '打开文件 ShockwaveFlash1.Playing = True '开始播放动画。 FlashLength = ShockwaveFlash1.TotalFrames Label3.Caption = "本播放文件共有: " + CStr(FlashLength) + " 帧" Slider1.Max = FlashLength Timer1.Enabled = True Case 2 '跳到动画的上一帧 ShockwaveFlash1.Back Case 3 '跳到动画的下一帧 ShockwaveFlash1.Forward Case 4 '放大画面。 ShockwaveFlash1.Zoom (50) Case 5 '缩小画面。 ShockwaveFlash1.Zoom (150) Case 6 '暂停 ShockwaveFlash1.Stop Case 7 '退出程序 Unload Me End SelectEnd Sub 这个SWF文件你用FLASH PLAYER打开看看卡不卡.如果也卡,那就是你机器配置差了. 问题解决了,采用的是cbm666的方法。真诚感谢大家的帮助,呵呵,结贴 mschart控件使用问题~~ 求排列组合算法,高分求教 为什么ADO连接ACCESS会出现不支持反向集 高手援手?简单问题!!!! vb中运行SQL语句 VB版人物---第二期: ghj1976 请sunshine781114(小白) 接分. 请问这里哪错了,帮忙改正。 怎么解决VB的打包问题! QQ的原理什么回事? 变量能当参数传递吗? ADO模块调用出错的问题;
什么是第三方控件啊?恳请不吝赐教!虚心学习
http://ufo-crackerx.blog.163.com/
Dim AppDisk$, FlashName$, FlashLength&
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
ShockwaveFlash1.ScaleMode = 0 '将画面大小设置为在控件内保持动画原来比例全部显示
Option1(0).Value = True: Check1.Value = 1
Text1.Text = AppDisk & "cars.swf"
Timer1.Enabled = False
End SubPrivate Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
ShockwaveFlash1.Stop
Set Form1 = Nothing
End
End SubSub SelFile()
On Error GoTo ErrH
FlashName = ""
With CommonDialog1
.DialogTitle = "请选择文件"
.CancelError = True
.InitDir = AppDisk
.Filter = "FLASH格式(*.swf)|*.swf"
.ShowOpen
End With
FlashName = CommonDialog1.FileName
If FlashName <> "" Then Text1.Text = FlashName
ErrH:
If Err = 32755 Then Exit Sub
End SubPrivate Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '打开
Call SelFile
If Text1.Text <> "" Then
If Dir(Text1.Text) <> "" Then Command1_Click (1)
End If
Case 1 '播放
Command1_Click (6)
ShockwaveFlash1.Movie = Text1.Text '打开文件
ShockwaveFlash1.Playing = True '开始播放动画。
FlashLength = ShockwaveFlash1.TotalFrames
Label3.Caption = "本播放文件共有: " + CStr(FlashLength) + " 帧"
Slider1.Max = FlashLength
Timer1.Enabled = True
Case 2 '跳到动画的上一帧
ShockwaveFlash1.Back
Case 3 '跳到动画的下一帧
ShockwaveFlash1.Forward
Case 4 '放大画面。
ShockwaveFlash1.Zoom (50)
Case 5 '缩小画面。
ShockwaveFlash1.Zoom (150)
Case 6 '暂停
ShockwaveFlash1.Stop
Case 7 '退出程序
Unload Me
End Select
End Sub