标题:各位大侠,VB怎么样控制flash
只看楼主
ymhy12345
Rank: 2
等 级:论坛游民
帖 子:83
专家分:36
注 册:2011-8-27
结帖率:72.73%
已结贴  问题点数:30 回复次数:13 
各位大侠,VB怎么样控制flash

这个播放器可以播放了,但哪控制条太难看了,我想用按钮来控制这个播放器的停止和播放,VB怎样传递参数给FLASH,各位太侠代码怎么写,源码在这
flv.rar (30.83 KB)
,
搜索更多相关主题的帖子: 播放器 怎么样 FLASH 
2012-07-17 16:08
netlin
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:24
帖 子:544
专家分:4308
注 册:2012-4-9
得分:15 
学习了!

做自己喜欢的事!
2012-07-17 20:07
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:15 
http://topic.

记得...
shockwaveflash可以播放SWF
shockwaveflash不能播放FLV

试了一下居然可以...
是Flash有改版吗?

程序代码:
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Dim tempfile As String, A

Public Sub LoadM(ByVal flvfile As String)
flvfile = tempfile & "?file=" & flvfile
flvfile = Replace(flvfile, "\", "/")

ctrl.FlashVars = "autostart=true"

Call ctrl.LoadMovie(0, flvfile)
End Sub

Private Sub Command1_Click()
LoadM (A)
End Sub

Private Sub Command2_Click()
LoadM (dlg.FileName)
End Sub

Private Sub Form_Load()
Dim Buf As String * 128
Dim Value As Integer
Value = GetTempPath(128, Buf)
tempdir = Left(Buf, Value)

Randomize Timer
tempfile = tempdir & Int(Rnd * 100000) + 187
extractress tempfile
End Sub

Private Sub OpenFile_Click()
With dlg
.DefaultExt = "flv"
.Filter = "Flash video file (*.flv)|*.flv"
.Flags = cdlOFNExplorer
End With
dlg.ShowOpen
If dlg.FileName = "" Then Exit Sub
End Sub

Public Sub extractress(nom_fich As String)
Dim tab_ani() As Byte
Open nom_fich For Binary Access Write As 1
tab_ani = LoadResData(101, "CUSTOM")
ReDim Preserve tab_ani(UBound(tab_ani))
Put 1, , tab_ani
Close 1
A = nom_fich
End Sub


[ 本帖最后由 wube 于 2012-7-18 12:49 编辑 ]

不要選我當版主
2012-07-18 12:21
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:0 
不过这控件的老问题还是在

不要選我當版主
2012-07-18 12:50
ymhy12345
Rank: 2
等 级:论坛游民
帖 子:83
专家分:36
注 册:2011-8-27
得分:0 
回复 3楼 wube
俺的意思是想用VB按钮来控制这个播放器的停止和播放,怎样传递参数给这个播放器?
2012-07-18 17:27
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:0 
回复 5楼 ymhy12345
代码我不是全写给你了?

打开一个的FLV档案
点VB6的播放就播放
点VB6的停止就停止

[ 本帖最后由 wube 于 2012-7-18 19:53 编辑 ]

不要選我當版主
2012-07-18 19:51
ymhy12345
Rank: 2
等 级:论坛游民
帖 子:83
专家分:36
注 册:2011-8-27
得分:0 
回复 6楼 wube

楼上的哥哥,你理解错俺的意思啦,这是一个FLV本地播放器,点击打开哪个按钮可以播放本地的FLV文件,在播放的过程中有一条控制条的,这条控制条太难看了,俺的意思是想不用控制条来控制,想用VB做的按钮来控制播放器的停止和播放,怎么传递参数给这个播放器

[ 本帖最后由 ymhy12345 于 2012-7-19 10:10 编辑 ]
2012-07-19 10:08
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:0 
说一大串就是你要让那行消失就是了?
1.rar (34.47 KB)

这样呢?

不要選我當版主
2012-07-19 12:40
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1817
专家分:3681
注 册:2011-3-24
得分:0 

不要選我當版主
2012-07-19 12:42
ymhy12345
Rank: 2
等 级:论坛游民
帖 子:83
专家分:36
注 册:2011-8-27
得分:0 
回复 9楼 wube
楼上哥哥,屏蔽控制条,播放和停止,代码怎么写?

[ 本帖最后由 ymhy12345 于 2012-7-19 18:12 编辑 ]
2012-07-19 18:02



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-373577-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.109871 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved