Visual Studio 2010旗舰版的vb.net版本视频剪辑代码QZQ

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 Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim openFileDialog As New OpenFileDialog()
    openFileDialog.Filter = "Video Files (*.mp4;*.avi;*.mkv; *.wmv)|*.mp4;*.avi;*.mkv; *.wmv"

    If openFileDialog.ShowDialog() = DialogResult.OK Then
        selectedVideoPath = openFileDialog.FileName
    End If
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    If String.IsNullOrEmpty(selectedVideoPath) 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 =