这个播放器可以播放了，但哪控制条太难看了，我想用按钮来控制这个播放器的停止和播放，VB怎样传递参数给FLASH，各位太侠代码怎么写，源码在这 ,

学习了！

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 编辑 ]

不过这控件的老问题还是在

俺的意思是想用VB按钮来控制这个播放器的停止和播放，怎样传递参数给这个播放器？

代码我不是全写给你了？

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

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

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

[ 本帖最后由 ymhy12345 于 2012-7-19 10:10 编辑 ]

说一大串就是你要让那行消失就是了？

这样呢？

楼上哥哥，屏蔽控制条，播放和停止，代码怎么写？

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