Imports System.IO
Imports System.Diagnostics
Imports System
Public Class VideoEditorForm
Private ffmpegPath As String = "C:\ffmpeg-master-latest-win64-gpl-shared\bin\ffmpeg.exe" '将此路径更改为您的 FFmpeg 实际安装路径
'储选中的视频文件路径
Private selectedVideoPath As String
'剪的起始时间(以秒为单位)
Private cropStartTime As Integer
'剪的结束时间(以秒为单位)
Private cropEndTime As Integer
' 存储选中的文件路径列表
Private selectedFilePaths As New List(Of String)
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If String.IsNullOrEmpty(selectedVideoPath) Then
MessageBox.Show("请先选择要裁剪的视频文件!")
Exit Sub
End If
' 取滑动条的裁剪起始时间和结束时间
If Not Integer.TryParse(TrackBar1.Value, cropStartTime) OrElse Not Integer.TryParse(TrackBar2.Value, cropEndTime) Then
MessageBox.Show("请设置有效的裁剪时间(整数,以秒为单位)!")
Exit Sub
End If
Dim saveFileDialog As New SaveFileDialog()
saveFileDialog.Filter = "MP4 Video (*.mp4)|*.mp4|AVI Video (*.avi)|*.avi|MKV Video (*.mkv)|*.mkv"
If saveFileDialog.ShowDialog() = DialogResult.OK Then
Dim outputPath As String = saveFileDialog.FileName
Dim fileExtension As String = Path.GetExtension(outputPath)
Dim process As New Process()
process.StartInfo.FileName = ffmpegPath
Select Case fileExtension.ToLower()
Case ".mp4"
process.StartInfo.Arguments = "-i " & Chr(34) & selectedVideoPath & Chr(34) & " -ss " & cropStartTime & " -to " & cropEndTime & " -c:v libx264 -c:a aac " & Chr(34) & outputPath & Chr(34)
Case ".avi"
process.StartInfo.Arguments = "-i " & Chr(34) & selectedVideoPath & Chr(34) & " -ss " & cropStartTime & " -to " & cropEndTime & " -c:v mpeg4 -c:a mp3 " & Chr(34) & outputPath & Chr(34)
Case ".mkv"
process.StartInfo.Arguments = "-i " & Chr(34) & selectedVideoPath & Chr(34) & " -ss " & cropStartTime & " -to " & cropEndTime & " -c:v copy -c:a copy " & Chr(34) & outputPath & Chr(34)
End Select
process.StartInfo.UseShellExecute = False
process.StartInfo.RedirectStandardOutput = True
process.Start()
While Not process.HasExited
Dim output As String = process.StandardOutput.ReadLine()
'以在此处理进程的输出信息
End While
End If
End Sub
Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
cropStartTime = TrackBar1.Value
End Sub
Private Sub TrackBar2_ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
cropEndTime = TrackBar2.Value
End Sub
Private Sub VideoEditorForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TrackBar1.Value = 0
TrackBar2.Value = 0
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim concatListFile As String = Path.GetTempFileName()
Using sw As New StreamWriter(concatListFile)
For Each item As String In ListBox1.Items
sw.WriteLine("file '" & item & "'")
Next
End Using
Dim saveFileDialog As New SaveFileDialog()
saveFileDialog.Filter = "MP4 Video (*.mp4)|*.mp4|AVI Video (*.avi)|*.avi|MKV Video (*.mkv)|*.mkv"
If saveFileDialog.ShowDialog() = DialogResult.OK Then
Dim outputPath As String = saveFileDialog.FileName
Dim fileExtension As String = Path.GetExtension(outputPath)
Dim process As New Process()
process.StartInfo.FileName = ffmpegPath
Select Case fileExtension.ToLower()
Case ".mp4"
process.StartInfo.Arguments = "-f concat -safe 0 -i " & Chr(34) & concatListFile & Chr(34) & " -c:v libx264 -c:a aac " & Chr(34) & outputPath & Chr(34)
Case ".avi"
process.StartInfo.Arguments = "-f concat -safe 0 -i " & Chr(34) & concatListFile & Chr(34) & " -c:v mpeg4 -c:a mp3 " & Chr(34) & outputPath & Chr(34)
Case ".mkv"
process.StartInfo.Arguments = "-f concat -safe 0 -i " & Chr(34) & concatListFile & Chr(34) & " -c:v copy -c:a copy " & Chr(34) & outputPath & Chr(34)
End Select
process.StartInfo.UseShellExecute = False
process.StartInfo.RedirectStandardOutput = True
Try
process.Start()
While Not process.HasExited
Dim output As String = process.StandardOutput.ReadLine()
' 在此处理进程的输出信息
End While
Catch ex As Exception
MessageBox.Show("拼接过程中出现错误: " & ex.Message)
Finally
process.Dispose()
End Try
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim openFileDialog As New OpenFileDialog()
…
…
…
本软件需要FFmpeg库文件才能进行视频裁剪和拼接的功能。不过我的源代码已经附赠了ffmpeg库文件了。解压文件ffmpeg-master-latest-win64-gpl-shared.zip,首先需要解压ffmpeg-master-latest-win64-gpl-shared文件并复制到C盘,设置环境变量,将C盘的ffmpeg文件目录地址添加到系统变量的Path里面。
🎉精彩不容错过!新文章震撼登场,却因代码不全让人意犹未尽?别担心!我们为你准备了软件截图,让你先睹为快,感受其强大魅力。
✨如果你渴望解锁全部精彩内容,那么强烈建议你下载完整源代码。它将为你打开一扇通往编程新世界的大门,让你深入探索其中的奥秘,挖掘无限潜力。
🔗源代码下载网址:[https://download.csdn.net/download/qq_32257509/89643495]。赶紧行动起来,下载完整源代码,开启你的编程之旅吧!