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

【文件属性】：
文件名称：慢放快放顺放逆放视频制作
文件大小：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