عمل برنامج لتحويل صيغة الفيديو الى Mp3

الاكواد

ضفت لكم كود اخر زر الي ضفتة حتى تتعلم كتابة :*

If TextBox1.Text = "" Then MsgBox("Please select the file you with to convert", MsgBoxStyle.Critical, "Error")

Else

Dim type As String = ComboBox1.Text

MsgBox("The file has sucsessfully been converted into a " & type & " file.", MsgBoxStyle.Information, "Sucsess")

Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)

FileCopy(TextBox1.Text, oldFile + type)

End If

الشرح على اليوتيوب

عنوان الكاتب :-اسمي حمودي اعشق لاكترونيات اسكن في العراق مساهمتي هي المساعدة لاغير --وَقُلْ رَبِّي زِدْنِي عِلْماً--