慢放快放顺放逆放视频制作

时间:2016-06-16 10:54:31
【文件属性】:

文件名称:慢放快放顺放逆放视频制作

文件大小:104KB

文件格式:EXE

更新时间:2016-06-16 10:54:31

慢放 快放 顺放 逆放

生成慢放、快放、顺放、逆放效果的视频 If (res <> AVIERR_OK) Then GoTo error Set bmp = New cDIB List2.ListIndex = 0 If bmp.CreateFromFile(zmaPath & "mypicture\" & List2.Text) <> True Then MsgBox "Could not load first bitmap file in list!", vbExclamation, App.title Exit Sub End If With strhdr .fccType = mmioStringToFOURCC("vids", 0&) '// stream type video .fccHandler = 0& '// default AVI handler .dwScale = 1 .dwRate = Val(form1.Text8.Text) '// fps .dwSuggestedBufferSize = bmp.SizeImage '// size of one frame pixels Call SetRect(.rcFrame, 0, 0, bmp.Width, bmp.Height) '// rectangle for stream End With


网友评论

  • 功能实现得不错