用mciSendString试试Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Longdim cmd as string
dim ret as string
dim rc as longcmd="open" & mFileName & "alias" &mAlias & "type MPEGVideo"rc=mciSendString(cmd,ret,0,0)定位窗口:cmd="window" & mAlias & "handle" & Trim$(Str$(mhWnd))
rc=mciSendString(cmd,ret,0,0)定位图象:cmd="put" & mAlias & "destination at" & strmLeft & strmTop & strmWidth & strmHeight(strmXXX使用前把数字用Trim$(Str$())转换成字符)用完了不要忘了关闭:rc=mciSendString("close MPEGVideo",ret,0,0)这个东西是播AVI用的,MCI设备应该能通用吧(不过不支持自动播放),供参考
如果是DIV4格式,则把MPEGVideo后面加2
dim ret as string
dim rc as longcmd="open" & mFileName & "alias" &mAlias & "type MPEGVideo"rc=mciSendString(cmd,ret,0,0)定位窗口:cmd="window" & mAlias & "handle" & Trim$(Str$(mhWnd))
rc=mciSendString(cmd,ret,0,0)定位图象:cmd="put" & mAlias & "destination at" & strmLeft & strmTop & strmWidth & strmHeight(strmXXX使用前把数字用Trim$(Str$())转换成字符)用完了不要忘了关闭:rc=mciSendString("close MPEGVideo",ret,0,0)这个东西是播AVI用的,MCI设备应该能通用吧(不过不支持自动播放),供参考
如果是DIV4格式,则把MPEGVideo后面加2
解决方案 »
- 不知道在这论坛里面的可用分怎么用的?请教了啊!
- 各位高手大虾大哥大姐!有那位有关于用VB6做ASP的程序代码或资料吗!
- 用Open Trim("c:\aa.bmp") For Binary As #1打开文件,怎么关闭?
- 怎么让VB写出来的程序,可以同时显示中文和日文?和MSN那样~!
- 有谁给我一个 IJL11.DLL 的用法,谢谢100分
- 选车牌号
- 150分在线跪等高手,关于vb6中的函数怎么给其他语言调用的问题。。。
- 如何读取PDF文件并转换成文本?100分在线等待
- ActiveX工程中的线程类型怎么理解?
- ado支持access2000数据库吗.connectionstring如何写?已安装ado2.7
- playyuer(女㊣爱): 版主啊,再帮忙看一下吧!http://www.csdn.net/expert/topicview1.asp
- 请教tg123(T.G.)帮我看看!!
cmd="play MPEGVideo"一定要发啊!