1)Mettez 2 boutons
2)Mettez 1 textbox
3)Mettez 1 ComboBox
4)Mettez 1 SelectVid
CODE:
Bouton pour ouvrir une vidéo:
Bouton pour convertir la vidéo:
Code SelectVid:
et mettez dans votre combobox
.mp4
.avi
.m4v
.mp3
(Vous pouvez en rajouter d'autres)
Voila Ouvrez une vidéo sélectionnez la le chemin apparaitra dans le textbox choisissez le format voulu dans combobox et appuyez sur le bouton pour la convertir!
2)Mettez 1 textbox
3)Mettez 1 ComboBox
4)Mettez 1 SelectVid
CODE:
Bouton pour ouvrir une vidéo:
Code:
SelectVid.ShowDialog()
Bouton pour convertir la vidéo:
Code:
Dim type As String = ComboBox1.Text
If ComboBox1.Text = "" Then
MsgBox("No file type selected")
Else
End If
MsgBox(TextBox1.Text + " shall be converted into a " + type + " file.")
Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
FileCopy(TextBox1.Text, oldFile + type)
Code SelectVid:
Code:
Dim file As String = SelectVid.FileName
TextBox1.Text = file
et mettez dans votre combobox
.mp4
.avi
.m4v
.mp3
(Vous pouvez en rajouter d'autres)
Voila Ouvrez une vidéo sélectionnez la le chemin apparaitra dans le textbox choisissez le format voulu dans combobox et appuyez sur le bouton pour la convertir!