如何得到*.swf,*.mpg文件的播放时间?

lvlsky 2004-09-20 10:53:34
如何得到*.swf,*.mpg文件的播放时间?
...全文
126 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xinliangyu 2004-09-22
  • 打赏
  • 举报
回复
用API,看行不:
function getMediaLength(Filename as string) as long
dim varName as long
mciSendString "open " & Filename & " alias MyWav", vbNullString, 0, 0

'time format milliseconds
mciSendString "Set myWav time format milliseconds", vbNullString, 0, 0 '得到文件长度
mciSendString "Status myWav Length", sReturn, 255, 0 '得到文件长度
varName = Val(sReturn) \ 1000
mciSendString "close MyWav", vbNullString, 0, 0
end function
jam021 2004-09-22
  • 打赏
  • 举报
回复
控件里有这些属性的

809

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧