首页
后端开发
VB
视频制作中的慢放、快放、顺放和逆放效果

视频制作中的慢放、快放、顺放和逆放效果

17 次浏览 0 条评论
exe
exe

为了生成慢放、快放、顺放、逆放效果的视频，您可以使用以下代码段：

If (res  AVIERR_OK) Then GoTo error
Set bmp = New cDIB
List2.ListIndex = 0
If bmp.CreateFromFile(zmaPath & "mypicture" & List2.Text) = True Then
  MsgBox "无法加载列表中的第一个位图文件！", vbExclamation, App.title
  Exit Sub
End If

With strhdr
  .fccType = mmioStringToFOURCC("vids", 0&)
  .fccHandler = 0&
  .dwScale = 1
  .dwRate = Val(form1.Text8.Text) ' fps
  .dwSuggestedBufferSize = bmp.SizeImage ' 一个帧像素的大小
  Call SetRect(.rcFrame, 0, bmp.Width, bmp.Height) ' 定义流的矩形区域
End With

此代码段用于设置视频流的基本属性，包括帧率和帧大小等。通过调整 form1.Text8.Text 的值，您可以控制视频的播放速度，实现不同的播放效果。

exe 文件大小：104KB